{ Form definition file generated with fdesign. }
program flclock;

uses xforms;

var
 fclock : PFL_FORM;

procedure exit_cb (ob : PFL_OBJECT; q : longint);export;
begin
   halt(0);
end;

procedure create_form_clock;
var
  obj : PFL_OBJECT;

begin
  if (fclock<>nil) then exit;

  fclock := fl_bgn_form(FL_NO_BOX,500,350);
  obj := fl_add_box(FL_UP_BOX,0,0,500,350,'');

  obj := fl_add_clock(FL_DIGITAL_CLOCK,190,20,140,30,'');
  fl_set_object_boxtype(obj,FL_ROUNDED_BOX);
  fl_set_object_color(obj,FL_COL1,FL_BLACK);
  fl_set_object_lsize(obj,FL_MEDIUM_SIZE);
  fl_set_object_lstyle(obj,FL_BOLD_STYLE);

  obj := fl_add_clock(FL_ANALOG_CLOCK,30,70,220,200,'');
  fl_set_object_boxtype(obj,FL_UP_BOX);

  obj := fl_add_clock(FL_ANALOG_CLOCK,260,70,220,200,'');
  fl_set_object_boxtype(obj,FL_OVAL_BOX);
  obj := fl_add_button(FL_NORMAL_BUTTON,380,300,100,30,'Exit');
  fl_set_object_callback(obj, PFL_CALLBACKPTR(@exit_cb), 0);
  fl_end_form;
end;

begin
    fl_initialize(@argc, argv, 'FormDemo', nil, 0);

    create_form_clock();
    fl_set_form_dblbuffer(fclock, 1);
    fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks');
    fl_do_forms();
end.
{
  $Log: flclock.pp,v $
  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:55  peter
    * old logs removed and tabs fixed

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

}
