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