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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
{ This demo shows the use of a browser and a file selector.
}
program fbrowse;
uses xforms,strings;
var
form : PFL_FORM;
br : PFL_OBJECT;
procedure load_file(ob : PFL_OBJECT; arg : longint);cdecl;
var
fname : pchar;
begin
fname := fl_show_fselector ('File To Load','','*.*','');
if (fname = nil) then exit;
if (fl_load_browser(br,fname)<>0) then
fl_add_browser_line(br,'NO SUCH FILE!');
end;
procedure set_size(ob : PFL_OBJECT; arg : longint);cdecl;
begin
fl_set_browser_fontsize(br,arg);
end;
procedure exit_program(ob : PFL_OBJECT; data : longint);cdecl;
begin
halt(0);
end;
procedure create_form;
var
obj : PFL_OBJECT;
x,dx : TFL_Coord;
begin
x := 20;
dx := 85;
form := fl_bgn_form(FL_NO_BOX,590,610);
obj := fl_add_box(FL_UP_BOX,0,0,590,610,'');
obj := fl_add_browser(FL_NORMAL_BROWSER,20,20,550,530,'');
br := obj ;
obj := fl_add_button(FL_NORMAL_BUTTON,x,560,dx,30,'Load');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@load_file),0);
x :=x+ dx + 10;
obj := fl_add_lightbutton(FL_RADIO_BUTTON,x,560,dx,30,'Tiny');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),FL_TINY_SIZE);
x := x+dx;
obj := fl_add_lightbutton(FL_RADIO_BUTTON,x ,560,dx,30,'Small');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),FL_SMALL_SIZE);
{ Compiler crashes on the next one. Probably the comparing of the
constants..
if (longint(FL_SMALL_SIZE)=longint(FL_BROWSER_FONTSIZE)) then
fl_set_button(obj, 1);
} x := x+dx;
obj := fl_add_lightbutton(FL_RADIO_BUTTON,x ,560,dx,30,'Normal');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),FL_NORMAL_SIZE);
{ idem here.
if FL_NORMAL_SIZE = FL_BROWSER_FONTSIZE then
fl_set_button(obj,1 );
} x := x+dx;
obj := fl_add_lightbutton(FL_RADIO_BUTTON,x ,560,dx,30,'Large');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),FL_LARGE_SIZE);
obj := fl_add_button(FL_NORMAL_BUTTON,470,560,100,30,'Exit');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@exit_program), 0);
fl_end_form();
end;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
create_form();
fl_clear_browser(br);
fl_add_browser_line(br,'LOAD A FILE.');
fl_set_browser_fontstyle(br,FL_FIXED_STYLE);
fl_show_form(form,FL_PLACE_FREE,FL_FULLBORDER,'Browser');
fl_do_forms();
fl_hide_form(form);
fl_free_form(form);
end.
|
