paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* renamed forms unit to xforms to prevent conflict with Forms

Browse Source 
from the LCL
This commit is contained in:
peter 2003-10-27 15:48:13 +00:00
parent bb595e61bb
commit b409f807f5
50 changed files with 346 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/forms/Makefile.fpc
View File

@ -7,7 +7,7 @@ name=forms
version=1.0.8 version=1.0.8
[target] [target]
units=forms units=xforms
programs=fd2pascal programs=fd2pascal
exampledirs=demo exampledirs=demo

17
packages/extra/forms/demo/arrowbutton.pp
View File

@ -1,7 +1,7 @@
{ This demo shows the use of special symbol labels } { This demo shows the use of special symbol labels }
program arrowbutton; program arrowbutton;
uses forms; uses xforms;
const border : longint = FL_TRANSIENT; const border : longint = FL_TRANSIENT;
@ -37,11 +37,14 @@ begin
fl_show_form(form,FL_PLACE_ASPECT,border,'Buttons'); fl_show_form(form,FL_PLACE_ASPECT,border,'Buttons');
while (fl_do_forms() <> but) do; while (fl_do_forms() <> but) do;
fl_hide_form(form); fl_hide_form(form);
end. $Log$
end. Revision 1.2 2002-09-07 15:42:54 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:00 peter
end. * splitted to base and extra
end. 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
} }

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

@ -1,6 +1,6 @@
program borderwidth; program borderwidth;
uses forms; uses xforms;
type TFD_bwform = record type TFD_bwform = record
bwform : PFL_FORM; bwform : PFL_FORM;
@ -99,11 +99,13 @@ begin
fl_show_form(fd_bwform^.bwform,FL_PLACE_CENTER,FL_NOBORDER,'bwform'); fl_show_form(fd_bwform^.bwform,FL_PLACE_CENTER,FL_NOBORDER,'bwform');
while (fl_do_forms<>nil) do; while (fl_do_forms<>nil) do;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -3,7 +3,7 @@
} }
program boxtype; program boxtype;
uses forms; uses xforms;
const border = FL_TRANSIENT; const border = FL_TRANSIENT;
@ -219,11 +219,11 @@ begin
fl_set_choice (modeob, fl_vmode+1); fl_set_choice (modeob, fl_vmode+1);
fl_show_form (form, FL_PLACE_MOUSE, border, 'Box types'); fl_show_form (form, FL_PLACE_MOUSE, border, 'Box types');
while (fl_do_forms <> exitob) do; while (fl_do_forms <> exitob) do;
end. $Log$
end. Revision 1.2 2002-09-07 15:42:54 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:00 peter
end. * splitted to base and extra
end. 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
} }

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

@ -1,7 +1,7 @@
{ This is a demo that shows the different types of browsers. } { This is a demo that shows the different types of browsers. }
uses forms,strings; uses xforms,strings;
var var
form : PFL_FORM; form : PFL_FORM;
@ -176,8 +176,13 @@ begin
fl_do_forms; fl_do_forms;
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -1,7 +1,7 @@
{ This demo shows the different routines on browsers } { This demo shows the different routines on browsers }
program browserop; program browserop;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -87,8 +87,13 @@ begin
until obj = exitobj; until obj = exitobj;
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -1,6 +1,6 @@
program buttonall; program buttonall;
uses forms; uses xforms;
type TFD_buttform = record type TFD_buttform = record
buttform : PFL_FORM; buttform : PFL_FORM;
@ -110,8 +110,13 @@ begin
fl_show_form(fd_buttform^.buttform,FL_PLACE_CENTER,FL_FULLBORDER,'buttform'); fl_show_form(fd_buttform^.buttform,FL_PLACE_CENTER,FL_FULLBORDER,'buttform');
while (fl_do_forms<>nil) do ; while (fl_do_forms<>nil) do ;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -93,8 +93,13 @@ begin
fl_show_form(fd_form0^.form0,FL_PLACE_CENTER,FL_FULLBORDER,'form0'); fl_show_form(fd_form0^.form0,FL_PLACE_CENTER,FL_FULLBORDER,'form0');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -1,7 +1,7 @@
{ Demo showing the use of canvas object. V0.75 { Demo showing the use of canvas object. V0.75
} }
uses forms,x,xlib; uses xforms,x,xlib;
{*** Forms and Objects ***} {*** Forms and Objects ***}
@ -240,9 +240,13 @@ begin
while (fl_do_forms() <> fd_canvasform^.done) do ; while (fl_do_forms() <> fd_canvasform^.done) do ;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

