program minput;

uses forms;

procedure input_cb( ob : PFL_OBJECT; data : Longint);export;

var 
    x, y : Longint;
begin
    fl_get_input_cursorpos(ob, @x , @y);
    writeln ('x= ',x,' y= ',y);
end;


var 
  form : PFL_FORM;
  but, obj : PFL_OBJECT;

begin
  fl_initialize(@argc, argv, 'FormDemo', nil, 0);
  form := fl_bgn_form(FL_UP_BOX,400,450);
    obj := fl_add_input(FL_MULTILINE_INPUT,30,270,340,150,'');
    obj := fl_add_input(FL_MULTILINE_INPUT,30,90,340,150,'');
    fl_set_object_lsize(obj, FL_NORMAL_SIZE);
  but := fl_add_button(FL_NORMAL_BUTTON,160,30,80,30,'Exit');
  fl_end_form();
  fl_show_form(form,FL_PLACE_CENTERFREE,FL_FULLBORDER,'MultiLineInput');
  while (obj <> but) do obj:=fl_do_forms;
end.
  $Log: minput.pp,v $
  Revision 1.1  2002/01/29 17:55:01  peter
    * splitted to base and extra

  Revision 1.2  2000/07/13 11:33:14  michael
  + removed logs
 
}
