paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 08:29:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added interfaces unit

Browse Source 
git-svn-id: trunk@3578 -
This commit is contained in:
lazarus 2002-10-29 08:22:33 +00:00
parent e02a01606f
commit 09138261ff
28 changed files with 176 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/bitbtnform.pp
View File

@ -25,7 +25,8 @@ unit bitbtnform;
interface
uses classes, forms, buttons, cListbox, StdCtrls, controls;
uses
Interfaces, Classes, Forms, Buttons, cListbox, StdCtrls, Controls;
type
TForm1 = class(TForm)

4
examples/bitbutton.pp
View File

@ -22,8 +22,8 @@ program bitbutton;
{$mode objfpc}{$H+}
uses forms,
bitbtnform;
uses
interfaces, forms, bitbtnform;
begin
Application.Initialize;

9
examples/checkbox.pp
View File

@ -29,13 +29,13 @@
* *
***************************************************************************
}
program checkbox;
program CheckBox;
{$mode objfpc}{$H+}
uses
classes, stdctrls, forms, buttons, menus, comctrls, sysutils,
extctrls, graphtype, graphics, controls;
Interfaces, Classes, Stdctrls, Forms, Buttons, Menus, Comctrls,
SysUtils, ExtCtrls, GraphType, Graphics, Controls;
type
TForm1 = class(TFORM)
@ -414,6 +414,9 @@ end.
{
$Log$
Revision 1.5 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.4 2002/05/10 06:57:50 lazarus
MG: updated licenses

8
examples/combobox.pp
View File

@ -26,12 +26,13 @@
* *
***************************************************************************
}
program combobox;
program ComboBox;
{$mode objfpc}{$H+}
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils, extctrls,controls;
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils, Extctrls, Controls;
type
TForm1 = class(TFORM)
@ -388,6 +389,9 @@ end.
{
$Log$
Revision 1.7 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.6 2002/09/07 20:30:50 lazarus
Make TComboboxes sort again, including in OI

11
examples/comdialogs.pp
View File

@ -18,15 +18,14 @@
* *
***************************************************************************
}
program comdialogs;
program ComDialogs;
{$mode objfpc}{$H+}
uses forms,
dlgform;
uses Interfaces, Forms, DlgForm;
begin
Application.Initialize;
Application.CreateForm(TSampleDialogs, SampleDialogs);
Application.Run;
Application.Initialize;
Application.CreateForm(TSampleDialogs, SampleDialogs);
Application.Run;
end.

4
examples/dlgform.pp
View File

@ -18,14 +18,14 @@
* *
***************************************************************************
}
unit dlgform;
unit DlgForm;
{$mode objfpc}
{$H+}
interface
uses classes, forms, buttons, dialogs, graphics;
uses Interfaces, Classes, Forms, Buttons, Dialogs, Graphics;
type
TSampleDialogs = class(TForm)

10
examples/edittest.pp
View File

@ -35,13 +35,14 @@
Detailed description of the Unit.
}
program edittest;
program EditTest;
{$mode objfpc}{$H+}
uses
StdCtrls, buttons, classes, forms, controls, sysutils, Graphics, synedit,
synhighlighterpas;
Interfaces,
StdCtrls, Buttons, Classes, Forms, Controls, SysUtils, Graphics,
SynEdit, SynHighlighterPas;
type
TEditTestForm = class(TForm)
@ -108,6 +109,9 @@ end.
{
$Log$
Revision 1.5 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.4 2002/05/10 06:57:50 lazarus
MG: updated licenses

5
examples/groupbox.pp
View File

@ -30,12 +30,13 @@
* *
***************************************************************************
}
program groupbox;
program GroupBox;
{$mode objfpc}{$H+}
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils;
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils;
type
TForm1 = class(TFORM)

76
examples/gtkglarea/gtkglarea_demo.lpi
View File

