* first demo

demo/palmos/pilrctst.pp

@@ -0,0 +1,113 @@
+{ Test program for PalmOS support of FPC
+  Ported from pilrctst.c by Florian Klaempfl ([email protected])
+
+  pilrctst.c was made by
+  Wes Cherry ([email protected])
+}
+{$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.