mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 19:29:26 +02:00
* first demo
This commit is contained in:
florian
parent
38770359fe
commit
70913018d3
BIN
demo/palmos/pilrc.bmp
Normal file
BIN
demo/palmos/pilrc.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 446 B |
BIN
demo/palmos/pilrcic.bmp
Normal file
BIN
demo/palmos/pilrcic.bmp
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 190 B |
22
demo/palmos/pilrctst.h
Normal file
22
demo/palmos/pilrctst.h
Normal file
@ -0,0 +1,22 @@
|
||||
#define kidForm1 1000
|
||||
#define kidForm2 1001
|
||||
#define kidForm3 1002
|
||||
#define kidForm4 1003
|
||||
#define kidForm5 1004
|
||||
#define kidForm6 1005
|
||||
#define kidForm7 1006
|
||||
#define kidForm8 1007
|
||||
#define kidForm9 1008
|
||||
#define kidForm10 1009
|
||||
#define kidForm11 1010
|
||||
#define kidForm12 1011
|
||||
#define kidFormLast 1011
|
||||
|
||||
#define kidOk 9999
|
||||
#define kidTable 1000
|
||||
|
||||
#define kidAlert1 1000
|
||||
#define kidMenu1 1000
|
||||
#define kidHelp1 1000
|
||||
#define kidHelp2 1001
|
||||
#define kidBitmap 1000
|
||||
85
demo/palmos/pilrctst.pas
Normal file
85
demo/palmos/pilrctst.pas
Normal file
@ -0,0 +1,85 @@
|
||||
/* pilrctst.c: Test program for PilRC
|
||||
*
|
||||
* Wes Cherry
|
||||
* wesc@ricochet.net
|
||||
*/
|
||||
|
||||
#include "pilrctst.h"
|
||||
#include <Common.h>
|
||||
#include <System/SysAll.h>
|
||||
#include <UI/UIAll.h>
|
||||
|
||||
int kidForm;
|
||||
|
||||
|
||||
DWord PilotMain(Word cmd, Ptr cmdPBP, Word launchFlags)
|
||||
|
||||
short err;
|
||||
EventType e;
|
||||
FormType *pfrm;
|
||||
TableType *ptbl;
|
||||
|
||||
|
||||
begin
|
||||
if cmd=0 then
|
||||
begin
|
||||
kidForm:=kidForm1;
|
||||
FrmGotoForm(kidForm);
|
||||
while true do
|
||||
begin
|
||||
EvtGetEvent(@e,100);
|
||||
if SysHandleEvent(@e) then
|
||||
continue;
|
||||
if MenuHandleEvent(nil,@e,@err) then
|
||||
continue;
|
||||
|
||||
case e.eType of
|
||||
ctlSelectEvent:
|
||||
if (e.data.ctlSelect.controlID == kidOk)
|
||||
begin
|
||||
kidForm++;
|
||||
if (kidForm > kidFormLast)
|
||||
kidForm = kidForm1;
|
||||
FrmGotoForm(kidForm);
|
||||
end;
|
||||
goto Dft;
|
||||
frmLoadEvent:
|
||||
FrmSetActiveForm(FrmInitForm(e.data.frmLoad.formID));
|
||||
frmOpenEvent:
|
||||
begin
|
||||
pfrm:=FrmGetActiveForm;
|
||||
FrmDrawForm(pfrm);
|
||||
if e.data.frmLoad.formID=kidForm12 then
|
||||
begin
|
||||
ptbl:=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;
|
||||
case menuEvent:
|
||||
FrmAlert(kidAlert1);
|
||||
break;
|
||||
|
||||
case appStopEvent:
|
||||
return 0;
|
||||
|
||||
default:
|
||||
Dft:
|
||||
if (FrmGetActiveForm())
|
||||
FrmHandleEvent(FrmGetActiveForm(), &e);
|
||||
end
|
||||
end
|
||||
end
|
||||
return 0;
|
||||
end
|
||||
|
||||
283
demo/palmos/pilrctst.rcp
Normal file
283
demo/palmos/pilrctst.rcp
Normal file
@ -0,0 +1,283 @@
|
||||
// pilrctst.rcp
|
||||
// Script to test and demonstrate PilRC
|
||||
// Wes Cherry
|
||||
// wesc@ricochet.net
|
||||
|
||||
#include "pilrctst.h"
|
||||
|
||||
FORM ID kidForm1 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest 1 (LABEL)"
|
||||
LABEL "Font 0" ID 2000 AT (CENTER 20) FONT 0
|
||||
LABEL "Font 1" ID 2001 AT (CENTER PREVBOTTOM+1) FONT 1
|
||||
LABEL "Font 2" ID 2002 AT (CENTER PREVBOTTOM+1) FONT 2
|
||||
LABEL "\001\002\003\004\005\006" ID 2002 AT (CENTER PREVBOTTOM+1) FONT 3
|
||||
LABEL "\001\002\003\004\005\006" ID 2002 AT (CENTER PREVBOTTOM+1) FONT 4
|
||||
LABEL "\001\002\003\004\005\006" ID 2002 AT (CENTER PREVBOTTOM+1) FONT 5
|
||||
LABEL "Nonusable should be hidden" ID 2003 AT (CENTER PREVBOTTOM+1) FONT 0 NONUSABLE
|
||||
|
||||
LABEL "Font0" ID 2003 AT (10 PREVBOTTOM+1) FONT 0
|
||||
LABEL "Font1" ID 2003 AT (PREVRIGHT+1 PREVTOP) FONT 1
|
||||
LABEL "Font2" ID 2003 AT (PREVRIGHT+1 PREVTOP) FONT 2
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm2 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (BUTTON)"
|
||||
BUTTON "FrameButton1" ID 2000 AT (CENTER 20 AUTO AUTO) FRAME
|
||||
BUTTON "NoFrameButton1" ID 2001 AT (CENTER PREVBOTTOM+2 AUTO AUTO) NOFRAME
|
||||
BUTTON "BoldFrameButton1" ID 2002 AT (CENTER PREVBOTTOM+2 AUTO AUTO) BOLDFRAME
|
||||
BUTTON "LeftAnchor" ID 2003 AT (10 PREVBOTTOM+2 100 AUTO) LEFTANCHOR
|
||||
BUTTON "RightAnchor" ID 2004 AT (10 PREVBOTTOM+1 100 AUTO) RIGHTANCHOR
|
||||
BUTTON "Disabled" ID 2005 AT (10 PREVBOTTOM+1 100 AUTO) DISABLED
|
||||
|
||||
BUTTON "NonUsable should be hidden" ID 2006 AT (CENTER PREVBOTTOM+1 AUTO AUTO) NONUSABLE
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm3 AT (2 2 156 156)
|
||||
USABLE
|
||||
NOFRAME
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (PUSHBUTTON)"
|
||||
PUSHBUTTON "aGroup 1" ID 2000 AT (CENTER 20 AUTO AUTO) GROUP 1
|
||||
PUSHBUTTON "bGroup 1" ID 2001 AT (CENTER PREVBOTTOM+2 AUTO AUTO) GROUP 1
|
||||
PUSHBUTTON "cGroup 1" ID 2002 AT (CENTER PREVBOTTOM+2 AUTO AUTO) GROUP 1
|
||||
PUSHBUTTON "dGroup 1 Disabled" ID 2003 AT (CENTER PREVBOTTOM+1 AUTO AUTO) DISABLED GROUP 1
|
||||
|
||||
PUSHBUTTON "aLeftAnchor" ID 2004 AT (10 PREVBOTTOM+2 100 AUTO) LEFTANCHOR GROUP 2
|
||||
PUSHBUTTON "bRightAnchor" ID 2005 AT (10 PREVBOTTOM+1 100 AUTO) RIGHTANCHOR GROUP 2
|
||||
PUSHBUTTON "cNonUsable should be hidden" ID 2006 AT (CENTER PREVBOTTOM+1 AUTO AUTO) NONUSABLE GROUP 2
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm4 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (CHECKBOX)"
|
||||
CHECKBOX "Checkbox" ID 2007 AT (CENTER 15 AUTO AUTO)
|
||||
CHECKBOX "Checkbox Checked" ID 2008 AT (CENTER PREVBOTTOM+2 AUTO AUTO) CHECKED
|
||||
CHECKBOX "Disabled Check" ID 2009 AT (CENTER PREVBOTTOM+2 AUTO AUTO) DISABLED
|
||||
|
||||
CHECKBOX "Checkbox Group1" ID 2010 AT (CENTER PREVBOTTOM+2 AUTO AUTO) GROUP 1
|
||||
CHECKBOX "CheckboxGroup1" ID 2011 AT (CENTER PREVBOTTOM+2 AUTO AUTO) GROUP 1
|
||||
CHECKBOX "Checkbox Group2" ID 2012 AT (CENTER PREVBOTTOM+3 AUTO AUTO) GROUP 2
|
||||
CHECKBOX "Checkbox Group2" ID 2013 AT (CENTER PREVBOTTOM+2 AUTO AUTO) GROUP 2
|
||||
|
||||
CHECKBOX "LeftAnchor" ID 2014 AT (10 PREVBOTTOM+2 100 AUTO) LEFTANCHOR
|
||||
CHECKBOX "RightAnchor" ID 2015 AT (10 PREVBOTTOM+1 100 AUTO) RIGHTANCHOR
|
||||
CHECKBOX "NonUsable should be hidden" ID 2016 AT (CENTER PREVBOTTOM+1 AUTO AUTO) NONUSABLE
|
||||
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm5 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (POPUPTRIGGER)"
|
||||
LABEL "POPUPTRIGGER" ID 500 AT (10 20)
|
||||
POPUPTRIGGER "Item1" ID 1000 AT (PrevRight+4 PrevTop 62 AUTO) LEFTANCHOR
|
||||
LIST "Item1" "Item2" "Item3" "Item4" ID 2000 AT (PrevLeft PrevTop 52 1) NONUSABLE VISIBLEITEMS 4
|
||||
POPUPLIST 1000 2000
|
||||
|
||||
LABEL "POPUPTRIGGER" ID 500 AT (10 PREVBOTTOM+20)
|
||||
POPUPTRIGGER "Item1" ID 3000 AT (PrevRight+4 PrevTop 62 AUTO) LEFTANCHOR
|
||||
LIST "Item1" "Item2" "Item3" "Item4" "Item5" "Item6" ID 4000 AT (PrevLeft PrevTop 52 1) NONUSABLE VISIBLEITEMS 4
|
||||
POPUPLIST 3000 4000
|
||||
|
||||
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm6 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (LIST)"
|
||||
LIST "Item1" "Item2" "Item3" "Item4" ID 4000 AT (10 20 52 1) VISIBLEITEMS 4
|
||||
LIST "Item1" "Item2" "Item3" "Item4" "Item5" "Item6" ID 4001 AT (PrevRight+10 PrevTop 52 1) VISIBLEITEMS 4
|
||||
LIST "Disabled" "Item2" "Item3" "Item4" "Item5" "Item6" ID 4002 AT (10 Prevbottom+10 52 1) VISIBLEITEMS 4 DISABLED
|
||||
LIST "Unusable" "Item2" "Item3" "Item4" "Item5" "Item6" ID 4003 AT (PrevRight+10 PrevTop 52 1) NONUSABLE VISIBLEITEMS 4
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm7 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (SELECTORTRIGGER)"
|
||||
|
||||
SELECTORTRIGGER "SelectorTrigger" ID 2000 AT (CENTER 20 AUTO AUTO)
|
||||
SELECTORTRIGGER "LeftAnchor" ID 2001 AT (10 PREVBOTTOM+2 100 AUTO) LEFTANCHOR
|
||||
SELECTORTRIGGER "RightAnchor" ID 2002 AT (10 PREVBOTTOM+1 100 AUTO) RIGHTANCHOR
|
||||
SELECTORTRIGGER "Disabled" ID 2003 AT (10 PREVBOTTOM+1 100 AUTO) DISABLED
|
||||
SELECTORTRIGGER "NONUSABLE" ID 2004 AT (10 PREVBOTTOM+1 100 AUTO) NONUSABLE
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
END
|
||||
|
||||
FORM ID kidForm8 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (REPEATBUTTON)"
|
||||
|
||||
REPEATBUTTON "\001" ID 1000 AT (CENTER 15 AUTO AUTO) FONT 5 NOFRAME
|
||||
REPEATBUTTON "\002" ID 1001 AT (CENTER PREVBOTTOM-1 AUTO AUTO) FONT 5 NOFRAME
|
||||
|
||||
REPEATBUTTON "\001" ID 1010 AT (CENTER PREVBOTTOM+3 AUTO AUTO) FONT 5 FRAME
|
||||
REPEATBUTTON "\002" ID 1011 AT (CENTER PREVBOTTOM+1 AUTO AUTO) FONT 5 FRAME
|
||||
|
||||
REPEATBUTTON "\001" ID 1020 AT (CENTER PREVBOTTOM+3 AUTO AUTO) FONT 5 BOLDFRAME
|
||||
REPEATBUTTON "\002" ID 1021 AT (CENTER PREVBOTTOM+2 AUTO AUTO) FONT 5 BOLDFRAME
|
||||
|
||||
REPEATBUTTON "Disabled" ID 1030 AT (CENTER PREVBOTTOM+3 AUTO AUTO) DISABLED
|
||||
REPEATBUTTON "Disabled" ID 1031 AT (CENTER PREVBOTTOM+1 AUTO AUTO) DISABLED
|
||||
|
||||
REPEATBUTTON "Nonusable" ID 1040 AT (CENTER PREVBOTTOM+3 AUTO AUTO) NONUSABLE
|
||||
REPEATBUTTON "Nonusable" ID 1041 AT (CENTER PREVBOTTOM+1 AUTO AUTO) NONUSABLE
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm9 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (FIELD)"
|
||||
|
||||
FIELD ID 1000 AT (10 15 140 20) LEFTALIGN UNDERLINED SINGLELINE MAXCHARS 20
|
||||
FIELD ID 1001 AT (10 PREVBOTTOM+1 140 20) RIGHTALIGN UNDERLINED SINGLELINE MAXCHARS 40
|
||||
FIELD ID 1002 AT (10 PREVBOTTOM+1 140 20) NONUSABLE UNDERLINED SINGLELINE MAXCHARS 40
|
||||
FIELD ID 1003 AT (10 PREVBOTTOM+1 140 20) SINGLELINE MAXCHARS 40
|
||||
|
||||
FIELD ID 1004 AT (10 PREVBOTTOM+2 130 40) MULTIPLELINES UNDERLINED MAXCHARS 200 FONT 2
|
||||
GRAFFITISTATEINDICATOR AT (130 150)
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm10 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (FORMBITMAP)"
|
||||
|
||||
FORMBITMAP AT (10 15) BITMAP kidBitmap
|
||||
FORMBITMAP AT (10 80) BITMAP kidBitmap NONUSABLE
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm11 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (GADGET)"
|
||||
|
||||
GADGET ID 1000 AT (10 15 140 50) USABLE
|
||||
GADGET ID 1001 AT (10 55 140 50) NONUSABLE
|
||||
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
FORM ID kidForm12 AT (2 2 156 156)
|
||||
USABLE
|
||||
MODAL
|
||||
HELPID kidHelp1
|
||||
MENUID kidMenu1
|
||||
BEGIN
|
||||
TITLE "PilrcTest (TABLE)"
|
||||
|
||||
TABLE ID kidTable AT (10 15 140 100) ROWS 10 COLUMNS 5 COLUMNWIDTHS 50 30 30 40 20
|
||||
|
||||
BUTTON "Ok" ID kidOk AT (CENTER 140 AUTO AUTO)
|
||||
|
||||
END
|
||||
|
||||
|
||||
MENU ID kidMenu1
|
||||
BEGIN
|
||||
PULLDOWN "File"
|
||||
BEGIN
|
||||
MENUITEM "Open..." 5000 "O"
|
||||
MENUITEM SEPARATOR
|
||||
MENUITEM "Close" 5002
|
||||
END
|
||||
PULLDOWN "Edit"
|
||||
BEGIN
|
||||
MENUITEM "Undo" 6000 "U"
|
||||
MENUITEM "Cut" 6001 "X"
|
||||
MENUITEM "Copy" 6002 "C"
|
||||
MENUITEM "Paste" 6003"P"
|
||||
MENUITEM SEPARATOR
|
||||
MENUITEM "Keyboard" 6004"K"
|
||||
END
|
||||
END
|
||||
|
||||
ALERT kidAlert1
|
||||
HELPID kidHelp2
|
||||
INFORMATION
|
||||
BEGIN
|
||||
TITLE "Bummer!"
|
||||
MESSAGE "Them there Menu items don't do nothin."
|
||||
BUTTONS "Ok" "Continue"
|
||||
END
|
||||
|
||||
STRING kidHelp1 "This is a test form for PilRC.\n"\
|
||||
"by Wes Cherry\n"\
|
||||
"wesc@ricochet.net"
|
||||
|
||||
STRING kidHelp2 "Yes, there's nothing hooked up to the menu commands!"
|
||||
|
||||
// This bitmap is referenced by kidForm10
|
||||
BITMAP ID kidBitmap "pilrc.bmp"
|
||||
|
||||
ICON "pilrcic.bmp"
|
||||
|
||||
VERSION 1 "0.2.1"
|
||||
Loading…
Reference in New Issue
Block a user