Class TCustomUndoDivideScreenObject

Unit

UndoItemsScreenObjects

Declaration

type TCustomUndoDivideScreenObject = class(TCustomImportMultipleScreenObjects)

Description

TUndoChangeSelection is used to change or restore which TScreenObjects or vertices in an individual TScreenObject are selected.

To use, Create a TUndoChangeSelection, change the TScreenObjects that are selected, and call SetPostSelection. Then Undo and Redo can be used to restore or redo the changes in what is selected.

      UndoChangeSelection := TUndoChangeSelection.Create;
      try
        // Change the selected TScreenObjects here.
        UndoChangeSelection.SetPostSelection;
        if UndoChangeSelection.SelectionChanged then
        begin
          frmGoPhast.UndoStack.Submit(UndoChangeSelection);
        end
        else
        begin
          UndoChangeSelection.Free;
        end;
      except
        UndoChangeSelection.Free;
        raise;
      end;
    

Hierarchy

• TObject
• TUndoItem
• TCustomUndo
• TCustomUpdateScreenObjectDisplayUndo
• TUndoChangeSelection
• TCustomImportMultipleScreenObjects
• TCustomUndoDivideScreenObject

Overview

Fields

	FOldChildModelScreenObjects: TList;
	FObjectToSplit: TList;
	FOldScreenObjectSettings: TList;

Methods

	function ShouldDivideScreenScreenObject( AScreenObject: TScreenObject): boolean; virtual; abstract;
	procedure UnselectAllVertices(AScreenObject: TScreenObject);
	constructor Create;
	destructor Destroy; override;
	procedure DoCommand; override;
	procedure Undo; override;

Description

Fields

	FOldChildModelScreenObjects: TList;

	FObjectToSplit: TList;

	FOldScreenObjectSettings: TList;

Methods

	function ShouldDivideScreenScreenObject( AScreenObject: TScreenObject): boolean; virtual; abstract;

	procedure UnselectAllVertices(AScreenObject: TScreenObject);

	constructor Create;

	destructor Destroy; override;

	procedure DoCommand; override;

	procedure Undo; override;