paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-07 17:09:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

added .lpi for examples

Browse Source 
git-svn-id: trunk@7869 -
This commit is contained in:
mattias 2005-10-01 00:38:04 +00:00
parent 098b82cdf6
commit 95ca76e85e
30 changed files with 1655 additions and 226 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
.gitattributes vendored
View File

@ -642,7 +642,9 @@ examples/barchart/frmmain.lfm svneol=native#text/plain
examples/barchart/frmmain.lrs svneol=native#text/pascal examples/barchart/frmmain.lrs svneol=native#text/pascal
examples/barchart/frmmain.pas svneol=native#text/pascal examples/barchart/frmmain.pas svneol=native#text/pascal
examples/bitbtnform.pp svneol=native#text/pascal examples/bitbtnform.pp svneol=native#text/pascal
examples/bitbutton.lpi svneol=native#text/plain
examples/bitbutton.pp svneol=native#text/pascal examples/bitbutton.pp svneol=native#text/pascal
examples/checkbox.lpi svneol=native#text/plain
examples/checkbox.pp svneol=native#text/pascal examples/checkbox.pp svneol=native#text/pascal
examples/codepageconverter/codepages.ini svneol=native#text/plain examples/codepageconverter/codepages.ini svneol=native#text/plain
examples/codepageconverter/filefind/filefind.lrs svneol=native#text/pascal examples/codepageconverter/filefind/filefind.lrs svneol=native#text/pascal
@ -660,7 +662,9 @@ examples/codepageconverter/mainunit.lrt svneol=native#text/plain
examples/codepageconverter/mainunit.pas svneol=native#text/pascal examples/codepageconverter/mainunit.pas svneol=native#text/pascal
examples/codepageconverter/mainunit.po svneol=native#text/plain examples/codepageconverter/mainunit.po svneol=native#text/plain
examples/codepageconverter/mainunit.ru_RU.UTF-8.po svneol=native#text/plain examples/codepageconverter/mainunit.ru_RU.UTF-8.po svneol=native#text/plain
examples/combobox.lpi svneol=native#text/plain
examples/combobox.pp svneol=native#text/pascal examples/combobox.pp svneol=native#text/pascal
examples/comdialogs.lpi svneol=native#text/plain
examples/comdialogs.pp svneol=native#text/pascal examples/comdialogs.pp svneol=native#text/pascal
examples/dlgform.pp svneol=native#text/pascal examples/dlgform.pp svneol=native#text/pascal
examples/easter/about.lfm svneol=native#text/plain examples/easter/about.lfm svneol=native#text/plain
@ -671,6 +675,7 @@ examples/easter/holyday.lpr svneol=native#text/pascal
examples/easter/main.lfm svneol=native#text/plain examples/easter/main.lfm svneol=native#text/plain
examples/easter/main.lrs svneol=native#text/pascal examples/easter/main.lrs svneol=native#text/pascal
examples/easter/main.pas svneol=native#text/pascal examples/easter/main.pas svneol=native#text/pascal
examples/edittest.lpi svneol=native#text/plain
examples/edittest.pp svneol=native#text/pascal examples/edittest.pp svneol=native#text/pascal
examples/grid_semaphor/TSemaphorDBGrid.xpm -text svneol=native#image/x-xpixmap examples/grid_semaphor/TSemaphorDBGrid.xpm -text svneol=native#image/x-xpixmap
examples/grid_semaphor/example/project1.lpi svneol=native#text/plain examples/grid_semaphor/example/project1.lpi svneol=native#text/plain
@ -690,7 +695,9 @@ examples/grid_semaphor/semaphorgridlpk.pas svneol=native#text/pascal
examples/grid_semaphor/semaphorgrids.pas svneol=native#text/pascal examples/grid_semaphor/semaphorgrids.pas svneol=native#text/pascal
examples/grid_semaphor/semaphorgridsicon.lrs svneol=native#text/pascal examples/grid_semaphor/semaphorgridsicon.lrs svneol=native#text/pascal
examples/grid_semaphor/tsemaphorgrid.xpm -text svneol=native#image/x-xpixmap examples/grid_semaphor/tsemaphorgrid.xpm -text svneol=native#image/x-xpixmap
examples/groupbox.lpi svneol=native#text/plain
examples/groupbox.pp svneol=native#text/pascal examples/groupbox.pp svneol=native#text/pascal
examples/groupboxnested.lpi svneol=native#text/plain
examples/groupboxnested.pas svneol=native#text/pascal examples/groupboxnested.pas svneol=native#text/pascal
examples/gtkglarea/data/particle.bmp -text svneol=unset#image/bmp examples/gtkglarea/data/particle.bmp -text svneol=unset#image/bmp
examples/gtkglarea/data/texture1.bmp -text svneol=unset#image/bmp examples/gtkglarea/data/texture1.bmp -text svneol=unset#image/bmp
@ -699,6 +706,7 @@ examples/gtkglarea/data/texture3.bmp -text svneol=unset#image/bmp
examples/gtkglarea/exampleform.pp svneol=native#text/pascal examples/gtkglarea/exampleform.pp svneol=native#text/pascal
examples/gtkglarea/gtkglarea_demo.lpi svneol=native#text/plain examples/gtkglarea/gtkglarea_demo.lpi svneol=native#text/plain
examples/gtkglarea/gtkglarea_demo.pp svneol=native#text/pascal examples/gtkglarea/gtkglarea_demo.pp svneol=native#text/pascal
examples/hello.lpi svneol=native#text/plain
examples/hello.pp svneol=native#text/pascal examples/hello.pp svneol=native#text/pascal
examples/helloform.pp svneol=native#text/pascal examples/helloform.pp svneol=native#text/pascal
examples/imgviewer/file.bmp -text svneol=native#image/bmp examples/imgviewer/file.bmp -text svneol=native#image/bmp
@ -716,17 +724,24 @@ examples/lazintfimage/fadein1.lpr svneol=native#text/pascal
examples/lazintfimage/mainunit1.lfm svneol=native#text/plain examples/lazintfimage/mainunit1.lfm svneol=native#text/plain
examples/lazintfimage/mainunit1.lrs svneol=native#text/pascal examples/lazintfimage/mainunit1.lrs svneol=native#text/pascal
examples/lazintfimage/mainunit1.pas svneol=native#text/pascal examples/lazintfimage/mainunit1.pas svneol=native#text/pascal
examples/listboxtest.lpi svneol=native#text/plain
examples/listboxtest.pp svneol=native#text/pascal examples/listboxtest.pp svneol=native#text/pascal
examples/listview/listview.lpr svneol=native#text/pascal examples/listview/listview.lpr svneol=native#text/pascal
examples/listview/testform.lfm svneol=native#text/plain examples/listview/testform.lfm svneol=native#text/plain
examples/listview/testform.lrs svneol=native#text/pascal examples/listview/testform.lrs svneol=native#text/pascal
examples/listview/testform.pp svneol=native#text/pascal examples/listview/testform.pp svneol=native#text/pascal
examples/listviewtest.lpi svneol=native#text/plain
examples/listviewtest.pp svneol=native#text/pascal examples/listviewtest.pp svneol=native#text/pascal
examples/loadpicture.lpi svneol=native#text/plain
examples/loadpicture.pas svneol=native#text/pascal examples/loadpicture.pas svneol=native#text/pascal
examples/memotest.lpi svneol=native#text/plain
examples/memotest.pp svneol=native#text/pascal examples/memotest.pp svneol=native#text/pascal
examples/messagedialogs.lpi svneol=native#text/plain
examples/messagedialogs.pp svneol=native#text/pascal examples/messagedialogs.pp svneol=native#text/pascal
examples/notebk.lpi svneol=native#text/plain
examples/notebk.pp svneol=native#text/pascal examples/notebk.pp svneol=native#text/pascal
examples/notebku.pp svneol=native#text/pascal examples/notebku.pp svneol=native#text/pascal
examples/notebooktest.lpi svneol=native#text/plain
examples/notebooktest.pp svneol=native#text/pascal examples/notebooktest.pp svneol=native#text/pascal
examples/objectinspector/mainunit.lfm svneol=native#text/plain examples/objectinspector/mainunit.lfm svneol=native#text/plain
examples/objectinspector/mainunit.lrs svneol=native#text/pascal examples/objectinspector/mainunit.lrs svneol=native#text/pascal
@ -738,10 +753,13 @@ examples/postscript/samplepostscriptcanvas.lpr svneol=native#text/pascal
examples/postscript/usamplepostscriptcanvas.lfm svneol=native#text/plain examples/postscript/usamplepostscriptcanvas.lfm svneol=native#text/plain
examples/postscript/usamplepostscriptcanvas.lrs svneol=native#text/pascal examples/postscript/usamplepostscriptcanvas.lrs svneol=native#text/pascal
examples/postscript/usamplepostscriptcanvas.pas svneol=native#text/pascal examples/postscript/usamplepostscriptcanvas.pas svneol=native#text/pascal
examples/progressbar.lpi svneol=native#text/plain
examples/progressbar.pp svneol=native#text/pascal examples/progressbar.pp svneol=native#text/pascal
examples/scrollbar.lpi svneol=native#text/plain
examples/scrollbar.pp svneol=native#text/pascal examples/scrollbar.pp svneol=native#text/pascal
examples/selection.pp svneol=native#text/pascal examples/selection.pp svneol=native#text/pascal
examples/selectionform.pp svneol=native#text/pascal examples/selectionform.pp svneol=native#text/pascal
examples/speedtest.lpi svneol=native#text/plain
examples/speedtest.pp svneol=native#text/pascal examples/speedtest.pp svneol=native#text/pascal
examples/sprites/playground.lfm svneol=native#text/plain examples/sprites/playground.lfm svneol=native#text/plain
examples/sprites/playground.lrs svneol=native#text/pascal examples/sprites/playground.lrs svneol=native#text/pascal
@ -749,12 +767,17 @@ examples/sprites/playground.pas svneol=native#text/pascal
examples/sprites/spriteexample.lpi svneol=native#text/plain examples/sprites/spriteexample.lpi svneol=native#text/plain
examples/sprites/spriteexample.lpr svneol=native#text/pascal examples/sprites/spriteexample.lpr svneol=native#text/pascal
examples/synchronize.pp svneol=native#text/pascal examples/synchronize.pp svneol=native#text/pascal
examples/synedit1.lpi svneol=native#text/plain
examples/synedit1.pas svneol=native#text/pascal examples/synedit1.pas svneol=native#text/pascal
examples/taborder.lpi svneol=native#text/plain
examples/taborder.pas svneol=native#text/pascal examples/taborder.pas svneol=native#text/pascal
examples/testall.lpi svneol=native#text/plain
examples/testall.pp svneol=native#text/pascal examples/testall.pp svneol=native#text/pascal
examples/testallform.pp svneol=native#text/pascal examples/testallform.pp svneol=native#text/pascal
examples/testtools.inc svneol=native#text/pascal examples/testtools.inc svneol=native#text/pascal
examples/toolbar.lpi svneol=native#text/plain
examples/toolbar.pp svneol=native#text/pascal examples/toolbar.pp svneol=native#text/pascal
examples/trackbar.lpi svneol=native#text/plain
examples/trackbar.pp svneol=native#text/pascal examples/trackbar.pp svneol=native#text/pascal
examples/treeview/TV_Add_Remove.dpr svneol=native#text/pascal examples/treeview/TV_Add_Remove.dpr svneol=native#text/pascal
examples/treeview/TV_Add_Remove.res svneol=native#unset examples/treeview/TV_Add_Remove.res svneol=native#unset

