blob: 61eb89cdf6feab50bbda00ac722dc54ff19312d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
{
This is based on the Command design pattern. Use Google if you don't
know what design patterns are. The Command pattern is very similar to
Delphi's TAction feature.
}
unit gfx_command_intf;
{$mode objfpc}{$H+}
interface
type
ICommand = interface(IInterface)
['{28D72102-D883-41A1-9585-D86B24D9C628}']
procedure Execute;
end;
ICommandHolder = interface(IInterface)
['{695BA6E1-1120-42D4-A2C3-54F98D5CDA46}']
function GetCommand: ICommand;
procedure SetCommand(ACommand: ICommand);
end;
implementation
end.
|