@ -8,7 +8,7 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="1"/>
<ActiveEditorIndexAtStart Value="2"/>
<IconPath Value=""/>
<TargetFileExt Value=""/>
<Title Value="gtkglarea_demo"/>
@ -17,7 +17,64 @@
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/gtk"/>
</General>
<Bookmarks Count="0"/>
<JumpHistory Count="0" HistoryIndex="-1"/>
<JumpHistory Count="14" HistoryIndex="13">
<Position1>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="1" Column="1" TopLine="1"/>
</Position1>
<Position2>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="104" Column="12" TopLine="66"/>
</Position2>
<Position3>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="24" Column="42" TopLine="1"/>
</Position3>
<Position4>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="103" Column="10" TopLine="71"/>
</Position4>
<Position5>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="24" Column="18" TopLine="1"/>
</Position5>
<Position6>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/nvgl.pp"/>
<Caret Line="750" Column="1" TopLine="703"/>
</Position6>
<Position7>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/nvgl.pp"/>
<Caret Line="2239" Column="17" TopLine="2215"/>
</Position7>
<Position8>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/nvgl.pp"/>
<Caret Line="1296" Column="9" TopLine="1249"/>
</Position8>
<Position9>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="84" Column="3" TopLine="70"/>
</Position9>
<Position10>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="24" Column="18" TopLine="1"/>
</Position10>
<Position11>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="28" Column="18" TopLine="1"/>
</Position11>
<Position12>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="106" Column="5" TopLine="70"/>
</Position12>
<Position13>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="38" Column="34" TopLine="1"/>
</Position13>
<Position14>
<Filename Value="/home/mattias/pascal/official/lazarus/components/gtk/gtkglarea/gtkglarea.pp"/>
<Caret Line="104" Column="16" TopLine="70"/>
</Position14>
</JumpHistory>
<Units Count="2">
<Unit0>
<CursorPos X="7" Y="26"/>
@ -35,7 +92,7 @@
<BreakPoints Count="0"/>
</Unit0>
<Unit1>
<CursorPos X="12" Y="70"/>
<CursorPos X="17" Y="69"/>
<EditorIndex Value="1"/>
<Filename Value="exampleform.pp"/>
<FormName Value=""/>
@ -50,6 +107,16 @@
<BreakPoints Count="0"/>
</Unit1>
</Units>
<PublishOptions>
<DestinationDirectory Value="$(TestDir)/publishedproject/"/>
<CommandAfter Value=""/>
<UseIncludeFileFilter Value="True"/>
<IncludeFileFilter Value="*.{pas,pp,inc,lfm,lpr,lrs,lpi,lpk,fpc,sh,xml}"/>
<UseExcludeFileFilter Value="False"/>
<ExcludeFileFilter Value="*.{bak,ppu,ppw,o,so};*~;backup"/>
<SaveClosedEditorFilesInfo Value="False"/>
<SaveEditorInfoOfNonProjectFiles Value="False"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
@ -57,7 +124,7 @@
<CommandLineParams Value=""/>
<LaunchingApplication Use="False" PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e bash -i -c '$(TargetCmdLine)'"/>
<WorkingDirectory Value=""/>
<Display Value=":0"/>
<Display Use="False" Value=":0"/>
</local>
<environment>
<UserOverrides Count="0"/>
@ -102,6 +169,7 @@
<UncertainOptimizations Value="False"/>
<OptimizationLevel Value="1"/>
</Optimizations>
<TargetOS Value="linux"/>
<LinkStyle Value="1"/>
</CodeGeneration>
<Linking>

2
examples/gtkglarea/gtkglarea_demo.pp
View File

@ -24,7 +24,7 @@ program GTKGLArea_Demo;
{$MODE objfpc}{$H+}
uses
Classes, SysUtils, Forms, ExampleForm;
Interfaces, Forms, ExampleForm;
begin
Application.Initialize;

5
examples/hello.pp
View File

@ -18,12 +18,11 @@
* *
***************************************************************************
}
program hello_world;
program Hello_world;
{$mode objfpc}{$H+}
uses forms,
helloform;
uses Interfaces, Forms, HelloForm;
begin
Application.Initialize; { calls InitProcedure which starts up GTK }

5
examples/helloform.pp
View File