66
examples/bitbutton.lpi Normal file
View File

@ -0,0 +1,66 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<Units Count="2">
<Unit0>
<CursorPos X="28" Y="26"/>
<EditorIndex Value="0"/>
<Filename Value="bitbutton.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="bitbutton"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<CursorPos X="22" Y="34"/>
<EditorIndex Value="1"/>
<Filename Value="bitbtnform.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="bitbtnform"/>
<UsageCount Value="20"/>
</Unit1>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

55
examples/checkbox.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="19" Y="30"/>
<EditorIndex Value="0"/>
<Filename Value="checkbox.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="CheckBox"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

48
examples/combobox.lpi Normal file
View File

@ -0,0 +1,48 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="20" Y="45"/>
<EditorIndex Value="0"/>
<Filename Value="combobox.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="16"/>
<UnitName Value="ComboBox"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

70
examples/combobox.pp
View File

@ -35,43 +35,43 @@ uses
SysUtils, Extctrls, Controls; SysUtils, Extctrls, Controls;
type type
TForm1 = class(TFORM) TForm1 = class(TFORM)
public public
Label1 : TLabel; Label1: TLabel;
Label2 : TLabel; Label2: TLabel;
Label3 : TLabel; Label3: TLabel;
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
Button7: TButton; Button7: TButton;
Edit1 : TEdit; Edit1: TEdit;
mnuMain: TMainMenu; mnuMain: TMainMenu;
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
itmFile: TMenuItem; itmFile: TMenuItem;
ComboBox1 : TComboBox; ComboBox1: TComboBox;
ComboBox2 : TComboBox; ComboBox2: TComboBox;
Memo1 : TMemo; Memo1: TMemo;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu; procedure LoadMainMenu;
Procedure FormKill(Sender : TObject); procedure FormKill(Sender: TObject);
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender: TObject);
protected protected
procedure Button1CLick(Sender : TObject); procedure Button1CLick(Sender: TObject);
procedure Button2CLick(Sender : TObject); procedure Button2CLick(Sender: TObject);
procedure Button3CLick(Sender : TObject); procedure Button3CLick(Sender: TObject);
procedure Button4CLick(Sender : TObject); procedure Button4CLick(Sender: TObject);
procedure Button5CLick(Sender : TObject); procedure Button5CLick(Sender: TObject);
procedure Button6CLick(Sender : TObject); procedure Button6CLick(Sender: TObject);
procedure Button7CLick(Sender : TObject); procedure Button7CLick(Sender: TObject);
procedure ComboOnChange (Sender:TObject); procedure ComboOnChange(Sender: TObject);
procedure ComboOnClick (Sender:TObject); procedure ComboOnClick(Sender: TObject);
end; end;
var var
Form1 : TForm1; Form1 : TForm1;
constructor TForm1.Create(AOwner: TComponent); constructor TForm1.Create(AOwner: TComponent);
begin begin

