freepascal.compiler/packages/extra/forms/demo/sliderall.pp

{ 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.
{
  $Log$
  Revision 1.3  2003-10-27 15:48:13  peter
    * renamed forms unit to xforms to prevent conflict with Forms
      from the LCL

  Revision 1.2  2002/09/07 15:42:57  peter
    * old logs removed and tabs fixed

  Revision 1.1  2002/01/29 17:55:02  peter
    * splitted to base and extra

}