paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 16:19:13 +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 interface
uses classes, forms, buttons, cListbox, StdCtrls, controls; uses
Interfaces, Classes, Forms, Buttons, cListbox, StdCtrls, Controls;
type type
TForm1 = class(TForm) TForm1 = class(TForm)

4
examples/bitbutton.pp
View File

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

9
examples/checkbox.pp
View File

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

8
examples/combobox.pp
View File

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

11
examples/comdialogs.pp
View File

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

4
examples/dlgform.pp
View File

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

10
examples/edittest.pp
View File

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

5
examples/groupbox.pp
View File

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

76
examples/gtkglarea/gtkglarea_demo.lpi
View File

@ -8,7 +8,7 @@
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="1"/> <ActiveEditorIndexAtStart Value="2"/>
<IconPath Value=""/> <IconPath Value=""/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="gtkglarea_demo"/> <Title Value="gtkglarea_demo"/>
@ -17,7 +17,64 @@
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/gtk"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/gtk"/>
</General> </General>
<Bookmarks Count="0"/> <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"> <Units Count="2">
<Unit0> <Unit0>
<CursorPos X="7" Y="26"/> <CursorPos X="7" Y="26"/>
@ -35,7 +92,7 @@
<BreakPoints Count="0"/> <BreakPoints Count="0"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<CursorPos X="12" Y="70"/> <CursorPos X="17" Y="69"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<Filename Value="exampleform.pp"/> <Filename Value="exampleform.pp"/>
<FormName Value=""/> <FormName Value=""/>
@ -50,6 +107,16 @@
<BreakPoints Count="0"/> <BreakPoints Count="0"/>
</Unit1> </Unit1>
</Units> </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> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
@ -57,7 +124,7 @@
<CommandLineParams Value=""/> <CommandLineParams Value=""/>
<LaunchingApplication Use="False" PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e bash -i -c '$(TargetCmdLine)'"/> <LaunchingApplication Use="False" PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e bash -i -c '$(TargetCmdLine)'"/>
<WorkingDirectory Value=""/> <WorkingDirectory Value=""/>
<Display Value=":0"/> <Display Use="False" Value=":0"/>
</local> </local>
<environment> <environment>
<UserOverrides Count="0"/> <UserOverrides Count="0"/>
@ -102,6 +169,7 @@
<UncertainOptimizations Value="False"/> <UncertainOptimizations Value="False"/>
<OptimizationLevel Value="1"/> <OptimizationLevel Value="1"/>
</Optimizations> </Optimizations>
<TargetOS Value="linux"/>
<LinkStyle Value="1"/> <LinkStyle Value="1"/>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>

2
examples/gtkglarea/gtkglarea_demo.pp
View File

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

5
examples/hello.pp
View File

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

5
examples/helloform.pp
View File

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

6
examples/listboxtest.pp
View File

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

5
examples/listviewtest.pp
View File

@ -35,7 +35,7 @@ program ListViewTest;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, Buttons, ComCtrls, Forms, SysUtils; Interfaces, Classes, Buttons, ComCtrls, Forms, SysUtils;
type type
TMyForm = class(TForm) TMyForm = class(TForm)
@ -98,6 +98,9 @@ end.
{ {
$Log$ $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 Revision 1.3 2002/05/10 06:57:50 lazarus
MG: updated licenses MG: updated licenses

4
examples/memotest.pp
View File

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

5
examples/messagedialogs.pp
View File

@ -32,7 +32,7 @@ Program MessagDialogs;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses classes, forms, dialogs, buttons; uses Interfaces, Classes, Forms, Dialogs, Buttons;
type type
TMainForm = class(TForm) TMainForm = class(TForm)
@ -85,6 +85,9 @@ begin
end. end.
{ {
$Log$ $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 Revision 1.5 2002/09/03 20:02:01 lazarus
Intermediate UI patch to show a bug. Intermediate UI patch to show a bug.

10
examples/notebk.pp
View File

@ -18,14 +18,15 @@
* * * *
*************************************************************************** ***************************************************************************
} }
program notebk; program NoteBk;
{$mode objfpc} {$mode objfpc}
{$H+} {$H+}
uses uses
forms, Interfaces,
notebku; Forms,
NoteBku;
begin begin
Application.Initialize; Application.Initialize;
@ -35,6 +36,9 @@ end.
{ {
$Log$ $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 Revision 1.2 2002/05/10 06:57:50 lazarus
MG: updated licenses MG: updated licenses

4
examples/notebooktest.pp
View File

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

3
examples/progressbar.pp
View File

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

4
examples/scrollbar.pp
View File

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

1
examples/selection.pp
View File

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

4
examples/selectionform.pp
View File

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

3
examples/speedtest.pp
View File

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

14
examples/testall.pp
View File

@ -18,20 +18,22 @@
* * * *
*************************************************************************** ***************************************************************************
} }
program testall; program TestAll;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses forms, uses Interfaces, Forms, TestAllForm;
testallform;
begin begin
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;
end. end.
{ {
$Log$ $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 Revision 1.2 2002/05/10 06:57:50 lazarus
MG: updated licenses MG: updated licenses

19
examples/testallform.pp
View File

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

5
examples/testtools.inc
View File

@ -2351,8 +2351,6 @@ begin
end; end;
procedure TForm1.EventOnMouseMove(Sender : TObject; Shift : TShiftState; X,Y : Integer); procedure TForm1.EventOnMouseMove(Sender : TObject; Shift : TShiftState; X,Y : Integer);
var
Nothing : TMouseButton;
begin begin
If Sender = BenchForm[5] then If Sender = BenchForm[5] then
Begin Begin
@ -2881,6 +2879,9 @@ begin
end; end;
{ {
$Log$ $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 Revision 1.8 2002/07/30 06:24:06 lazarus
MG: added a faster version of TXMLConfig MG: added a faster version of TXMLConfig

4
examples/toolbar.pp
View File

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

6
examples/trackbar.pp
View File

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