{ 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.