mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 17:53:43 +02:00
76 lines
2.9 KiB
ObjectPascal
76 lines
2.9 KiB
ObjectPascal
{ This demo shows the different types of sliders }
|
|
|
|
program sliderall;
|
|
|
|
uses xforms;
|
|
|
|
var
|
|
form : PFL_FORM;
|
|
exitobj : PFL_OBJECT;
|
|
|
|
procedure create_form_form;
|
|
var
|
|
obj : PFL_OBJECT;
|
|
begin
|
|
form := fl_bgn_form(FL_NO_BOX,780,320);
|
|
obj := fl_add_box(FL_UP_BOX,0,0,780,320,'');
|
|
fl_set_object_color(obj,FL_PALEGREEN,FL_COL1);
|
|
obj := fl_add_box(FL_SHADOW_BOX,20,30,360,270,'SLIDER');
|
|
fl_set_object_color(obj,FL_SLATEBLUE,47);
|
|
fl_set_object_lalign(obj,FL_ALIGN_TOP);
|
|
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
|
|
obj := fl_add_box(FL_SHADOW_BOX,390,30,370,270,'VALSLIDER');
|
|
fl_set_object_color(obj,FL_SLATEBLUE,FL_COL1);
|
|
fl_set_object_lalign(obj,FL_ALIGN_TOP);
|
|
fl_set_object_lstyle(obj,FL_BOLD_STYLE);
|
|
obj := fl_add_slider(FL_VERT_SLIDER,30,50,40,220,'vert');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_slider(FL_VERT_FILL_SLIDER,80,50,40,220,'vert_fill');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_slider(FL_HOR_SLIDER,180,50,190,40,'hor');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_slider(FL_HOR_FILL_SLIDER,180,110,190,40,'hor_fill');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_valslider(FL_VERT_NICE_SLIDER,610,50,30,220,'vert_nice');
|
|
fl_set_object_boxtype(obj,FL_FLAT_BOX);
|
|
fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
|
|
obj := fl_add_valslider(FL_VERT_FILL_SLIDER,660,50,40,220,'vert_fill');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
|
|
obj := fl_add_valslider(FL_HOR_SLIDER,400,50,190,40,'hor');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_valslider(FL_HOR_FILL_SLIDER,400,110,190,40,'hor_fill');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
obj := fl_add_valslider(FL_HOR_BROWSER_SLIDER,400,220,190,25,'hor_browser');
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,450,260,100,30,'Exit');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_RED);
|
|
exitobj:=obj;
|
|
obj := fl_add_slider(FL_VERT_NICE_SLIDER,130,50,30,220,'vert_nice');
|
|
fl_set_object_boxtype(obj,FL_FLAT_BOX);
|
|
fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
|
|
obj := fl_add_slider(FL_HOR_NICE_SLIDER,180,170,190,30,'hor_nice');
|
|
fl_set_object_boxtype(obj,FL_FLAT_BOX);
|
|
fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
|
|
obj := fl_add_slider(FL_HOR_BROWSER_SLIDER,180,220,190,25,'hor_browser');
|
|
obj := fl_add_valslider(FL_HOR_NICE_SLIDER,400,170,190,30,'hor_nice');
|
|
fl_set_object_boxtype(obj,FL_FLAT_BOX);
|
|
fl_set_object_color(obj,FL_SLATEBLUE,FL_INDIANRED);
|
|
obj := fl_add_valslider(FL_VERT_SLIDER,710,50,40,220,'vert');
|
|
fl_set_object_color(obj,FL_INDIANRED,FL_PALEGREEN);
|
|
fl_end_form;
|
|
end;
|
|
|
|
|
|
var obj : PFL_OBJECT;
|
|
|
|
begin
|
|
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
|
|
create_form_form;
|
|
|
|
fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,'All Sliders');
|
|
repeat
|
|
obj := fl_do_forms;
|
|
until (obj = exitobj);
|
|
fl_hide_form(form);
|
|
end.
|