Class TUndoPasteScreenObjects

Unit

UndoItemsScreenObjects

Declaration

type TUndoPasteScreenObjects = 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
• TUndoPasteScreenObjects

Overview

Fields

FOldChildModelScreenObjects: TList;

Methods

	function Description: string; override;
	constructor Create;
	destructor Destroy; override;
	procedure StoreNewScreenObjects(const ListOfScreenObjects: TList); override;
	procedure DoCommand; override;
	procedure Undo; override;
	procedure Redo; override;

Description

Fields

	FOldChildModelScreenObjects: TList;

Methods

	function Description: string; override;
Description describes what this TUndoPasteScreenObjects does. It is used in menu captions and hints.

	constructor Create;

	destructor Destroy; override;

	procedure StoreNewScreenObjects(const ListOfScreenObjects: TList); override;

	procedure DoCommand; override;

	procedure Undo; override;

	procedure Redo; override;