fpc/packages/extra/forms/demo/objpos.pp
2003-10-27 15:48:13 +00:00

57 lines
1.2 KiB
ObjectPascal

program objpos;
uses xforms;
const
dx : TFL_Coord = 11 ;
dy : TFL_Coord = 7 ;
procedure move_cb(ob : PFL_OBJECT; data : longint);export;
var
but : PFL_OBJECT;
x,y,w,h : TFL_COORD;
begin
but := PFL_OBJECT (data);
fl_get_object_geometry(but,@x,@y, @w, @h);
if ( (x + dx) < 0) or ( (x+w+dx) >= but^.form^.w) then
dx := -dx;
if ( (y + dy) < 0) or ( (y+h+dy) >= but^.form^.h) then
dy := -dy;
x := x+dx;
y := y+dy;
fl_set_object_position(but,x,y);
end;
var
form : PFL_FORM;
but, obj : PFL_OBJECT ;
begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
form := fl_bgn_form(FL_DOWN_BOX,400,200);
but := fl_add_button(FL_NORMAL_BUTTON,140,160,70,35,'Exit');
obj := fl_add_button(FL_TOUCH_BUTTON,330,150,50,30,'Move');
fl_set_object_callback(obj,PFL_CALLBACKPTR(@move_cb),longint(but));
fl_end_form();
fl_show_form(form,FL_PLACE_MOUSE,FL_NOBORDER,'ObjPos');
fl_do_forms();
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
}