| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch