52 lines
852 B
ObjectPascal
52 lines
852 B
ObjectPascal
|
unit X2UtService.GUIContext;
|
||
|
|
||
|
interface
|
||
|
uses
|
||
|
X2UtService.Intf;
|
||
|
|
||
|
|
||
|
type
|
||
|
TX2ServiceContextGUI = class(TInterfacedObject, IX2ServiceContext)
|
||
|
protected
|
||
|
procedure StartService(AService: IX2Service); virtual;
|
||
|
public
|
||
|
constructor Create(AService: IX2Service);
|
||
|
|
||
|
{ IX2ServiceContext }
|
||
|
function GetMode: TX2ServiceMode;
|
||
|
end;
|
||
|
|
||
|
|
||
|
implementation
|
||
|
uses
|
||
|
X2UtService.GUIContext.Form;
|
||
|
|
||
|
|
||
|
{ TX2ServiceContextGUI }
|
||
|
constructor TX2ServiceContextGUI.Create(AService: IX2Service);
|
||
|
begin
|
||
|
inherited Create;
|
||
|
end;
|
||
|
|
||
|
|
||
|
function TX2ServiceContextGUI.GetMode: TX2ServiceMode;
|
||
|
begin
|
||
|
Result := smInteractive;
|
||
|
end;
|
||
|
|
||
|
|
||
|
procedure TX2ServiceContextGUI.StartService(AService: IX2Service);
|
||
|
begin
|
||
|
with TX2ServiceContextGUIForm.Create(nil) do
|
||
|
try
|
||
|
Caption := AService.DisplayName;
|
||
|
Service := AService;
|
||
|
|
||
|
ShowModal;
|
||
|
finally
|
||
|
Free;
|
||
|
end;
|
||
|
end;
|
||
|
|
||
|
end.
|