dao/DelphiScanner/ParentForm.pas

unit ParentForm;

interface
uses
  Forms,
  XMLDoc;

type
  IParentForm = Interface(IInterface)
    procedure Msg( msg : string);
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);

    function GetFormObject() : TForm;

    function GetXMLDocument() : TXMLDocument;

  End;

implementation

end.
1	torben	2705	unit ParentForm;
2
3			interface
4			uses
5	torben	3095	Forms,
6			XMLDoc;
7	torben	2705
8			type
9			IParentForm = Interface(IInterface)
10	torben	3038	procedure Msg( msg : string);
11	torben	2705	procedure LogMessage( msg : string);
12			procedure SetPrinterstatusText( txt: string; alert: boolean);
13
14			function GetFormObject() : TForm;
15
16	torben	3095	function GetXMLDocument() : TXMLDocument;
17
18	torben	2705	End;
19
20			implementation
21
22			end.