mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-22 09:35:58 +02:00
51 lines
1.6 KiB
ObjectPascal
51 lines
1.6 KiB
ObjectPascal
{ This demo shows the use of special symbol labels }
|
|
program arrowbutton;
|
|
|
|
uses xforms;
|
|
|
|
const border : longint = FL_TRANSIENT;
|
|
|
|
var
|
|
form : PFL_FORM;
|
|
obj,but : PFL_OBJECT;
|
|
|
|
begin
|
|
fl_initialize(@argc, argv, 'FormDemo', nil, 0);
|
|
|
|
form := fl_bgn_form(FL_UP_BOX,400,400);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON, 50, 250,100,100,'@1');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,150, 250,100,100,'@2');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,250, 250,100,100,'@3');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON, 50,150,100,100,'@4');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
but := fl_add_button(FL_NORMAL_BUTTON,150,150,100,100,'@square');
|
|
fl_set_object_lcol(but,FL_GREEN);
|
|
fl_set_object_color(but,FL_MAGENTA,FL_RED);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,250,150,100,100,'@6');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON, 50, 50,100,100,'@7');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,150, 50,100,100,'@8');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
obj := fl_add_button(FL_NORMAL_BUTTON,250, 50,100,100,'@9');
|
|
fl_set_object_lcol(obj,FL_BLUE);
|
|
fl_end_form();
|
|
|
|
fl_show_form(form,FL_PLACE_ASPECT,border,'Buttons');
|
|
while (fl_do_forms() <> but) do;
|
|
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:54 peter
|
|
* old logs removed and tabs fixed
|
|
}
|