9
packages/extra/forms/demo/chartall.pp
View File

@ -2,7 +2,7 @@ program chartall;
{ Showing all different charts } { Showing all different charts }
{ Form definition file generated with fdesign. } { Form definition file generated with fdesign. }
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -80,8 +80,13 @@ begin
fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'Charts'); fl_show_form(form,FL_PLACE_CENTER,FL_TRANSIENT,'Charts');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -1,7 +1,7 @@
{ A demo of a moving chart } { A demo of a moving chart }
program chartstrip; program chartstrip;
uses forms,xlib; uses xforms,xlib;
var var
func : longint; func : longint;
@ -119,8 +119,13 @@ begin
obj := fl_check_forms(); obj := fl_check_forms();
until obj = exitbut; until obj = exitbut;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -2,7 +2,7 @@
program choice; program choice;
uses forms; uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
@ -50,8 +50,13 @@ begin
while (obj <> readyobj) do obj := fl_do_forms; while (obj <> readyobj) do obj := fl_do_forms;
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -1,6 +1,6 @@
Program colbrowser; Program colbrowser;
uses forms,strings; uses xforms,strings;
Const MAX_RGB = 3000; Const MAX_RGB = 3000;
@ -279,8 +279,13 @@ begin
while (fl_do_forms()<>nil) do; while (fl_do_forms()<>nil) do;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

14
packages/extra/forms/demo/colsel.pp
View File

@ -1,15 +1,15 @@
program colsel; program colsel;
uses forms; uses xforms;
begin begin
fl_initialize(@argc, argv, 'FormDemo', nil, 0); fl_initialize(@argc, argv, 'FormDemo', nil, 0);
fl_show_colormap(0); fl_show_colormap(0);
end. $Log$
end. Revision 1.2 2002-09-07 15:42:55 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:00 peter
end. * splitted to base and extra
end. 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
} }

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

@ -1,6 +1,6 @@
program colsel1; program colsel1;
uses forms; uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
topbox : PFL_OBJECT; topbox : PFL_OBJECT;
@ -45,8 +45,13 @@ begin
while ret<>topbox do ret := fl_do_forms(); while ret<>topbox do ret := fl_do_forms();
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -2,7 +2,7 @@
} }
program counter; program counter;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -69,9 +69,13 @@ begin
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:00 peter Revision 1.1 2002/01/29 17:55:00 peter

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

@ -2,7 +2,7 @@ Program cursor;
{ Cursor routines demo. } { Cursor routines demo. }
uses forms; uses xforms;
{$i bm1.xbm} {$i bm1.xbm}
{$i bm2.xbm} {$i bm2.xbm}
@ -87,9 +87,13 @@ Begin
fl_show_form(fd_cursor^.cursor,FL_PLACE_CENTER,FL_FULLBORDER,'cursor'); fl_show_form(fd_cursor^.cursor,FL_PLACE_CENTER,FL_FULLBORDER,'cursor');
fl_do_forms; fl_do_forms;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -2,7 +2,7 @@
} }
program fbrowse; program fbrowse;
uses forms,strings; uses xforms,strings;
var var
form : PFL_FORM; form : PFL_FORM;
@ -82,8 +82,13 @@ begin
fl_hide_form(form); fl_hide_form(form);
fl_free_form(form); fl_free_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,7 +1,7 @@
{ This demo shows the use of a browser and fl_call_object_callback. } { This demo shows the use of a browser and fl_call_object_callback. }
program fbrowse1; program fbrowse1;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -52,8 +52,13 @@ begin
until obj = but; until obj = but;
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/fdial.pp
View File