55
examples/comdialogs.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="15" Y="25"/>
<EditorIndex Value="0"/>
<Filename Value="comdialogs.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="ComDialogs"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/edittest.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="36" Y="37"/>
<EditorIndex Value="0"/>
<Filename Value="edittest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="EditTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

55
examples/groupbox.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="17" Y="35"/>
<EditorIndex Value="0"/>
<Filename Value="groupbox.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="GroupBox"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

55
examples/groupboxnested.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="23" Y="33"/>
<EditorIndex Value="0"/>
<Filename Value="groupboxnested.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="GroupBoxNested"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

55
examples/hello.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="20" Y="31"/>
<EditorIndex Value="0"/>
<Filename Value="hello.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="Hello_world"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

55
examples/listboxtest.lpi Normal file
View File

@ -0,0 +1,55 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="1" Y="32"/>
<EditorIndex Value="0"/>
<Filename Value="listboxtest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="ListBoxTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

4
examples/listboxtest.pp
View File

@ -23,15 +23,13 @@ program ListBoxTest;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Controls{, Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Controls;
CListBox};
type type
TListBoxTestForm = class(TForm) TListBoxTestForm = class(TForm)
public public
Button1, Button2, Button3, Button4: TButton; Button1, Button2, Button3, Button4: TButton;
ListBox: TListBox; ListBox: TListBox;
// ListBox: TCListBox;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);