@ -25,7 +25,7 @@ unit HelloForm;
interface
uses SysUtils, classes, forms, buttons, controls, Graphics;
uses Interfaces, SysUtils, Classes, Forms, Buttons, Controls, Graphics;
type
THello = class(TForm)
@ -89,6 +89,9 @@ end.
{ =============================================================================
$Log$
Revision 1.5 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.4 2002/09/10 06:49:18 lazarus
MG: scrollingwincontrol from Andrew

6
examples/listboxtest.pp
View File

@ -18,12 +18,13 @@
* *
***************************************************************************
}
program listboxtest;
program ListBoxTest;
{$mode objfpc}{$H+}
uses
buttons, classes, forms, stdctrls, sysutils, Vclglobals, clistbox;
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Vclglobals,
CListBox;
type
TListBoxTestForm = class(TForm)
@ -135,6 +136,7 @@ var
X: integer;
begin
X := integer(ListBox.Items.Objects[ListBox.ItemIndex]);
writeln('TListBoxTestForm.Button4Click ',X);
end;
begin

5
examples/listviewtest.pp
View File

@ -35,7 +35,7 @@ program ListViewTest;
{$mode objfpc}{$H+}
uses
Classes, Buttons, ComCtrls, Forms, SysUtils;
Interfaces, Classes, Buttons, ComCtrls, Forms, SysUtils;
type
TMyForm = class(TForm)
@ -98,6 +98,9 @@ end.
{
$Log$
Revision 1.4 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.3 2002/05/10 06:57:50 lazarus
MG: updated licenses

4
examples/memotest.pp
View File

@ -18,12 +18,12 @@
* *
***************************************************************************
}
program memotest;
program MemoTest;
{$mode objfpc}{$H+}
uses
buttons, classes, forms, stdctrls, sysutils, Vclglobals;
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, VclGlobals;
type
TMemoTestForm = class(TForm)

5
examples/messagedialogs.pp
View File