@ -3,7 +3,7 @@
} }
Program fdial; Program fdial;
uses forms; uses xforms;
var var
form: PFL_FORM; form: PFL_FORM;
@ -70,8 +70,13 @@ begin
until (ret = button); until (ret = button);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,7 +1,7 @@
{ Form definition file generated with fdesign. } { Form definition file generated with fdesign. }
program flclock; program flclock;
uses forms; uses xforms;
var var
fclock : PFL_FORM; fclock : PFL_FORM;
@ -45,8 +45,13 @@ begin
fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks'); fl_show_form(fclock, FL_PLACE_CENTER,FL_TRANSIENT,'clocks');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:55 peter 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:55 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,7 +1,7 @@
{* Demo, showing ther different fonts in the different sizes. *} {* Demo, showing ther different fonts in the different sizes. *}
program fonts; program fonts;
uses forms; uses xforms;
type type
TFD_fontsform = record TFD_fontsform = record
@ -105,8 +105,13 @@ begin
fl_show_form(ui^.fontsform,FL_PLACE_CENTER,FL_TRANSIENT,'Fonts'); fl_show_form(ui^.fontsform,FL_PLACE_CENTER,FL_TRANSIENT,'Fonts');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -3,7 +3,7 @@
} }
program free1; program free1;
uses forms; uses xforms;
Const Const
onn : boolean = True; onn : boolean = True;
@ -82,8 +82,13 @@ begin
fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,'Free Object'); fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,'Free Object');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/goodies.pp
View File

@ -5,7 +5,7 @@ Program goodies;
forms in an even easier way. forms in an even easier way.
} }
uses forms,strings; uses xforms,strings;
var var
choice : Longint; choice : Longint;
@ -47,8 +47,13 @@ begin
fl_show_message('You typed:','',s); fl_show_message('You typed:','',s);
fl_show_messages('Good Bye'); fl_show_messages('Good Bye');
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,6 +1,6 @@
program group; program group;
uses forms; uses xforms;
{$i porsche.xpm} {$i porsche.xpm}
{$i nomail.xbm} {$i nomail.xbm}
@ -224,8 +224,13 @@ begin
begin begin
end; end;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

7
packages/extra/forms/demo/iconify.pp
View File

@ -35,8 +35,13 @@ begin
fl_show_form(form0,FL_PLACE_CENTER,FL_FULLBORDER, 'IconTest'); fl_show_form(form0,FL_PLACE_CENTER,FL_FULLBORDER, 'IconTest');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,6 +1,6 @@
program inputall; program inputall;
uses forms; uses xforms;
type TFD_INPUT = record type TFD_INPUT = record
input : PFL_FORM; input : PFL_FORM;
@ -95,9 +95,13 @@ begin
fl_show_form(fd_input^.input,FL_PLACE_CENTERFREE,FL_FULLBORDER,'input'); fl_show_form(fd_input^.input,FL_PLACE_CENTERFREE,FL_FULLBORDER,'input');
while (fl_do_forms<>nil) do; while (fl_do_forms<>nil) do;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,6 +1,6 @@
program invslider; program invslider;
uses forms; uses xforms;
type type
TFD_inv = record TFD_inv = record
@ -65,8 +65,13 @@ begin
fl_show_form(ui^.inv,FL_PLACE_CENTER,FL_TRANSIENT,'inv'); fl_show_form(ui^.inv,FL_PLACE_CENTER,FL_TRANSIENT,'inv');
while fl_do_forms <> ui^.done do; while fl_do_forms <> ui^.done do;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,7 +1,7 @@
program lalign; program lalign;
{ different label alignments } { different label alignments }
uses forms; uses xforms;
type type
TFD_Form0 = record TFD_Form0 = record
@ -100,9 +100,13 @@ begin
fl_show_form(fd_form0^.form0,FL_PLACE_FREE,FL_FULLBORDER,'form0'); fl_show_form(fd_form0^.form0,FL_PLACE_FREE,FL_FULLBORDER,'form0');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/ldial.pp
View File

