5
type TFD_bwform = record
14
PFD_bwform = ^TFD_bwform;
17
{ callbacks for form bwform }
18
procedure done_callback(ob : PFL_OBJECT; data : longint);export;
20
{ fill-in code for callback }
25
fd_bwform : PFD_bwform;
27
const bws : array[0..7] of longint = (-3,-2,-1,1,2,3,4,5);
29
procedure bw_callback(ob : PFL_OBJECT; data : longint);export;
34
bw := bws[fl_get_choice(ob)-1];
36
fl_set_object_bw(fd_bwform^.bwgroup, bw);
37
{ since bwgroup includes the backface, it wipes out the done button}
38
fl_redraw_object(fd_bwform^.done);
39
fl_redraw_object(fd_bwform^.bw_choice);
42
function create_form_bwform : PFD_bwform;
50
fdui^.bwform := fl_bgn_form(FL_NO_BOX, 380, 340);
52
fdui^.bwgroup := fl_bgn_group();
53
obj := fl_add_box(FL_UP_BOX,0,0,380,340,'');
54
obj := fl_add_frame(FL_EMBOSSED_FRAME,220,60,135,145,'');
55
obj := fl_add_frame(FL_ENGRAVED_FRAME,15,60,185,145,'');
56
obj := fl_add_slider(FL_HOR_SLIDER,25,75,160,25,'');
57
obj := fl_add_pixmapbutton(FL_NORMAL_BUTTON,305,145,40,35,'');
59
obj := fl_add_positioner(FL_NORMAL_POSITIONER,30,225,100,80,'');
60
obj := fl_add_counter(FL_NORMAL_COUNTER,25,160,160,25,'');
61
obj := fl_add_lightbutton(FL_PUSH_BUTTON,230,100,100,30,'LightButton');
62
obj := fl_add_roundbutton(FL_PUSH_BUTTON,230,130,80,33,'Button');
63
obj := fl_add_round3dbutton(FL_PUSH_BUTTON,230,152,80,33,'Button');
64
fl_set_object_color(obj,FL_COL1, FL_BLUE);
65
obj := fl_add_checkbutton(FL_PUSH_BUTTON,230,174,80,33,'Button');
66
obj := fl_add_input(FL_NORMAL_INPUT,195,240,160,28,'Input');
67
obj := fl_add_valslider(FL_HOR_BROWSER_SLIDER,25,120,160,25,'');
68
obj := fl_add_button(FL_NORMAL_BUTTON,230,65,100,30,'Button');
71
obj := fl_add_button(FL_NORMAL_BUTTON,270,290,75,30,'Done');
73
fl_set_object_callback(obj,PFL_CALLBACKPTR(@done_callback),0);
74
obj:= fl_add_choice(FL_NORMAL_CHOICE,105,20,80,25,'Border Width');
75
fdui^.bw_choice := obj ;
76
fl_set_object_callback(obj,PFL_CALLBACKPTR(@bw_callback),0);
78
fdui^.bwform^.fdui := fdui;
80
create_form_bwform:= fdui;
84
{ application default. Can be overriden by the command line options }
85
fl_set_border_width(-2);
87
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
88
fd_bwform := create_form_bwform;
90
{ fill-in form initialization code }
91
fl_set_pixmapbutton_file(fd_bwform^.pmobj, 'crab.xpm');
93
fl_addto_choice(fd_bwform^.bw_choice,'-3 Pixel|-2 Pixel|-1 Pixel');
94
fl_addto_choice(fd_bwform^.bw_choice,' 1 Pixel| 2 Pixel| 3 Pixel');
95
fl_addto_choice(fd_bwform^.bw_choice,' 4 Pixel| 5 Pixel');
96
fl_set_choice_text(fd_bwform^.bw_choice, '-2 Pixel');
98
{ show the first form }
99
fl_show_form(fd_bwform^.bwform,FL_PLACE_CENTER,FL_NOBORDER,'bwform');
100
while (fl_do_forms<>nil) do;
103
$Log: borderwidth.pp,v $
104
Revision 1.3 2003/10/27 15:48:13 peter
105
* renamed forms unit to xforms to prevent conflict with Forms
108
Revision 1.2 2002/09/07 15:42:54 peter
109
* old logs removed and tabs fixed
111
Revision 1.1 2002/01/29 17:55:00 peter
112
* splitted to base and extra