← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to demo/palmos/pilrctst.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
demo/palmos/pilrctst.pp
 
1
{ Test program for PalmOS support of FPC
 
2
  Ported from pilrctst.c by Florian Klaempfl (florian@freepascal.org)
 
3
 
 
4
  pilrctst.c was made by
 
5
  Wes Cherry (wesc@ricochet.net)
 
6
}
 
7
{$APPID FPCA}
 
8
{$APPNAME FPC Demo}
 
9
 
 
10
{$R pilrctst.rcp}
 
11
 
 
12
program pilrctst;
 
13
 
 
14
  uses
 
15
     palm;
 
16
 
 
17
  const
 
18
     kidForm1 = 1000;
 
19
     kidForm2 = 1001;
 
20
     kidForm3 = 1002;
 
21
     kidForm4 = 1003;
 
22
     kidForm5 = 1004;
 
23
     kidForm6 = 1005;
 
24
     kidForm7 = 1006;
 
25
     kidForm8 = 1007;
 
26
     kidForm9 = 1008;
 
27
     kidForm10 = 1009;
 
28
     kidForm11 = 1010;
 
29
     kidForm12 = 1011;
 
30
     kidFormLast = 1011;
 
31
     kidOk = 9999;
 
32
     kidTable = 1000;
 
33
     kidAlert1 = 1000;
 
34
     kidMenu1 = 1000;
 
35
     kidHelp1 = 1000;
 
36
     kidHelp2 = 1001;
 
37
     kidBitmap = 1000;
 
38
 
 
39
  var
 
40
     kidForm : longint;
 
41
 
 
42
  var
 
43
     b : boolean;
 
44
     e : EventType;
 
45
     err : word;
 
46
     pfrm : PFormType;
 
47
     ptbl : PTableType;
 
48
 
 
49
begin
 
50
  kidForm:=kidForm3;
 
51
  FrmGotoForm(kidForm);
 
52
  while true do
 
53
    begin
 
54
      EvtGetEvent(e,100);
 
55
      if SysHandleEvent(e)<>0 then
 
56
        continue;
 
57
      if MenuHandleEvent(nil,e,err)<>0 then
 
58
        continue;
 
59
      case e.eType of
 
60
         ctlSelectEvent:
 
61
           begin
 
62
             if e.data.controlID=kidOk then
 
63
               begin
 
64
                 inc(kidForm);
 
65
                 if kidForm>kidFormLast then
 
66
                   kidForm:=kidForm1;
 
67
                  FrmGotoForm(kidForm);
 
68
                end;
 
69
              if assigned(FrmGetActiveForm) then
 
70
                FrmHandleEvent(FrmGetActiveForm,e);
 
71
           end;
 
72
         frmLoadEvent:
 
73
           begin
 
74
             FrmSetActiveForm(FrmInitForm(e.data.formID));
 
75
           end;
 
76
         frmOpenEvent:
 
77
           begin
 
78
             pfrm:=FrmGetActiveForm;
 
79
             FrmDrawForm(pfrm);
 
80
             if e.data.formID=kidForm12 then
 
81
               begin
 
82
                 ptbl:=PTableType(FrmGetObjectPtr(pfrm, FrmGetObjectIndex(pfrm, kidTable)));
 
83
                 TblSetColumnUsable(ptbl, 0, true);
 
84
                 TblSetColumnUsable(ptbl, 1, true);
 
85
                 TblSetColumnUsable(ptbl, 2, true);
 
86
                 TblSetColumnUsable(ptbl, 3, true);
 
87
                 TblSetColumnUsable(ptbl, 4, true);
 
88
                 TblSetRowUsable(ptbl, 0, true);
 
89
                 TblSetRowUsable(ptbl, 1, true);
 
90
 
 
91
                 TblSetItemStyle(ptbl, 0, 0, textTableItem);
 
92
                 TblSetItemStyle(ptbl, 1, 0, textTableItem);
 
93
                 TblSetItemStyle(ptbl, 2, 0, textTableItem);
 
94
                 TblDrawTable(ptbl);
 
95
               end;
 
96
            end;
 
97
         menuEvent:
 
98
           FrmAlert(kidAlert1);
 
99
         appStopEvent:
 
100
           break;
 
101
         else
 
102
           if assigned(FrmGetActiveForm) then
 
103
             FrmHandleEvent(FrmGetActiveForm,e);
 
104
      end;
 
105
    end;
 
106
end.