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
85
86
87
88
89
|
{ This demo shows the different routines on browsers }
program browserop;
uses xforms;
var
form : PFL_FORM;
browserobj, inputobj, exitobj : PFL_OBJECT;
procedure addit(ob : PFL_OBJECT; arg : longint);cdecl;
begin
{ append and show the last line. Don't use this if you just want
* to add some lines. use fl_add_browser_line
}
fl_addto_browser(browserobj,fl_get_input(inputobj));
end;
procedure insertit(ob : PFL_OBJECT ; arg : longint);cdecl;
var
n : integer;
begin
n:=fl_get_browser(browserobj);
if (n=0) then exit;
fl_insert_browser_line(browserobj,n,fl_get_input(inputobj));
end;
procedure replaceit(obj : PFL_OBJECT; arg : longint);cdecl;
var
n : integer;
begin
n:=fl_get_browser(browserobj);
if (n=0) then exit;
fl_replace_browser_line(browserobj,n,fl_get_input(inputobj));
end;
procedure deleteit(ob : PFL_OBJECT; arg : Longint);cdecl;
var
n : integer;
begin
n:=fl_get_browser(browserobj);
if (n=0) then exit;
fl_delete_browser_line(browserobj,n);
end;
procedure clearit(ob : PFL_OBJECT; arg : longint);cdecl;
begin
fl_clear_browser(browserobj);
end;
procedure create_form;
var
obj : PFL_OBJECT;
begin
form := fl_bgn_form(FL_UP_BOX,390,420);
browserobj := fl_add_browser(FL_HOLD_BROWSER,20,20,210,330,'');
fl_set_object_dblbuffer(browserobj, 1);
obj:= fl_add_input(FL_NORMAL_INPUT,20,370,210,30,'');
inputobj := obj ;
fl_set_object_callback(obj,PFL_CALLBACKPTR(@addit),0);
obj := fl_add_button(FL_NORMAL_BUTTON,250,20,120,30,'Add');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@addit),0);
obj := fl_add_button(FL_NORMAL_BUTTON,250,60,120,30,'Insert');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@insertit),0);
obj := fl_add_button(FL_NORMAL_BUTTON,250,100,120,30,'Replace');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@replaceit),0);
obj := fl_add_button(FL_NORMAL_BUTTON,250,160,120,30,'Delete');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@deleteit),0);
obj := fl_add_button(FL_NORMAL_BUTTON,250,200,120,30,'Clear');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@clearit),0);
exitobj := fl_add_button(FL_NORMAL_BUTTON,250,370,120,30,'Exit');
fl_end_form();
end;
{---------------------------------------}
var obj : PFL_OBJECT;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
create_form;
fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'Browser Op');
repeat
obj := fl_do_forms
until obj = exitobj;
fl_hide_form(form);
end.
|