1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
Program goodies;
{ This demo program uses the routines in the
goodies section, that help you create easy
forms in an even easier way.
}
uses xforms,strings;
var
choice : Longint;
str1,str2 : string[100];
s : pchar;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
fl_set_resource(FLOKLabel,'Go');
if (fl_show_question('Do you want bold font ?',1)<>0) then
fl_set_goodies_font(FL_BOLD_STYLE,FL_NORMAL_SIZE);
fl_show_messages('This is a test program for the goodies of the forms library');
fl_show_alert('Alert', 'Alert form can be used to inform',
'recoverable errors', 0);
if (fl_show_question('Do you want to quit?', 0)<>0) then
halt(0);
s:=fl_show_input('Give a string:','');
if s<>nil then strcopy(@str1[1],s);
fl_show_message('You typed:','',@str1[1]);
choice := fl_show_choices('Pick a choice',3,'One','Two','Three',2);
case choice of
1: fl_show_message('You typed: One','','');
2: fl_show_message('You typed: Two','','');
3: fl_show_message('You typed: Three','','');
else
begin
fl_show_message('An error occured!','','');
end
end;
str1:='<Cancel>'#0;
s:=fl_show_input('Give another string:',@str1[1]);
if s<>nil then s:=@str1[1];
fl_show_message('You typed:','',s);
fl_show_messages('Good Bye');
end.
|