63
examples/listviewtest.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="28" Y="39"/>
<EditorIndex Value="0"/>
<Filename Value="listviewtest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="ListViewTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/loadpicture.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="29" Y="36"/>
<EditorIndex Value="0"/>
<Filename Value="loadpicture.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="LoadPicture"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/memotest.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="18" Y="33"/>
<EditorIndex Value="0"/>
<Filename Value="memotest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="MemoTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/messagedialogs.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="35" Y="34"/>
<EditorIndex Value="0"/>
<Filename Value="messagedialogs.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="MessagDialogs"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

73
examples/notebk.lpi Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<Units Count="2">
<Unit0>
<CursorPos X="8" Y="29"/>
<EditorIndex Value="0"/>
<Filename Value="notebk.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="NoteBk"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<CursorPos X="35" Y="36"/>
<EditorIndex Value="1"/>
<Filename Value="notebku.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="notebku"/>
<UsageCount Value="20"/>
</Unit1>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/notebooktest.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="23" Y="36"/>
<EditorIndex Value="0"/>
<Filename Value="notebooktest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="NotebookTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/progressbar.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="28" Y="63"/>
<EditorIndex Value="0"/>
<Filename Value="progressbar.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="36"/>
<UnitName Value="Progressbar"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

59
examples/progressbar.pp
View File

