3
uses triton, tritonmacros, utility;
6
A demo in FPC Pascal using triton.library
11
nils.sjoholm@mailbox.swipnet.se
18
Project : pTR_Project;
23
procedure CleanUp(why : string; err : longint);
25
if assigned(Project) then TR_CloseProject(Project);
26
if assigned(App) then TR_DeleteApp(App);
27
if why <> '' then writeln(why);
33
App := TR_CreateAppTags([TRCA_Name,'Triton CheckBox',
35
TRCA_Date,'03-06-1998',
38
if App = nil then CleanUp('Can''t create application',20);
42
WindowTitle('CheckBox');
47
TextID('_CheckBox',10);
56
Project := TR_OpenProject(App,@tritontags);
57
IF Project = NIL THEN CleanUp('Can''t create Project',20);
59
WHILE NOT close_me DO BEGIN
60
dummy := TR_Wait(App,0);
62
trmsg := TR_GetMsg(App);
63
IF trmsg <> NIL THEN BEGIN
64
IF (trmsg^.trm_Project = Project) THEN BEGIN
65
CASE trmsg^.trm_Class OF
66
TRMS_CLOSEWINDOW : begin
67
if TR_GetCheckBox(Project,10) then
68
writeln('CheckBox was on')
69
else writeln('CheckBox was off');
72
TRMS_ERROR: WriteLN(TR_GetErrorString(trmsg^.trm_Data));
74
IF trmsg^.trm_ID = 10 then begin
75
if trmsg^.trm_Data = 0 then
76
writeln('CheckBox off')
77
else writeln('CheckBox on');
84
UNTIL close_me OR (trmsg = NIL);