Class TCustomImportMultipleScreenObjects

Unit

UndoItemsScreenObjects

Declaration

type TCustomImportMultipleScreenObjects = class(TUndoChangeSelection)

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

Overview

Fields

FNewScreenObjects: TList;

Methods

	procedure UnDeleteNewScreenObjects;
	procedure DeleteNewScreenObjects;
	Destructor Destroy; override;
	procedure StoreNewScreenObjects(const ListOfScreenObjects: TList); virtual;
	procedure UpdateScreenObject(const AScreenObject: TScreenObject);
	procedure DoCommand; override;
	procedure Redo; override;
	procedure Undo; override;

Description

Fields

	FNewScreenObjects: TList;
FNewScreenObjects holds the newly imported TScreenObjects.

Methods

	procedure UnDeleteNewScreenObjects;

	procedure DeleteNewScreenObjects;

	Destructor Destroy; override;

	procedure StoreNewScreenObjects(const ListOfScreenObjects: TList); virtual;
StoreNewScreenObjects deselects all the existing TScreenObjects, creates FNewScreenObjects and puts the contents of ListOfScreenObjects in FNewScreenObjects.

	procedure UpdateScreenObject(const AScreenObject: TScreenObject);

	procedure DoCommand; override;

	procedure Redo; override;

	procedure Undo; override;