@ -3,8 +3,8 @@
progressbar - example progressbar - example
--------------------- ---------------------
Just a simple example to show & verify functionality Just a simple example to show & verify functionality
of the lazarus TTimer / TProgressBar classes. of the lazarus TTimer / TProgressBar classes.
Initial Revision : Sun Aug 15 1999 Initial Revision : Sun Aug 15 1999
@ -41,36 +41,35 @@ uses
type type
TForm1 = class(TFORM) TForm1 = class(TFORM)
public public
Progre1: TProgressBar; Progre1: TProgressBar;
Timer0 : TTimer; Timer0 : TTimer;
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
Button7: TButton; Button7: TButton;
mnuFile: TMainMenu; mnuFile: TMainMenu;
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu; procedure LoadMainMenu;
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
protected protected
procedure Button1CLick(Sender : TObject); procedure Button1CLick(Sender : TObject);
procedure Button2CLick(Sender : TObject); procedure Button2CLick(Sender : TObject);
procedure Button3CLick(Sender : TObject); procedure Button3CLick(Sender : TObject);
procedure Button4CLick(Sender : TObject); procedure Button4CLick(Sender : TObject);
procedure Button5CLick(Sender : TObject); procedure Button5CLick(Sender : TObject);
procedure Button6CLick(Sender : TObject); procedure Button6CLick(Sender : TObject);
procedure Button7CLick(Sender : TObject); procedure Button7CLick(Sender : TObject);
procedure TimedOut(Sender : TObject); procedure TimedOut(Sender : TObject);
end; end;
var var
Form1 : TForm1; Form1 : TForm1;
constructor TForm1.Create(AOwner: TComponent); constructor TForm1.Create(AOwner: TComponent);

63
examples/scrollbar.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="23" Y="48"/>
<EditorIndex Value="0"/>
<Filename Value="scrollbar.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="25"/>
<UnitName Value="Scrollbar"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

36
examples/scrollbar.pp
View File

@ -37,26 +37,26 @@ uses
SysUtils, ExtCtrls, Controls; SysUtils, ExtCtrls, Controls;
type type
TForm1 = class(TFORM) TForm1 = class(TFORM)
Scrollbar1 : TScrollbar; Scrollbar1 : TScrollbar;
Button1 : TButton; Button1 : TButton;
Button2 : TButton; Button2 : TButton;
Button3 : TButton; Button3 : TButton;
Button4 : TButton; Button4 : TButton;
Procedure Button1Clicked(sender : tobject); Procedure Button1Clicked(sender : tobject);
Procedure Button2Clicked(sender : tobject); Procedure Button2Clicked(sender : tobject);
Procedure Button3Clicked(sender : tobject); Procedure Button3Clicked(sender : tobject);
Procedure Button4Clicked(sender : tobject); Procedure Button4Clicked(sender : tobject);
Procedure scrollbar1Changed(sender : tobject); Procedure scrollbar1Changed(sender : tobject);
procedure Scrollbar1OnScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer); procedure Scrollbar1OnScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
Procedure FormKill(Sender : TObject); Procedure FormKill(Sender : TObject);
protected protected
end; end;
var var
Form1 : TForm1; Form1 : TForm1;
constructor TForm1.Create(AOwner: TComponent); constructor TForm1.Create(AOwner: TComponent);
begin begin

