Description | Uses | Classes, Interfaces, Objects and Records | Functions and Procedures | Types | Constants | Variables |
This unit contains the base classes for a command pattern-based undo Stack.
Author : Published in The Delphi Magazine
Modified by
Name | Description |
---|---|
Class EHiddenProc |
EHiddenProc is called when an inherited method of TList is called that should never be called. |
Class TUndoItem |
TUndoItem is an abstract interface for a command. Descendants define what the command does and how to undo and redo the command. |
Class TUndoStack |
TUndoStack is used to manage the TUndoItems. |
procedure DisableUndoMenus(UndoItem, RedoItem: TMenuItem); |
procedure DisableUndoActions(UndoAction, RedoAction: TAction); |
procedure DisableUndoToolButtons(UndoButton, RedoButton: TToolButton); |
TStackStatus = (...); |
sUndoDescr = 'Undo last action'; |
sShortUndoDescr = 'Undo last'; |
sRedoDescr = 'Redo last action'; |
sShortRedoDescr = 'Redo last'; |
sUndoMenu = '&Undo'; |
sRedoMenu = '&Redo'; |
sNoUndoDescr = 'Command not available; nothing to undo.'; |
sNoRedoDescr = 'Command not available; nothing to redo.'; |
sStackFull = 'Undo Stack is full; only the last %d actions can be undone'; |
procedure DisableUndoMenus(UndoItem, RedoItem: TMenuItem); |
|
procedure DisableUndoActions(UndoAction, RedoAction: TAction); |
|
procedure DisableUndoToolButtons(UndoButton, RedoButton: TToolButton); |
|
TStackStatus = (...); |
Values
|
sUndoDescr = 'Undo last action'; |
Use const for version 9.0 and earlier. Otherwise, use resourcestring. |
sShortUndoDescr = 'Undo last'; |
sRedoDescr = 'Redo last action'; |
sShortRedoDescr = 'Redo last'; |
sUndoMenu = '&Undo'; |
sRedoMenu = '&Redo'; |
sNoUndoDescr = 'Command not available; nothing to undo.'; |
sNoRedoDescr = 'Command not available; nothing to redo.'; |
sStackFull = 'Undo Stack is full; only the last %d actions can be undone'; |