diff options
Diffstat (limited to 'packages/xforms/examples/browserall.pp')
| -rw-r--r-- | packages/xforms/examples/browserall.pp | 178 |
1 files changed, 178 insertions, 0 deletions
diff --git a/packages/xforms/examples/browserall.pp b/packages/xforms/examples/browserall.pp new file mode 100644 index 0000000000..05a475652e --- /dev/null +++ b/packages/xforms/examples/browserall.pp @@ -0,0 +1,178 @@ +{ This is a demo that shows the different types of browsers. } + + +uses xforms,strings; + +var +form : PFL_FORM; +br : array[0..3] of PFL_OBJECT; +exitobj, readout : PFL_OBJECT; + + +const +bnames : array[0..3] of pchar = +( + 'NORMAL_BROWSER', 'SELECT_BROWSER', 'HOLD_BROWSER', 'MULTI_BROWSER' +); + + +procedure deselect(obj : PFL_OBJECT ; arg : longint);cdecl; +var + i : longint ; +begin + for i:=0 to 3 do + fl_deselect_browser(br[i]); +end; + +procedure set_size(obj : PFL_OBJECT; arg : longint);cdecl; +var + i : longint; +begin + for i:=0 to 3 do + fl_set_browser_fontsize(br[i],arg); +end; + +procedure set_style(obj : PFL_OBJECT; arg : longint);cdecl; +var + i : longint; + +begin + for i:=0 to 3 do + fl_set_browser_fontstyle(br[i], arg); +end; + +procedure br_callback(ob : PFL_OBJECT; arg : longint);cdecl; +var + buf : string[255]; +const + mb : array[0..3] of pchar = ('','left','middle','right'); + +var i,b : longint; + +begin + b:=fl_mouse_button; + if (b < FL_SHORTCUT) then + buf :='In '+strpas(bnames[arg]) +'['+strpas(mb[b])+']'#0 + else + buf:='In '+strpas(bnames[arg])+#0; + i := fl_get_browser(ob); + if i>0 then + begin + buf:=buf+strpas(fl_get_browser_line(ob,i)); + buf:=buf+' was selected'#0 + end + else + begin + buf:=buf+strpas(fl_get_browser_line(ob,-i)); + buf:=buf+' was deselected'#0 + end; + fl_set_object_label(readout,@buf[1]); +end; + + +procedure create_form; +var + obj : PFL_OBJECT; + +begin + form := fl_bgn_form(FL_UP_BOX,700,570); + readout := fl_add_text(FL_NORMAL_TEXT,50,30,600,50,''); + fl_set_object_lsize(readout,FL_LARGE_SIZE); + fl_set_object_lalign(readout,FL_ALIGN_CENTER); + fl_set_object_lstyle(readout,FL_BOLD_STYLE); + fl_set_object_boxtype(readout,FL_UP_BOX); + + fl_set_object_color(readout,FL_MAGENTA,FL_MAGENTA); + + obj:= fl_add_browser(FL_NORMAL_BROWSER,20,120,150,290,bnames[0]); + br[0] := obj ; + fl_set_object_callback(obj, PFL_CALLBACKPTR(@br_callback), 0); + obj:= fl_add_browser(FL_SELECT_BROWSER,190,120,150,290,bnames[1]); + br[1] := obj ; + fl_set_object_callback(obj, PFL_CALLBACKPTR(@br_callback), 1); + obj := fl_add_browser(FL_HOLD_BROWSER,360,120,150,290,bnames[2]); + br[2] := obj ; + fl_set_object_color(obj,FL_COL1,FL_GREEN); + fl_set_object_callback(obj, PFL_CALLBACKPTR(@br_callback), 2); + obj := fl_add_browser(FL_MULTI_BROWSER,530,120,150,290,bnames[3]); + br[3] := obj; + fl_set_object_color(br[3],FL_COL1,FL_CYAN); + fl_set_object_callback(obj, PFL_CALLBACKPTR(@br_callback), 3); + + obj := fl_add_button(FL_NORMAL_BUTTON,560,510,120,30,'Exit'); + exitobj := obj; + obj := fl_add_button(FL_NORMAL_BUTTON,560,460,120,30,'Deselect'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@deselect),0); + + fl_bgn_group(); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,20,500,100,30,'Tiny'); + fl_set_object_lsize(obj,FL_TINY_SIZE); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),obj^.lsize); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,130,500,100,30,'Small'); + fl_set_object_lsize(obj,FL_SMALL_SIZE); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),obj^.lsize); + fl_set_button(obj,1); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,240,500,100,30,'Normal'); + fl_set_object_lsize(obj,FL_NORMAL_SIZE); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),obj^.lsize); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,350,500,100,30,'Large'); + fl_set_object_lsize(obj,FL_LARGE_SIZE); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_size),obj^.lsize); + fl_end_group; + + fl_bgn_group; + obj := fl_add_lightbutton(FL_RADIO_BUTTON,20,450,100,30,'Normal'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_style),FL_NORMAL_STYLE); + fl_set_button(obj,1); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,120,450,100,30,'Bold'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_style),FL_BOLD_STYLE); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,220,450,100,30,'Italic'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_style),FL_ITALIC_STYLE); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,320,450,100,30,'BoldItalic'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_style),FL_BOLDITALIC_STYLE); + obj := fl_add_lightbutton(FL_RADIO_BUTTON,420,450,100,30,'Fixed'); + fl_set_object_callback(obj,PFL_CALLBACKPTR(@set_style),FL_FIXED_STYLE); + fl_end_group; + fl_end_form; +end; + + +procedure fill_browsers; +var + i, j : longint; + buf : string[128]; + +begin + for i:=0 to 3 do + for j:=1 to 100 do + begin + if ( j = 5) then + begin + str(j,buf); + buf:='@NLine with qb '+buf+#0; + end + else if ( j = 10) then + buf:='@-'#0 + else if ( j = 40 ) then + begin + str(j,buf); + buf:='@mLine with qb '+buf+#0; + end + else + begin + str(j,buf); + buf:='Line with qb '+buf+#0; + end; + fl_add_browser_line(br[i],@buf[1]); + end +end; + + +begin + fl_initialize(@argc, argv, 'FormDemo', nil, 0); + create_form; + fill_browsers; + fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'All Browsers'); + fl_do_forms; + fl_hide_form(form); +end. |