@ -2,7 +2,7 @@
} }
Program ldial; Program ldial;
uses forms; uses xforms;
var var
@ -62,8 +62,13 @@ begin
until (ret = button); until (ret = button);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,6 +1,6 @@
program ll; program ll;
uses forms; uses xforms;
{*** Forms and Objects ***} {*** Forms and Objects ***}
@ -139,8 +139,13 @@ begin
fl_show_form(xypui^.axypform,FL_PLACE_MOUSE,FL_TRANSIENT,'axypform'); fl_show_form(xypui^.axypform,FL_PLACE_MOUSE,FL_TRANSIENT,'axypform');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/longlabel.pp
View File

@ -1,7 +1,7 @@
{ Demo of the Use of a very long label } { Demo of the Use of a very long label }
program longlabel; program longlabel;
uses forms; uses xforms;
Const Const
label1 : pchar = 'This demo shows the use of some very'#10+ label1 : pchar = 'This demo shows the use of some very'#10+
@ -56,8 +56,13 @@ begin
fl_set_object_label(but,'Quit'); fl_set_object_label(but,'Quit');
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -7,7 +7,7 @@
} }
program menudemo; program menudemo;
uses forms; uses xforms;
Var menu,abox : array[0..3] of PFL_OBJECT; Var menu,abox : array[0..3] of PFL_OBJECT;
isset : array[0..3] of longint; isset : array[0..3] of longint;
@ -119,8 +119,13 @@ begin
fl_do_forms(); fl_do_forms();
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,6 +1,6 @@
program minput; program minput;
uses forms; uses xforms;
procedure input_cb( ob : PFL_OBJECT; data : Longint);export; procedure input_cb( ob : PFL_OBJECT; data : Longint);export;
@ -27,8 +27,13 @@ begin
fl_show_form(form,FL_PLACE_CENTERFREE,FL_FULLBORDER,'MultiLineInput'); fl_show_form(form,FL_PLACE_CENTERFREE,FL_FULLBORDER,'MultiLineInput');
while (obj <> but) do obj:=fl_do_forms; while (obj <> but) do obj:=fl_do_forms;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/multilabel.pp
View File

@ -1,7 +1,7 @@
{ Multiline labels. } { Multiline labels. }
program multilabel; program multilabel;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -50,8 +50,13 @@ begin
until (obj = readyobj); until (obj = readyobj);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/ndial.pp
View File

@ -1,6 +1,6 @@
{ This is an example of the use of dials. } { This is an example of the use of dials. }
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -61,8 +61,13 @@ begin
until (ret = button); until (ret = button);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -5,7 +5,7 @@
* changed stub button to crossbutton * changed stub button to crossbutton
} }
uses forms; uses xforms;
Const FL_CROSSBUTTON=2000; Const FL_CROSSBUTTON=2000;
FL_CROSSBUTTON_BW = 2; FL_CROSSBUTTON_BW = 2;
@ -149,9 +149,13 @@ begin
fl_show_form(cbform^.newbut, FL_PLACE_CENTER, 0, nil); fl_show_form(cbform^.newbut, FL_PLACE_CENTER, 0, nil);
while(fl_do_forms <> cbform^.bexit) do ; while(fl_do_forms <> cbform^.bexit) do ;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -2,7 +2,7 @@
} }
program objin; program objin;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -109,11 +109,11 @@ begin
fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,NiL); fl_show_form(form,FL_PLACE_CENTER,FL_NOBORDER,NiL);
while (fl_do_forms()<>nil) do while (fl_do_forms()<>nil) do
begin end; begin end;
end. $Log$
end. Revision 1.2 2002-09-07 15:42:57 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:01 peter
end. * splitted to base and extra
end. 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
} }

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

@ -1,6 +1,6 @@
program objpos; program objpos;
uses forms; uses xforms;
const const
dx : TFL_Coord = 11 ; dx : TFL_Coord = 11 ;
@ -43,11 +43,14 @@ begin
fl_do_forms(); fl_do_forms();
end. $Log$
end. Revision 1.2 2002-09-07 15:42:57 peter
end. * old logs removed and tabs fixed
end.
end. Revision 1.1 2002/01/29 17:55:01 peter
end. * splitted to base and extra
end. 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
} }

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

