Class TUndoChangeSutraOptions

Unit

frmSutraOptionsUnit

Declaration

type TUndoChangeSutraOptions = class(TCustomUndo)

Description

Public declarations

Hierarchy

• TObject
• TUndoItem
• TCustomUndo
• TUndoChangeSutraOptions

Overview

Fields

	FNewSutraOptions: TSutraOptions;
	FOldSutraOptions: TSutraOptions;
	FNewMeshType: TMeshType;
	FOldMeshType: TMeshType;

Methods

	function Description: string; override;
	constructor Create(var NewSutraOptions: TSutraOptions; NewMeshType: TMeshType);
	destructor Destroy; override;
	procedure DoCommand; override;
	procedure Undo; override;

Description

Fields

	FNewSutraOptions: TSutraOptions;

	FOldSutraOptions: TSutraOptions;

	FNewMeshType: TMeshType;

	FOldMeshType: TMeshType;

Methods

	function Description: string; override;

	constructor Create(var NewSutraOptions: TSutraOptions; NewMeshType: TMeshType);

	destructor Destroy; override;

	procedure DoCommand; override;

	procedure Undo; override;