63
examples/speedtest.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="22" Y="31"/>
<EditorIndex Value="0"/>
<Filename Value="speedtest.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="SpeedTest"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/synedit1.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="21" Y="32"/>
<EditorIndex Value="0"/>
<Filename Value="synedit1.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="synedit1"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/taborder.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="12" Y="33"/>
<EditorIndex Value="0"/>
<Filename Value="taborder.pas"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="TabOrder"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

73
examples/testall.lpi Normal file
View File

@ -0,0 +1,73 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<Units Count="2">
<Unit0>
<CursorPos X="13" Y="24"/>
<EditorIndex Value="0"/>
<Filename Value="testall.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="TestAll"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<CursorPos X="22" Y="36"/>
<EditorIndex Value="1"/>
<Filename Value="testallform.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="TestAllForm"/>
<UsageCount Value="20"/>
</Unit1>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/toolbar.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="21" Y="31"/>
<EditorIndex Value="0"/>
<Filename Value="toolbar.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="Toolbar"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

63
examples/trackbar.lpi Normal file
View File

@ -0,0 +1,63 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<Units Count="1">
<Unit0>
<CursorPos X="24" Y="26"/>
<EditorIndex Value="0"/>
<Filename Value="trackbar.pp"/>
<IsPartOfProject Value="True"/>
<Loaded Value="True"/>
<TopLine Value="1"/>
<UnitName Value="Trackbar"/>
<UsageCount Value="20"/>
</Unit0>
</Units>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

270
examples/trackbar.pp
View File