@ -4,7 +4,7 @@
} }
program objreturn; program objreturn;
uses forms; uses xforms;
{*** Forms and Objects ***} {*** Forms and Objects ***}
@ -119,9 +119,13 @@ begin
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

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

@ -1,7 +1,7 @@
{ This demo shows the use of a positioner. } { This demo shows the use of a positioner. }
program positioner; program positioner;
uses forms; uses xforms;
var var
xval, yval : PFL_Object; xval, yval : PFL_Object;
@ -53,9 +53,13 @@ begin
fl_do_forms; fl_do_forms;
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:01 peter Revision 1.1 2002/01/29 17:55:01 peter

9
packages/extra/forms/demo/pup.pp
View File

@ -4,7 +4,7 @@
} }
program popup; program popup;
uses forms,strings; uses xforms,strings;
var var
pup : PFL_FORM; pup : PFL_FORM;
@ -234,8 +234,13 @@ begin
fl_do_forms; fl_do_forms;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

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

@ -1,7 +1,7 @@
Program pushButtons; Program pushButtons;
{ A demo that shows the use of push buttons. } { A demo that shows the use of push buttons. }
uses forms; uses xforms;
var form : PFL_FORM; var form : PFL_FORM;
Abox : array[0..8] of PFL_OBJECT; Abox : array[0..8] of PFL_OBJECT;
@ -43,8 +43,13 @@ Begin
{ fl_do_forms will return only when Exit is pressed } { fl_do_forms will return only when Exit is pressed }
fl_do_forms; fl_do_forms;
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

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

@ -1,6 +1,6 @@
Program pushme; Program pushme;
uses forms; uses xforms;
var simpleform : PFL_FORM; var simpleform : PFL_FORM;
{ formname,buttonname : string; { formname,buttonname : string;
@ -14,9 +14,13 @@ begin
fl_do_forms; fl_do_forms;
fl_hide_form(simpleform); fl_hide_form(simpleform);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

9
packages/extra/forms/demo/secretinput.pp
View File

@ -1,7 +1,7 @@
program secretinput; program secretinput;
{ Demo showing secret input fields } { Demo showing secret input fields }
uses forms,strings; uses xforms,strings;
var form : PFL_FORM; var form : PFL_FORM;
but, password1, password2, info, ret : PFL_OBJECT; but, password1, password2, info, ret : PFL_OBJECT;
@ -27,8 +27,13 @@ begin
until (ret = but); until (ret = but);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

9
packages/extra/forms/demo/sliderall.pp
View File

@ -2,7 +2,7 @@
program sliderall; program sliderall;
uses forms; uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -73,8 +73,13 @@ begin
until (obj = exitobj); until (obj = exitobj);
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

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

@ -52,8 +52,13 @@ begin
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

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

@ -1,7 +1,7 @@
{ Demo showing the use of xyplot overlay. } { Demo showing the use of xyplot overlay. }
program xyplotover; program xyplotover;
uses forms; uses xforms;
{*** Forms and Objects ***} {*** Forms and Objects ***}
@ -68,9 +68,13 @@ begin
fl_do_forms(); fl_do_forms();
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

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

@ -4,7 +4,7 @@ Program yesno;
are very usefull for asking questions are very usefull for asking questions
} }
Uses forms; Uses xforms;
var var
form : PFL_FORM; form : PFL_FORM;
@ -22,9 +22,13 @@ begin
fl_hide_form(form); fl_hide_form(form);
end. end.
{
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:57 peter 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:55:02 peter Revision 1.1 2002/01/29 17:55:02 peter

8
packages/extra/forms/forms.pp → packages/extra/forms/xforms.pp
View File

@ -1,7 +1,7 @@
{ {
$Id$ $Id$
} }
Unit forms; Unit xforms;
Interface Interface
{$linklib forms} {$linklib forms}
@ -2910,7 +2910,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-09-07 15:42:54 peter Revision 1.1 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 * old logs removed and tabs fixed
Revision 1.1 2002/01/29 17:54:59 peter Revision 1.1 2002/01/29 17:54:59 peter