paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 18:01:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* all callbacks changed from export; to cdecl because of 7640

Browse Source 
git-svn-id: trunk@5424 -
This commit is contained in:
marco 2006-11-18 20:15:23 +00:00
parent 940f82a473
commit a2c03515e5
32 changed files with 74 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/extra/forms/demo/borderwidth.pp
View File

@ -15,7 +15,7 @@ PFD_bwform = ^TFD_bwform;
{ callbacks for form bwform } { callbacks for form bwform }
procedure done_callback(ob : PFL_OBJECT; data : longint);export; procedure done_callback(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
{ fill-in code for callback } { fill-in code for callback }
halt(0); halt(0);
@ -26,7 +26,7 @@ fd_bwform : PFD_bwform;
const bws : array[0..7] of longint = (-3,-2,-1,1,2,3,4,5); const bws : array[0..7] of longint = (-3,-2,-1,1,2,3,4,5);
procedure bw_callback(ob : PFL_OBJECT; data : longint);export; procedure bw_callback(ob : PFL_OBJECT; data : longint);cdecl;
var bw : longint; var bw : longint;

4
packages/extra/forms/demo/boxtype.pp
View File

@ -52,7 +52,7 @@ var
Const Const
lastbt : Longint = -1; lastbt : Longint = -1;
procedure boxtype_cb (ob : PFL_OBJECT; arg : longint);export; procedure boxtype_cb (ob : PFL_OBJECT; arg : longint);cdecl;
var var
i, req_bt : longint; i, req_bt : longint;
@ -76,7 +76,7 @@ end;
Const lval : longint = -1; Const lval : longint = -1;
procedure mode_cb (ob : PFL_OBJECT; arg : longint);export; procedure mode_cb (ob : PFL_OBJECT; arg : longint);cdecl;
var var
db,theval : longint; db,theval : longint;

8
packages/extra/forms/demo/browserall.pp
View File

@ -16,7 +16,7 @@ bnames : array[0..3] of pchar =
); );
procedure deselect(obj : PFL_OBJECT ; arg : longint);export; procedure deselect(obj : PFL_OBJECT ; arg : longint);cdecl;
var var
i : longint ; i : longint ;
begin begin
@ -24,7 +24,7 @@ begin
fl_deselect_browser(br[i]); fl_deselect_browser(br[i]);
end; end;
procedure set_size(obj : PFL_OBJECT; arg : longint);export; procedure set_size(obj : PFL_OBJECT; arg : longint);cdecl;
var var
i : longint; i : longint;
begin begin
@ -32,7 +32,7 @@ begin
fl_set_browser_fontsize(br[i],arg); fl_set_browser_fontsize(br[i],arg);
end; end;
procedure set_style(obj : PFL_OBJECT; arg : longint);export; procedure set_style(obj : PFL_OBJECT; arg : longint);cdecl;
var var
i : longint; i : longint;
@ -41,7 +41,7 @@ begin
fl_set_browser_fontstyle(br[i], arg); fl_set_browser_fontstyle(br[i], arg);
end; end;
procedure br_callback(ob : PFL_OBJECT; arg : longint);export; procedure br_callback(ob : PFL_OBJECT; arg : longint);cdecl;
var var
buf : string[255]; buf : string[255];
const const

10
packages/extra/forms/demo/browserop.pp
View File