@ -3,8 +3,8 @@
trackbar - example trackbar - example
------------------ ------------------
Just a simple example to show & verify functionality Just a simple example to show & verify functionality
of the lazarus TTrackbar class. of the lazarus TTrackbar class.
Initial Revision : Sun Aug 05 1999 Initial Revision : Sun Aug 05 1999
@ -12,7 +12,7 @@
TODO: - button "orientation" will crash the program if pressed TODO: - button "orientation" will crash the program if pressed
- add a label which displays current trackbar value and is updated - add a label which displays current trackbar value and is updated
by a procedure connected to "OnChange" by a procedure connected to "OnChange"
***************************************************************************/ ***************************************************************************/
*************************************************************************** ***************************************************************************
@ -43,35 +43,35 @@ uses
SysUtils, Controls; SysUtils, Controls;
type type
TForm1 = class(TFORM) TForm1 = class(TFORM)
public public
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
Button7: TButton; Button7: TButton;
Button8: TButton; Button8: TButton;
Track1 : TTRackBar; Track1 : TTRackBar;
Track2 : TTRackBar; Track2 : TTRackBar;
mnuMain: TMainMenu; mnuMain: TMainMenu;
itmFile: TMenuItem; itmFile: TMenuItem;
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure LoadMainMenu; procedure LoadMainMenu;
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
protected protected
procedure Button1CLick(Sender : TObject); procedure Button1CLick(Sender : TObject);
procedure Button2CLick(Sender : TObject); procedure Button2CLick(Sender : TObject);
procedure Button3CLick(Sender : TObject); procedure Button3CLick(Sender : TObject);
procedure Button4CLick(Sender : TObject); procedure Button4CLick(Sender : TObject);
procedure Button5CLick(Sender : TObject); procedure Button5CLick(Sender : TObject);
procedure Button6CLick(Sender : TObject); procedure Button6CLick(Sender : TObject);
procedure Button7CLick(Sender : TObject); procedure Button7CLick(Sender : TObject);
procedure Button8CLick(Sender : TObject); procedure Button8CLick(Sender : TObject);
procedure Track1Change(Sender : TObject); procedure Track1Change(Sender : TObject);
end; end;
var var
Form1 : TForm1; Form1 : TForm1;
@ -93,9 +93,9 @@ End;
procedure TForm1.Button2Click(Sender : TObject); procedure TForm1.Button2Click(Sender : TObject);
Begin Begin
if assigned (track1) then begin if assigned (track1) then begin
if Track1.orientation = trHorizontal if Track1.orientation = trHorizontal
then Track1.orientation := trVertical then Track1.orientation := trVertical
else Track1.orientation := trHorizontal; else Track1.orientation := trHorizontal;
end; end;
End; End;
@ -103,7 +103,7 @@ procedure TForm1.Button3Click(Sender : TObject);
Begin Begin
if assigned (Track1) then begin if assigned (Track1) then begin
writeln ('Setting new position'); writeln ('Setting new position');
Track1.Position := Track1.Position + 1; Track1.Position := Track1.Position + 1;
end; end;
End; End;
@ -124,7 +124,7 @@ procedure TForm1.Button5Click(Sender : TObject);
Begin Begin
if assigned (Track1) then begin if assigned (Track1) then begin
writeln ('Toggling ShowScalePos'); writeln ('Toggling ShowScalePos');
Track1.ShowScale := not Track1.ShowScale; Track1.ShowScale := not Track1.ShowScale;
end; end;
End; End;
@ -138,7 +138,7 @@ procedure TForm1.Button7Click(Sender : TObject);
Begin Begin
if assigned (Track1) then begin if assigned (Track1) then begin
writeln ('Incrementing LineSize'); writeln ('Incrementing LineSize');
Track1.LineSize := Track1.LineSize + 1; Track1.LineSize := Track1.LineSize + 1;
end; end;
End; End;
@ -146,7 +146,7 @@ procedure TForm1.Button8Click(Sender : TObject);
Begin Begin
if assigned (Track1) then begin if assigned (Track1) then begin
writeln ('Incrementing PageSize'); writeln ('Incrementing PageSize');
Track1.PageSize := Track1.PageSize + 1; Track1.PageSize := Track1.PageSize + 1;
end; end;
End; End;
@ -154,7 +154,7 @@ procedure TForm1.Track1Change(Sender : TObject);
begin begin
if assigned (Track1) then begin if assigned (Track1) then begin
writeln ('*** CALLBACK ONCHANGE!!!!! ***'); writeln ('*** CALLBACK ONCHANGE!!!!! ***');
Track1.PageSize := Track1.PageSize + 1; Track1.PageSize := Track1.PageSize + 1;
end; end;
end; end;
@ -162,117 +162,117 @@ end;
procedure TForm1.LoadMainMenu; procedure TForm1.LoadMainMenu;
begin begin
{ set the height and width } { set the height and width }
Height := 350; Height := 350;
Width := 700; Width := 700;
{ Setting up horizontal trackbar } { Setting up horizontal trackbar }
Track1 := TTrackBar.Create (Self); Track1 := TTrackBar.Create (Self);
Track1.Parent := Self; Track1.Parent := Self;
Track1.Left := 50; Track1.Left := 50;
Track1.Top := 150; Track1.Top := 150;
Track1.Width := 140; Track1.Width := 140;
Track1.Height := 140; Track1.Height := 140;
Track1.Min := 0; Track1.Min := 0;
Track1.Max := 100; Track1.Max := 100;
Track1.OnChange := @Track1Change; Track1.OnChange := @Track1Change;
Track1.Show; Track1.Show;
{ Setting up vertical trackbar } { Setting up vertical trackbar }
Track2 := TTrackBar.Create (Self); Track2 := TTrackBar.Create (Self);
Track2.Parent := Self; Track2.Parent := Self;
Track2.Orientation := trVertical; Track2.Orientation := trVertical;
Track2.Left := 500; Track2.Left := 500;
Track2.Top := 150; Track2.Top := 150;
Track2.Width := 20; Track2.Width := 20;
Track2.Height := 100; Track2.Height := 100;
Track2.Min := 0; Track2.Min := 0;
Track2.Max := 100; Track2.Max := 100;
Track2.Show; Track2.Show;
{ create some buttons to change trackbar properties } { create some buttons to change trackbar properties }
Button2 := TButton.Create(Self); Button2 := TButton.Create(Self);
button2.Parent := Self; button2.Parent := Self;
Button2.Left := 200; Button2.Left := 200;
Button2.Top := 30; Button2.Top := 30;
Button2.Width := 100; Button2.Width := 100;
Button2.Height := 30; Button2.Height := 30;
Button2.Caption := 'Orientation'; Button2.Caption := 'Orientation';
Button2.OnClick := @Button2Click; Button2.OnClick := @Button2Click;
Button2.Show; Button2.Show;
Button1 := TButton.Create(Self); Button1 := TButton.Create(Self);
button1.Parent := Self; button1.Parent := Self;
Button1.Left := 200; Button1.Left := 200;
Button1.Top := 70; Button1.Top := 70;
Button1.Width := 100; Button1.Width := 100;
Button1.Height := 30; Button1.Height := 30;
Button1.Caption := 'Max++'; Button1.Caption := 'Max++';
Button1.OnClick := @Button1Click; Button1.OnClick := @Button1Click;
Button1.Show; Button1.Show;
Button3 := TButton.Create(Self); Button3 := TButton.Create(Self);
button3.Parent := Self; button3.Parent := Self;
Button3.Left := 200; Button3.Left := 200;
Button3.Top := 110; Button3.Top := 110;
Button3.Width := 100; Button3.Width := 100;
Button3.Height := 30; Button3.Height := 30;
Button3.Show; Button3.Show;
Button3.Caption := 'Position++'; Button3.Caption := 'Position++';
Button3.OnClick := @Button3Click; Button3.OnClick := @Button3Click;
Button4 := TButton.Create(Self); Button4 := TButton.Create(Self);
button4.Parent := Self; button4.Parent := Self;
Button4.Left := 350; Button4.Left := 350;
Button4.Top := 30; Button4.Top := 30;
Button4.Width := 130; Button4.Width := 130;
Button4.Height := 30; Button4.Height := 30;
Button4.Show; Button4.Show;
Button4.Caption := 'GTK: TextPos'; Button4.Caption := 'GTK: TextPos';
Button4.OnClick := @Button4Click; Button4.OnClick := @Button4Click;
Button5 := TButton.Create(Self); Button5 := TButton.Create(Self);
button5.Parent := Self; button5.Parent := Self;
Button5.Left := 350; Button5.Left := 350;
Button5.Top := 70; Button5.Top := 70;
Button5.Width := 130; Button5.Width := 130;
Button5.Height := 30; Button5.Height := 30;
Button5.Show; Button5.Show;
Button5.Caption := 'GTK: Show Text'; Button5.Caption := 'GTK: Show Text';
Button5.OnClick := @Button5Click; Button5.OnClick := @Button5Click;
Button6 := TButton.Create(Self); Button6 := TButton.Create(Self);
button6.Parent := Self; button6.Parent := Self;
Button6.Left := 350; Button6.Left := 350;
Button6.Top := 110; Button6.Top := 110;
Button6.Width := 130; Button6.Width := 130;
Button6.Height := 30; Button6.Height := 30;
Button6.Show; Button6.Show;
Button6.Caption := '---'; Button6.Caption := '---';
Button6.Visible := false; Button6.Visible := false;
Button6.OnClick := @Button6Click; Button6.OnClick := @Button6Click;
Button7 := TButton.Create(Self); Button7 := TButton.Create(Self);
button7.Parent := Self; button7.Parent := Self;
Button7.Left := 200; Button7.Left := 200;
Button7.Top := 150; Button7.Top := 150;
Button7.Width := 100; Button7.Width := 100;
Button7.Height := 30; Button7.Height := 30;
Button7.Show; Button7.Show;
Button7.Caption := 'LineSize++'; Button7.Caption := 'LineSize++';
Button7.OnClick := @Button7Click; Button7.OnClick := @Button7Click;
Button8 := TButton.Create(Self); Button8 := TButton.Create(Self);
button8.Parent := Self; button8.Parent := Self;
Button8.Left := 350; Button8.Left := 350;
Button8.Top := 150; Button8.Top := 150;
Button8.Width := 130; Button8.Width := 130;
Button8.Height := 30; Button8.Height := 30;
Button8.Caption := 'PageSize++'; Button8.Caption := 'PageSize++';
Button8.OnClick := @Button8Click; Button8.OnClick := @Button8Click;
Button8.Show; Button8.Show;
{ create a menubar } { create a menubar }
mnuMain := TMainMenu.Create(Self); mnuMain := TMainMenu.Create(Self);
Menu := mnuMain; Menu := mnuMain;