1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- program colsel1;
- uses xforms;
- var form : PFL_FORM;
- topbox : PFL_OBJECT;
- procedure change_color(ob : PFL_OBJECT; col : longint);cdecl;
- begin
- fl_set_object_color(topbox, col, col);
- end;
- procedure makeform;
- var obj : PFL_OBJECT;
- i,j : Integer;
- st : string[32];
- begin
- form := fl_bgn_form(FL_UP_BOX,100,100);
- for i:=0 to 7 do
- for j:=0 to 7 do
- begin
- str (8*j+i,st);
- st:=st+#0;
- obj := fl_add_button(FL_RADIO_BUTTON,11+10*i,15+10*j,8,6,@st[1]);
- fl_set_object_color(obj,8*j+i,8*j+i);
- fl_set_object_lalign(obj,FL_ALIGN_BOTTOM);
- fl_set_object_callback(obj,PFL_CALLBACKPTR(@change_color), (8*j+i));
- end;
- topbox := fl_add_button(FL_NORMAL_BUTTON,30,5,40,8,'The Color Map');
- fl_set_object_lsize(topbox,FL_LARGE_SIZE);
- fl_set_object_lstyle(topbox,FL_BOLD_STYLE);
- fl_end_form;
- end;
- var ret : PFL_OBJECT;
- begin
- fl_initialize(@argc, argv, 'FormDemo', nil, 0);
- makeform;
- fl_scale_form(form, 4.0,4.0);
- fl_show_form(form,FL_PLACE_FREE,FL_NOBORDER,NiL);
- while ret<>topbox do ret := fl_do_forms();
- fl_hide_form(form);
- end.
|