@ -7,7 +7,7 @@ var
form : PFL_FORM; form : PFL_FORM;
browserobj, inputobj, exitobj : PFL_OBJECT; browserobj, inputobj, exitobj : PFL_OBJECT;
procedure addit(ob : PFL_OBJECT; arg : longint);export; procedure addit(ob : PFL_OBJECT; arg : longint);cdecl;
begin begin
{ append and show the last line. Don't use this if you just want { append and show the last line. Don't use this if you just want
* to add some lines. use fl_add_browser_line * to add some lines. use fl_add_browser_line
@ -15,7 +15,7 @@ begin
fl_addto_browser(browserobj,fl_get_input(inputobj)); fl_addto_browser(browserobj,fl_get_input(inputobj));
end; end;
procedure insertit(ob : PFL_OBJECT ; arg : longint);export; procedure insertit(ob : PFL_OBJECT ; arg : longint);cdecl;
var var
n : integer; n : integer;
begin begin
@ -24,7 +24,7 @@ begin
fl_insert_browser_line(browserobj,n,fl_get_input(inputobj)); fl_insert_browser_line(browserobj,n,fl_get_input(inputobj));
end; end;
procedure replaceit(obj : PFL_OBJECT; arg : longint);export; procedure replaceit(obj : PFL_OBJECT; arg : longint);cdecl;
var var
n : integer; n : integer;
begin begin
@ -34,7 +34,7 @@ begin
end; end;
procedure deleteit(ob : PFL_OBJECT; arg : Longint);export; procedure deleteit(ob : PFL_OBJECT; arg : Longint);cdecl;
var var
n : integer; n : integer;
begin begin
@ -43,7 +43,7 @@ begin
fl_delete_browser_line(browserobj,n); fl_delete_browser_line(browserobj,n);
end; end;
procedure clearit(ob : PFL_OBJECT; arg : longint);export; procedure clearit(ob : PFL_OBJECT; arg : longint);cdecl;
begin begin
fl_clear_browser(browserobj); fl_clear_browser(browserobj);
end; end;

4
packages/extra/forms/demo/buttonall.pp
View File

@ -10,12 +10,12 @@ type TFD_buttform = record
end; end;
PFD_buttform = ^TFD_buttform; PFD_buttform = ^TFD_buttform;
Procedure done_cb(ob : PFL_OBJECT; data : longint);export; Procedure done_cb(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;
procedure bw_cb(ob : PFL_OBJECT; data : longint);export; procedure bw_cb(ob : PFL_OBJECT; data : longint);cdecl;
const const
bws : array [0..7] of longint = (-4,-3,-2,-1,1,2,3,4); bws : array [0..7] of longint = (-4,-3,-2,-1,1,2,3,4);

4
packages/extra/forms/demo/butttypes.pp
View File

@ -1,6 +1,6 @@
program butttypes; program butttypes;
uses strings,forms; uses strings,xforms;
type TFD_form0 = record type TFD_form0 = record
form0 : PFL_FORM; form0 : PFL_FORM;
@ -11,7 +11,7 @@ end;
PFD_form0 = ^TFD_form0; PFD_form0 = ^TFD_form0;
{ callbacks for form form0 } { callbacks for form form0 }
procedure button_cb(ob : PFL_OBJECT; data : longint);export; procedure button_cb(ob : PFL_OBJECT; data : longint);cdecl;
var var
ui : PFD_form0; ui : PFD_form0;
buf : string [128]; buf : string [128];

16
packages/extra/forms/demo/canvas.pp
View File

@ -24,7 +24,7 @@ PFD_canvasform = ^TFD_canvasform;
Var canvasGC : TGC; Var canvasGC : TGC;
function canvas_expose(ob : PFL_OBJECT;win : TWindow; w,h : longint; ev : PXEvent;d : Pointer) : longint;export; function canvas_expose(ob : PFL_OBJECT;win : TWindow; w,h : longint; ev : PXEvent;d : Pointer) : longint;cdecl;
var ui : PFD_CANVASFORM; var ui : PFD_CANVASFORM;
@ -35,7 +35,7 @@ begin
end; end;
function canvas_key(ob : PFL_OBJECT; win : TWindow; w,h : Longint; ev : PXEvent; d: pointer) : longint;export; function canvas_key(ob : PFL_OBJECT; win : TWindow; w,h : Longint; ev : PXEvent; d: pointer) : longint;cdecl;
var var
ui :PFD_canvasform; ui :PFD_canvasform;
buf : string[128]; buf : string[128];
@ -50,7 +50,7 @@ begin
end; end;
function canvas_but(ob : PFL_OBJECT; win : TWindow; w,h : longint, ev : PXEvent;d : pointer) : longint;export; function canvas_but(ob : PFL_OBJECT; win : TWindow; w,h : longint, ev : PXEvent;d : pointer) : longint;cdecl;
var var
ui : PFD_canvasform; ui : PFD_canvasform;
@ -68,7 +68,7 @@ begin
fl_addto_browser(ui^.br, @buf[1]); fl_addto_browser(ui^.br, @buf[1]);
end; end;
function canvas_misc(ob : PFL_OBJECT; win : TWindow; w,h : longint, ev : PXEvent;d : pointer) : longint;export; function canvas_misc(ob : PFL_OBJECT; win : TWindow; w,h : longint, ev : PXEvent;d : pointer) : longint;cdecl;
var var
@ -97,7 +97,7 @@ end;
var var
fd_canvasform : PFD_canvasform; fd_canvasform : PFD_canvasform;
procedure sensitive_setting(ob : PFL_OBJECT ; event : longint); export; procedure sensitive_setting(ob : PFL_OBJECT ; event : longint); cdecl;
var var
hc : PFL_HANDLE_CANVAS; hc : PFL_HANDLE_CANVAS;
@ -113,7 +113,7 @@ begin
fl_remove_canvas_handler(fd_canvasform^.canvas, event, hc); fl_remove_canvas_handler(fd_canvasform^.canvas, event, hc);
end; end;
procedure disable_it(ob : PFL_OBJECT; data : longint);export; procedure disable_it(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
if fl_get_button(ob)<>0 then if fl_get_button(ob)<>0 then
@ -122,7 +122,7 @@ begin
fl_activate_object (fd_canvasform^.canvas); fl_activate_object (fd_canvasform^.canvas);
end; end;
procedure hide_it(ob : PFL_OBJECT; all : longint);export; procedure hide_it(ob : PFL_OBJECT; all : longint);cdecl;
begin begin
@ -151,7 +151,7 @@ begin
end; end;
end; end;
procedure misc_cb(ob : PFL_OBJECT; data : longint); export; procedure misc_cb(ob : PFL_OBJECT; data : longint); cdecl;
begin begin
if(fl_get_button(ob)<>0) then if(fl_get_button(ob)<>0) then

4
packages/extra/forms/demo/chartstrip.pp
View File

@ -12,14 +12,14 @@ var
chartobj,sinobj,exitbut,stepobj : PFL_OBJECT; chartobj,sinobj,exitbut,stepobj : PFL_OBJECT;
procedure set_function(obj : PFL_OBJECT; arg : longint);export; procedure set_function(obj : PFL_OBJECT; arg : longint);cdecl;
begin begin
func := arg; func := arg;
fl_clear_chart(chartobj); fl_clear_chart(chartobj);
xx := 0.0; xx := 0.0;
end; end;
procedure set_step(obj : PFL_OBJECT; arg : longint);export; procedure set_step(obj : PFL_OBJECT; arg : longint);cdecl;
begin begin
step := fl_get_slider_value(stepobj); step := fl_get_slider_value(stepobj);

2
packages/extra/forms/demo/choice.pp
View File

@ -8,7 +8,7 @@ uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
sexobj,childobj,licenceobj,marriedobj,readyobj : PFL_OBJECT; sexobj,childobj,licenceobj,marriedobj,readyobj : PFL_OBJECT;
procedure cb( ob : PFL_OBJECT; data : longint);export; procedure cb( ob : PFL_OBJECT; data : longint);cdecl;
begin begin
Writeln ('CallBack: ', fl_get_choice(ob)); Writeln ('CallBack: ', fl_get_choice(ob));

8
packages/extra/forms/demo/colbrowser.pp
View File

@ -41,7 +41,7 @@ begin
fl_unfreeze_form(cl); fl_unfreeze_form(cl);
end; end;
procedure br_cb(ob : PFL_OBJECT; q :longint);export; procedure br_cb(ob : PFL_OBJECT; q :longint);cdecl;
var r : longint; var r : longint;
@ -160,7 +160,7 @@ begin
search_entry:= j; search_entry:= j;
end; end;
procedure search_rgb(ob : PFL_OBJECT; q : longint);export; procedure search_rgb(ob : PFL_OBJECT; q : longint);cdecl;
var r, g, b, i,top : longint; var r, g, b, i,top : longint;
@ -182,7 +182,7 @@ begin
end; end;
{ change database } { change database }
procedure db_cb(ob : PFL_OBJECT; q : longint);export; procedure db_cb(ob : PFL_OBJECT; q : longint);cdecl;
var p: pchar; var p: pchar;
buf : string; buf : string;
@ -198,7 +198,7 @@ begin
fl_set_object_label(ob, @dbname[1]); fl_set_object_label(ob, @dbname[1]);
end; end;
procedure done_cb (ob : PFL_OBJECT; q : longint);export; procedure done_cb (ob : PFL_OBJECT; q : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;

2
packages/extra/forms/demo/colsel1.pp
View File

@ -5,7 +5,7 @@ uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
topbox : PFL_OBJECT; topbox : PFL_OBJECT;
procedure change_color(ob : PFL_OBJECT; col : longint);export; procedure change_color(ob : PFL_OBJECT; col : longint);cdecl;
begin begin
fl_set_object_color(topbox, col, col); fl_set_object_color(topbox, col, col);

2
packages/extra/forms/demo/counter.pp
View File

@ -9,7 +9,7 @@ form : PFL_FORM;
result : PFL_OBJECT; result : PFL_OBJECT;
co : array[0..2] of PFL_OBJECT; co : array[0..2] of PFL_OBJECT;
procedure color_change(ob : PFL_OBJECT; data : longint);export; procedure color_change(ob : PFL_OBJECT; data : longint);cdecl;
var r,g,b : longint; var r,g,b : longint;

4
packages/extra/forms/demo/cursor.pp
View File

@ -27,7 +27,7 @@ begin
fl_set_cursor(FL_ObjWin(ob), data); fl_set_cursor(FL_ObjWin(ob), data);
end; end;
procedure setbitmapcursor_cb(ob : PFL_OBJECT ; data : Longint);export; procedure setbitmapcursor_cb(ob : PFL_OBJECT ; data : Longint);cdecl;
begin begin
if bitmapcur<>0 then if bitmapcur<>0 then
@ -38,7 +38,7 @@ begin
end; end;
Procedure done_cb (ob : PFL_OBJECT; data : Longint);export; Procedure done_cb (ob : PFL_OBJECT; data : Longint);cdecl;
begin begin
Halt(0); Halt(0);
end; end;

6
packages/extra/forms/demo/fbrowse.pp
View File

@ -8,7 +8,7 @@ var
form : PFL_FORM; form : PFL_FORM;
br : PFL_OBJECT; br : PFL_OBJECT;
procedure load_file(ob : PFL_OBJECT; arg : longint);export; procedure load_file(ob : PFL_OBJECT; arg : longint);cdecl;
var var
fname : pchar; fname : pchar;
@ -19,12 +19,12 @@ begin
fl_add_browser_line(br,'NO SUCH FILE!'); fl_add_browser_line(br,'NO SUCH FILE!');
end; end;
procedure set_size(ob : PFL_OBJECT; arg : longint);export; procedure set_size(ob : PFL_OBJECT; arg : longint);cdecl;
begin begin
fl_set_browser_fontsize(br,arg); fl_set_browser_fontsize(br,arg);
end; end;
procedure exit_program(ob : PFL_OBJECT; data : longint);export; procedure exit_program(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;

4
packages/extra/forms/demo/fbrowse1.pp
View File

@ -7,14 +7,14 @@ var
form : PFL_FORM; form : PFL_FORM;
br, but : PFL_OBJECT; br, but : PFL_OBJECT;
procedure load_file(ob : PFL_OBJECT; arg : longint);export; procedure load_file(ob : PFL_OBJECT; arg : longint);cdecl;
begin begin
if (fl_load_browser(br,fl_show_input('Filename to load',''))<>0) then if (fl_load_browser(br,fl_show_input('Filename to load',''))<>0) then
fl_add_browser_line(br,'NO SUCH FILE!'); fl_add_browser_line(br,'NO SUCH FILE!');
end; end;
procedure set_size(ob : PFL_OBJECT; arg : Longint);export; procedure set_size(ob : PFL_OBJECT; arg : Longint);cdecl;
begin begin
fl_set_browser_fontsize(br, arg); fl_set_browser_fontsize(br, arg);

2
packages/extra/forms/demo/flclock.pp
View File

@ -6,7 +6,7 @@ uses xforms;
var var
fclock : PFL_FORM; fclock : PFL_FORM;
procedure exit_cb (ob : PFL_OBJECT; q : longint);export; procedure exit_cb (ob : PFL_OBJECT; q : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;

6
packages/extra/forms/demo/fonts.pp
View File

@ -16,17 +16,17 @@ PFD_fontsform=^TFD_fontsform;
var ui : PFD_fontsform; var ui : PFD_fontsform;
procedure done_cb(obj : PFL_OBJECT; arg : longint);export; procedure done_cb(obj : PFL_OBJECT; arg : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;
procedure style_cb(obj : PFL_OBJECT; arg : Longint);export; procedure style_cb(obj : PFL_OBJECT; arg : Longint);cdecl;
begin begin
fl_set_object_lstyle(ui^.textobj, fl_get_browser(obj) - 1); fl_set_object_lstyle(ui^.textobj, fl_get_browser(obj) - 1);
end; end;
procedure size_cb(obj : PFL_OBJECT; arg : longint); export; procedure size_cb(obj : PFL_OBJECT; arg : longint); cdecl;
begin begin
case fl_get_browser(obj) of case fl_get_browser(obj) of
1: fl_set_object_lsize(ui^.textobj,8); 1: fl_set_object_lsize(ui^.textobj,8);

4
packages/extra/forms/demo/free1.pp
View File

@ -20,7 +20,7 @@ var
{ The call back routine } { The call back routine }
function handle_it(obj : PFL_OBJECT; event : longint; function handle_it(obj : PFL_OBJECT; event : longint;
mx,my : TFL_Coord; mx,my : TFL_Coord;
key : longint; ev : pointer) : longint;export; key : longint; ev : pointer) : longint;cdecl;
begin begin
exit; exit;
@ -43,7 +43,7 @@ begin
handle_it:=0; handle_it:=0;
end; end;
procedure done(ob : PFL_OBJECT; data : longint); export; procedure done(ob : PFL_OBJECT; data : longint); cdecl;
begin begin
halt(0) halt(0)

2
packages/extra/forms/demo/group.pp
View File

@ -29,7 +29,7 @@ PFD_objsform = ^TFD_objsform;
var fd_objsform : PFD_objsform; var fd_objsform : PFD_objsform;
{ callbacks for form objsform } { callbacks for form objsform }
procedure show_group(ob : PFL_OBJECT;data: longint);export; procedure show_group(ob : PFL_OBJECT;data: longint);cdecl;
var i : longint; var i : longint;

6
packages/extra/forms/demo/inputall.pp
View File

@ -9,13 +9,13 @@ type TFD_INPUT = record
end; end;
PFD_INPUT = ^TFD_input; PFD_INPUT = ^TFD_input;
procedure done_cb( ob : PFL_OBJECT; data : longint);export; procedure done_cb( ob : PFL_OBJECT; data : longint);cdecl;
begin begin
halt(0); halt(0);
end; end;
procedure input_cb( ob : PFL_OBJECT; data : longint);export; procedure input_cb( ob : PFL_OBJECT; data : longint);cdecl;
var var
cx, cy, pos : Longint; cx, cy, pos : Longint;
@ -29,7 +29,7 @@ begin
fl_set_object_label( PFD_input(ob^.form^.fdui)^.report,@buf[1]); fl_set_object_label( PFD_input(ob^.form^.fdui)^.report,@buf[1]);
end; end;
procedure hide_show_cb(ob : PFL_OBJECT; data : longint);export; procedure hide_show_cb(ob : PFL_OBJECT; data : longint);cdecl;
var fd: PFD_input; var fd: PFD_input;

2
packages/extra/forms/demo/invslider.pp
View File

@ -14,7 +14,7 @@ PFD_inv=^TFD_inv;
var ui : PFD_INV; var ui : PFD_INV;
procedure invert_it(ob : PFL_OBJECT; data : longint);export; procedure invert_it(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
if (fl_get_button(ob)<>0) then if (fl_get_button(ob)<>0) then

4
packages/extra/forms/demo/lalign.pp
View File

@ -17,14 +17,14 @@ var fd_form0 : PFD_form0;
align :integer; align :integer;
Procedure align_cb(ob : PFL_OBJECT; n : longint);export; Procedure align_cb(ob : PFL_OBJECT; n : longint);cdecl;
begin begin
if fl_get_button(fd_form0^.inside)<>0 then if fl_get_button(fd_form0^.inside)<>0 then
n:=n or FL_ALIGN_INSIDE; n:=n or FL_ALIGN_INSIDE;
fl_set_object_lalign(fd_form0^.box, n); fl_set_object_lalign(fd_form0^.box, n);
end; end;
Procedure inside_cb(Ob : PFL_OBJECT; data : longint);export; Procedure inside_cb(Ob : PFL_OBJECT; data : longint);cdecl;
begin begin
if fl_get_button(ob)<>0 then if fl_get_button(ob)<>0 then

10
packages/extra/forms/demo/ll.pp
View File

@ -19,7 +19,7 @@ var
xypui : PFD_axypform; xypui : PFD_axypform;
{ callbacks for form axypform } { callbacks for form axypform }
Procedure xyplot_cb(ob : PFL_OBJECT; data : longint);export; Procedure xyplot_cb(ob : PFL_OBJECT; data : longint);cdecl;
var var
@ -37,13 +37,13 @@ begin
end; end;
Procedure alwaysreturn_cb(ob : PFL_OBJECT; data : longint); export; Procedure alwaysreturn_cb(ob : PFL_OBJECT; data : longint); cdecl;
begin begin
fl_set_xyplot_return(xypui^.xyplot, fl_get_button(ob)); fl_set_xyplot_return(xypui^.xyplot, fl_get_button(ob));
end; end;
procedure interpolate_cb(ob : PFL_OBJECT; data : longint);export; procedure interpolate_cb(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
if fl_get_button(ob)=0 then if fl_get_button(ob)=0 then
@ -52,14 +52,14 @@ begin
fl_set_xyplot_interpolate(xypui^.xyplot, 0,0,0.2); fl_set_xyplot_interpolate(xypui^.xyplot, 0,0,0.2);
end; end;
Procedure inspect_cb(ob : PFL_OBJECT; data :longint); export; Procedure inspect_cb(ob : PFL_OBJECT; data :longint); cdecl;
begin begin
fl_set_xyplot_inspect(xypui^.xyplot, fl_get_button(ob)); fl_set_xyplot_inspect(xypui^.xyplot, fl_get_button(ob));
end; end;
procedure notic_cb(ob : PFL_OBJECT; data :longint); export; procedure notic_cb(ob : PFL_OBJECT; data :longint); cdecl;
var notic : Longint; var notic : Longint;

4
packages/extra/forms/demo/menu.pp
View File

@ -16,7 +16,7 @@ Var menu,abox : array[0..3] of PFL_OBJECT;
i, j : longint; i, j : longint;
procedure menu_cb(ob : PFL_OBJECT; m : longint);export; procedure menu_cb(ob : PFL_OBJECT; m : longint);cdecl;
var i,item : longint; var i,item : longint;
@ -39,7 +39,7 @@ begin
fl_set_object_color(abox[m], FL_BLACK+item, FL_BLACK); fl_set_object_color(abox[m], FL_BLACK+item, FL_BLACK);
end; end;
procedure done_cb(ob : PFL_OBJECT; data : longint) ; export; procedure done_cb(ob : PFL_OBJECT; data : longint) ; cdecl;
begin begin
halt; halt;

2
packages/extra/forms/demo/minput.pp
View File

@ -2,7 +2,7 @@ program minput;
uses xforms; uses xforms;
procedure input_cb( ob : PFL_OBJECT; data : Longint);export; procedure input_cb( ob : PFL_OBJECT; data : Longint);cdecl;
var var
x, y : Longint; x, y : Longint;

2
packages/extra/forms/demo/newbutton.pp
View File

@ -14,7 +14,7 @@ Const FL_CROSSBUTTON=2000;
type TSPEC = TFL_BUTTON_STRUCT; type TSPEC = TFL_BUTTON_STRUCT;
PSPEC = ^TSPEC; PSPEC = ^TSPEC;
Procedure draw_crossbutton(ob : PFL_OBJECT);export; Procedure draw_crossbutton(ob : PFL_OBJECT);cdecl;
var temp : longint; var temp : longint;
xx, yy, ww, hh ,tt : TFL_Coord; xx, yy, ww, hh ,tt : TFL_Coord;

6
packages/extra/forms/demo/objinactive.pp
View File

@ -14,7 +14,7 @@ form : PFL_FORM;
group, group,
firstbut : PFL_OBJECT; firstbut : PFL_OBJECT;
procedure exit_cb(obj : PFL_OBJECT; arg : longint); export; procedure exit_cb(obj : PFL_OBJECT; arg : longint); cdecl;
begin begin
halt; halt;
end; end;
@ -35,7 +35,7 @@ begin
end end
end; end;
Procedure setit_cb(obj : PFL_OBJECT; val : longint); export; Procedure setit_cb(obj : PFL_OBJECT; val : longint); cdecl;
begin begin
setit (obj,val) setit (obj,val)
@ -50,7 +50,7 @@ begin
setit(button4,b4); setit(button4,b4);
end; end;
Procedure set_active(obj : PFL_OBJECT; arg : longint); export; Procedure set_active(obj : PFL_OBJECT; arg : longint); cdecl;
begin begin
case arg of case arg of

2
packages/extra/forms/demo/objpos.pp
View File

@ -6,7 +6,7 @@ const
dx : TFL_Coord = 11 ; dx : TFL_Coord = 11 ;
dy : TFL_Coord = 7 ; dy : TFL_Coord = 7 ;
procedure move_cb(ob : PFL_OBJECT; data : longint);export; procedure move_cb(ob : PFL_OBJECT; data : longint);cdecl;
var var
but : PFL_OBJECT; but : PFL_OBJECT;

6
packages/extra/forms/demo/objreturn.pp
View File

@ -23,7 +23,7 @@ var
fd_form0 : PFD_form; fd_form0 : PFD_form;
{ callbacks for form form0 } { callbacks for form form0 }
procedure return_cb(ob : PFL_OBJECT; data : longint); export; procedure return_cb(ob : PFL_OBJECT; data : longint); cdecl;
begin begin
fl_addto_browser(fd_form0^.br, pchar(data)); fl_addto_browser(fd_form0^.br, pchar(data));
@ -38,7 +38,7 @@ begin
fl_set_object_return(fd_form0^.obj[3], n); fl_set_object_return(fd_form0^.obj[3], n);
end; end;
procedure when_cb(ob : PFL_OBJECT; data : longint); export; procedure when_cb(ob : PFL_OBJECT; data : longint); cdecl;
var n : longint; var n : longint;
@ -48,7 +48,7 @@ begin
set_when(n); set_when(n);
end; end;
procedure resetlog_cb(ob : PFL_OBJECT; data : longint);export; procedure resetlog_cb(ob : PFL_OBJECT; data : longint);cdecl;
begin begin
fl_clear_browser(fd_form0^.br); fl_clear_browser(fd_form0^.br);

2
packages/extra/forms/demo/positioner.pp
View File

@ -21,7 +21,7 @@ begin
fl_set_object_label(yval,@st[1]); fl_set_object_label(yval,@st[1]);
end; end;
procedure positioner_cb(ob :PFL_OBJECT; q : longint);export; procedure positioner_cb(ob :PFL_OBJECT; q : longint);cdecl;
begin begin
Do_Position (ob,q); Do_Position (ob,q);

2
packages/extra/forms/demo/pushbutton.pp
View File

@ -6,7 +6,7 @@ uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
Abox : array[0..8] of PFL_OBJECT; Abox : array[0..8] of PFL_OBJECT;
procedure push_cb( ob : PFL_OBJECT; n : longint);export; procedure push_cb( ob : PFL_OBJECT; n : longint);cdecl;
begin begin
if (fl_get_button(ob)<>0) then if (fl_get_button(ob)<>0) then

4
packages/extra/forms/demo/touchbutton.pp
View File

@ -1,14 +1,14 @@
{ This demo shows the use of a touch buttons. } { This demo shows the use of a touch buttons. }
program touchbutton; program touchbutton;
uses strings,forms; uses strings,xforms;
var form : PFL_FORM; var form : PFL_FORM;
valobj,obj : PFL_OBJECT; valobj,obj : PFL_OBJECT;
value : LongInt; value : LongInt;
Procedure show_val(ob : PFL_OBJECT;delta : Longint);export; Procedure show_val(ob : PFL_OBJECT;delta : Longint);cdecl;
var st : string[32]; var st : string[32];