paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* first demo

Browse Source
This commit is contained in:
florian 2001-08-16 19:35:48 +00:00
parent 70913018d3
commit d8ef93a698
1 changed files with 113 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
demo/palmos/pilrctst.pp Normal file
View File

@ -0,0 +1,113 @@
{ Test program for PalmOS support of FPC
Ported from pilrctst.c by Florian Klaempfl (florian@freepascal.org)
pilrctst.c was made by
Wes Cherry (wesc@ricochet.net)
}
{$APPID FPCA}
{$APPNAME FPC Demo}
program pilrctst;
uses
palm;
const
kidForm1 = 1000;
kidForm2 = 1001;
kidForm3 = 1002;
kidForm4 = 1003;
kidForm5 = 1004;
kidForm6 = 1005;
kidForm7 = 1006;
kidForm8 = 1007;
kidForm9 = 1008;
kidForm10 = 1009;
kidForm11 = 1010;
kidForm12 = 1011;
kidFormLast = 1011;
kidOk = 9999;
kidTable = 1000;
kidAlert1 = 1000;
kidMenu1 = 1000;
kidHelp1 = 1000;
kidHelp2 = 1001;
kidBitmap = 1000;
var
kidForm : longint;
function PilotMain(_cmd : Word;_cmdPBP : Ptr;_launchFlags : Word) : DWord;cdecl;public;[alias: 'PilotMain'];
var
b : boolean;
e : EventType;
err : word;
pfrm : PFormType;
ptbl : PTableType;
begin
if _cmd=0 then
begin
kidForm:=kidForm1;
FrmGotoForm(kidForm);
while true do
begin
EvtGetEvent(e,100);
if SysHandleEvent(e)<>0 then
continue;
if MenuHandleEvent(nil,e,err)<>0 then
continue;
case e.eType of
ctlSelectEvent:
begin
if e.data.controlID=kidOk then
begin
inc(kidForm);
if kidForm>kidFormLast then
kidForm:=kidForm1;
FrmGotoForm(kidForm);
end;
if assigned(FrmGetActiveForm) then
FrmHandleEvent(FrmGetActiveForm,e);
end;
frmLoadEvent:
begin
FrmSetActiveForm(FrmInitForm(e.data.formID));
end;
frmOpenEvent:
begin
pfrm:=FrmGetActiveForm;
FrmDrawForm(pfrm);
if e.data.formID=kidForm12 then
begin
ptbl:=PTableType(FrmGetObjectPtr(pfrm, FrmGetObjectIndex(pfrm, kidTable)));
TblSetColumnUsable(ptbl, 0, true);
TblSetColumnUsable(ptbl, 1, true);
TblSetColumnUsable(ptbl, 2, true);
TblSetColumnUsable(ptbl, 3, true);
TblSetColumnUsable(ptbl, 4, true);
TblSetRowUsable(ptbl, 0, true);
TblSetRowUsable(ptbl, 1, true);
TblSetItemStyle(ptbl, 0, 0, textTableItem);
TblSetItemStyle(ptbl, 1, 0, textTableItem);
TblSetItemStyle(ptbl, 2, 0, textTableItem);
TblDrawTable(ptbl);
end;
end;
menuEvent:
FrmAlert(kidAlert1);
appStopEvent:
break;
else
if assigned(FrmGetActiveForm) then
FrmHandleEvent(FrmGetActiveForm,e);
end;
end;
end;
PilotMain:=0;
end;
begin
end.