202 |
procedure LogMessage( msg : string); |
procedure LogMessage( msg : string); |
203 |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
procedure SetPrinterstatusText( txt: string; alert: boolean); |
204 |
function GetFormObject() : TForm; |
function GetFormObject() : TForm; |
205 |
|
function GetXMLDocument() : TXMLDocument; |
206 |
|
|
207 |
|
|
208 |
|
|
4858 |
Result := self; |
Result := self; |
4859 |
end; |
end; |
4860 |
|
|
4861 |
|
//Nedarvet fra IParentForm |
4862 |
|
function TMainForm.GetXMLDocument() : TXMLDocument; |
4863 |
|
begin |
4864 |
|
Result := XMLDocument1 |
4865 |
|
end; |
4866 |
|
|
4867 |
|
|
4868 |
end. |
end. |
4869 |
|
|