paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 19:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapt to new palmos system unit

Browse Source
This commit is contained in:
pierre 2003-01-14 08:20:05 +00:00
parent 4fec8d0699
commit 8797c7ea07
1 changed files with 56 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
demo/palmos/pilrctst.pp
View File

@ -7,6 +7,8 @@
{$APPID FPCA}
{$APPNAME FPC Demo}
{$R pilrctst.rcp}
program pilrctst;
uses
@ -37,10 +39,6 @@ program pilrctst;
var
kidForm : longint;
{function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;public;[alias: 'PilotMain'];}
var
b : boolean;
e : EventType;
@ -48,10 +46,8 @@ program pilrctst;
pfrm : PFormType;
ptbl : PTableType;
begin
{if _cmd=0 then }
begin
kidForm:=kidForm1;
begin
kidForm:=kidForm3;
FrmGotoForm(kidForm);
while true do
begin
@ -107,9 +103,4 @@ program pilrctst;
FrmHandleEvent(FrmGetActiveForm,e);
end;
end;
end;
{PilotMain:=0;
end;
begin}
end.