@ -32,7 +32,7 @@ Program MessagDialogs;
{$mode objfpc}{$H+}
uses classes, forms, dialogs, buttons;
uses Interfaces, Classes, Forms, Dialogs, Buttons;
type
TMainForm = class(TForm)
@ -85,6 +85,9 @@ begin
end.
{
$Log$
Revision 1.6 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.5 2002/09/03 20:02:01 lazarus
Intermediate UI patch to show a bug.

10
examples/notebk.pp
View File

@ -18,14 +18,15 @@
* *
***************************************************************************
}
program notebk;
program NoteBk;
{$mode objfpc}
{$H+}
uses
forms,
notebku;
Interfaces,
Forms,
NoteBku;
begin
Application.Initialize;
@ -35,6 +36,9 @@ end.
{
$Log$
Revision 1.3 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.2 2002/05/10 06:57:50 lazarus
MG: updated licenses

4
examples/notebooktest.pp
View File

@ -37,8 +37,8 @@ program NotebookTest;
{$mode delphi}
uses
classes, Controls, forms,buttons,sysutils, stdctrls,
Graphics, extctrls;
Interfaces, Classes, Controls, Forms, Buttons, SysUtils, StdCtrls,
Graphics, ExtCtrls;
type

3
examples/progressbar.pp
View File

@ -36,7 +36,8 @@ program Progressbar;
{$mode objfpc}{$H+}
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils, extctrls;
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils, Extctrls;
type

4
examples/scrollbar.pp
View File

@ -33,8 +33,8 @@ program Scrollbar;
{$mode objfpc}{$H+}
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils, extctrls,
controls;
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils, ExtCtrls, Controls;
type
TForm1 = class(TFORM)

1
examples/selection.pp
View File

@ -23,6 +23,7 @@ program Selection;
{$mode delphi}
uses
Interfaces,
Forms,
Selectionform,
ControlSelection;

4
examples/selectionform.pp
View File

@ -25,8 +25,8 @@ interface
{$mode delphi}
uses
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ControlSelection,
StdCtrls, Buttons;
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ControlSelection, StdCtrls, Buttons;
type
TForm1 = class(TForm)

3
examples/speedtest.pp
View File

@ -23,7 +23,8 @@ program SpeedTest;
{$mode Delphi}
uses
forms, sysutils, Buttons, Classes, StdCtrls, LCLType, LCLLinux, Graphics;
Interfaces, Forms, SysUtils, Buttons, Classes, StdCtrls, LCLType,
LCLLinux, Graphics;
type
TForm1 = class(TForm)

14
examples/testall.pp
View File

@ -18,20 +18,22 @@
* *
***************************************************************************
}
program testall;
program TestAll;
{$mode objfpc}{$H+}
uses forms,
testallform;
uses Interfaces, Forms, TestAllForm;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
{
$Log$
Revision 1.3 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.2 2002/05/10 06:57:50 lazarus
MG: updated licenses

19
examples/testallform.pp
View File

@ -52,7 +52,7 @@ type
//Bitmap1 : TBitmap;
Button1 : Array[0..15] of TButton;
CheckBox1 : Array[1..35] of TCheckBox;
ClipBoard1 : TClipBoard;
//ClipBoard1 : TClipBoard;
CListBox1 : TClistBox;
ColorDialog1 : TColorDialog;
ComboBox1 : TComboBox;
@ -95,7 +95,11 @@ type
Panel1 : TPanel;
PixMap1 : TPixMap;
PopupMenu1 : TPopupMenu;
Hello, Doctor, FName, Yesterday, Tomorrow : TMenuItem;
Hello : TMenuItem;
Doctor : TMenuItem;
//FName: TMenuItem;
//Yesterday: TMenuItem;
//Tomorrow : TMenuItem;
//PrintDialog1 : TPrintDialog;
//PrinterSetupDialog1 : TPrinterSetupDialog;
ProgressBar1 : TProgressBar;
@ -114,11 +118,11 @@ type
//StringGrid1 : TStringGrid;
//TabbedNoteBook : TTabbedNoteBook;
//TabControl : TTabControl;
Thread1 : TThread;
//Thread1 : TThread;
Timer1 : TTimer;
ToggleBox1 : TToggleBox;
ToolBar1 : TToolBar;
ToolButton1, ToolButton2 : TToolButton;
ToolButton1 : TToolButton;
TrackBar1, TrackBar2 : TTrackBar;
//UpDown1 : TUpDown;
//+++++++++++++ TestTools +++++++++++++++++++++++++++++
@ -202,7 +206,9 @@ type
procedure FormBorder(Sender : TObject);
procedure FormPosition(Sender : TObject);
//+++++++++++++ TFontDialog +++++++++++++++++++++++++++
lblWhatFont, lblFontSize, lblFontStyle : TLabel;
lblWhatFont: TLabel;
//blFontSize: TLabel;
//lblFontStyle : TLabel;
btnShowFont : TBitBtn;
procedure SelectFont(Sender : TObject);
//+++++++++++++ TIniFile ++++++++++++++++++++++++++++++
@ -2579,6 +2585,9 @@ END.
{
$Log$
Revision 1.11 2002/10/29 08:22:32 lazarus
MG: added interfaces unit
Revision 1.10 2002/09/10 14:08:54 lazarus
MG: fixed compiling examples

5
examples/testtools.inc
View File

@ -2351,8 +2351,6 @@ begin
end;
procedure TForm1.EventOnMouseMove(Sender : TObject; Shift : TShiftState; X,Y : Integer);
var
Nothing : TMouseButton;
begin
If Sender = BenchForm[5] then
Begin
@ -2881,6 +2879,9 @@ begin
end;
{
$Log$
Revision 1.9 2002/10/29 08:22:33 lazarus
MG: added interfaces unit
Revision 1.8 2002/07/30 06:24:06 lazarus
MG: added a faster version of TXMLConfig

4
examples/toolbar.pp
View File

@ -34,8 +34,8 @@ program Toolbar;
{$mode objfpc}{$H+}
uses
classes, stdctrls,forms,buttons,menus,comctrls,sysutils, extctrls,
controls;
Interfaces, Classes, StdCtrls, Forms, Buttons, Menus, ComCtrls,
SysUtils, ExtCtrls, Controls;
type
TForm1 = class(TFORM)

6
examples/trackbar.pp
View File

@ -39,7 +39,8 @@ program Trackbar;
{$mode objfpc}{$H+}
uses
classes, forms,buttons,menus,comctrls,sysutils, controls;
Interfaces, Classes, Forms, Buttons, Menus, ComCtrls,
SysUtils, Controls;
type
TForm1 = class(TFORM)
@ -309,6 +310,9 @@ begin
end.
{
$Log$
Revision 1.5 2002/10/29 08:22:33 lazarus
MG: added interfaces unit
Revision 1.4 2002/05/10 06:57:50 lazarus
MG: updated licenses