mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-04 12:29:27 +01:00
added .lpi for examples
git-svn-id: trunk@7869 -
This commit is contained in:
mattias
parent
098b82cdf6
commit
95ca76e85e
23
.gitattributes
vendored
23
.gitattributes
vendored
@ -642,7 +642,9 @@ examples/barchart/frmmain.lfm svneol=native#text/plain
|
||||
examples/barchart/frmmain.lrs svneol=native#text/pascal
|
||||
examples/barchart/frmmain.pas 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/checkbox.lpi svneol=native#text/plain
|
||||
examples/checkbox.pp svneol=native#text/pascal
|
||||
examples/codepageconverter/codepages.ini svneol=native#text/plain
|
||||
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.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/comdialogs.lpi svneol=native#text/plain
|
||||
examples/comdialogs.pp svneol=native#text/pascal
|
||||
examples/dlgform.pp svneol=native#text/pascal
|
||||
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.lrs 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/grid_semaphor/TSemaphorDBGrid.xpm -text svneol=native#image/x-xpixmap
|
||||
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/semaphorgridsicon.lrs svneol=native#text/pascal
|
||||
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/groupboxnested.lpi svneol=native#text/plain
|
||||
examples/groupboxnested.pas svneol=native#text/pascal
|
||||
examples/gtkglarea/data/particle.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/gtkglarea_demo.lpi svneol=native#text/plain
|
||||
examples/gtkglarea/gtkglarea_demo.pp svneol=native#text/pascal
|
||||
examples/hello.lpi svneol=native#text/plain
|
||||
examples/hello.pp svneol=native#text/pascal
|
||||
examples/helloform.pp svneol=native#text/pascal
|
||||
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.lrs 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/listview/listview.lpr svneol=native#text/pascal
|
||||
examples/listview/testform.lfm svneol=native#text/plain
|
||||
examples/listview/testform.lrs 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/loadpicture.lpi svneol=native#text/plain
|
||||
examples/loadpicture.pas svneol=native#text/pascal
|
||||
examples/memotest.lpi svneol=native#text/plain
|
||||
examples/memotest.pp svneol=native#text/pascal
|
||||
examples/messagedialogs.lpi svneol=native#text/plain
|
||||
examples/messagedialogs.pp svneol=native#text/pascal
|
||||
examples/notebk.lpi svneol=native#text/plain
|
||||
examples/notebk.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/objectinspector/mainunit.lfm svneol=native#text/plain
|
||||
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.lrs 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/scrollbar.lpi svneol=native#text/plain
|
||||
examples/scrollbar.pp svneol=native#text/pascal
|
||||
examples/selection.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/sprites/playground.lfm svneol=native#text/plain
|
||||
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.lpr 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/taborder.lpi svneol=native#text/plain
|
||||
examples/taborder.pas svneol=native#text/pascal
|
||||
examples/testall.lpi svneol=native#text/plain
|
||||
examples/testall.pp svneol=native#text/pascal
|
||||
examples/testallform.pp 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/trackbar.lpi svneol=native#text/plain
|
||||
examples/trackbar.pp svneol=native#text/pascal
|
||||
examples/treeview/TV_Add_Remove.dpr svneol=native#text/pascal
|
||||
examples/treeview/TV_Add_Remove.res svneol=native#unset
|
||||
|
||||
66
examples/bitbutton.lpi
Normal file
66
examples/bitbutton.lpi
Normal 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
55
examples/checkbox.lpi
Normal 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
48
examples/combobox.lpi
Normal 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>
|
||||
@ -35,43 +35,43 @@ uses
|
||||
SysUtils, Extctrls, Controls;
|
||||
|
||||
type
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Label1 : TLabel;
|
||||
Label2 : TLabel;
|
||||
Label3 : TLabel;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Edit1 : TEdit;
|
||||
mnuMain: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
itmFile: TMenuItem;
|
||||
ComboBox1 : TComboBox;
|
||||
ComboBox2 : TComboBox;
|
||||
Memo1 : TMemo;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure LoadMainMenu;
|
||||
Procedure FormKill(Sender : TObject);
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure ComboOnChange (Sender:TObject);
|
||||
procedure ComboOnClick (Sender:TObject);
|
||||
end;
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Label1: TLabel;
|
||||
Label2: TLabel;
|
||||
Label3: TLabel;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Edit1: TEdit;
|
||||
mnuMain: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
itmFile: TMenuItem;
|
||||
ComboBox1: TComboBox;
|
||||
ComboBox2: TComboBox;
|
||||
Memo1: TMemo;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure LoadMainMenu;
|
||||
procedure FormKill(Sender: TObject);
|
||||
procedure mnuQuitClicked(Sender: TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender: TObject);
|
||||
procedure Button2CLick(Sender: TObject);
|
||||
procedure Button3CLick(Sender: TObject);
|
||||
procedure Button4CLick(Sender: TObject);
|
||||
procedure Button5CLick(Sender: TObject);
|
||||
procedure Button6CLick(Sender: TObject);
|
||||
procedure Button7CLick(Sender: TObject);
|
||||
procedure ComboOnChange(Sender: TObject);
|
||||
procedure ComboOnClick(Sender: TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
Form1 : TForm1;
|
||||
Form1 : TForm1;
|
||||
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
55
examples/comdialogs.lpi
Normal file
55
examples/comdialogs.lpi
Normal 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
63
examples/edittest.lpi
Normal 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
55
examples/groupbox.lpi
Normal 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
55
examples/groupboxnested.lpi
Normal 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
55
examples/hello.lpi
Normal 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
55
examples/listboxtest.lpi
Normal 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>
|
||||
@ -23,15 +23,13 @@ program ListBoxTest;
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Controls{,
|
||||
CListBox};
|
||||
Interfaces, Buttons, Classes, Forms, StdCtrls, SysUtils, Controls;
|
||||
|
||||
type
|
||||
TListBoxTestForm = class(TForm)
|
||||
public
|
||||
Button1, Button2, Button3, Button4: TButton;
|
||||
ListBox: TListBox;
|
||||
// ListBox: TCListBox;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure Button2Click(Sender: TObject);
|
||||
|
||||
63
examples/listviewtest.lpi
Normal file
63
examples/listviewtest.lpi
Normal 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
63
examples/loadpicture.lpi
Normal 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
63
examples/memotest.lpi
Normal 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
63
examples/messagedialogs.lpi
Normal 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
73
examples/notebk.lpi
Normal 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
63
examples/notebooktest.lpi
Normal 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>
|
||||
@ -41,7 +41,7 @@ uses
|
||||
Graphics, ExtCtrls, LclProc;
|
||||
|
||||
type
|
||||
|
||||
|
||||
TForm1 = class(TFORM)
|
||||
notebook1 : TNotebook;
|
||||
Button1: TButton;
|
||||
|
||||
63
examples/progressbar.lpi
Normal file
63
examples/progressbar.lpi
Normal 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>
|
||||
@ -3,8 +3,8 @@
|
||||
progressbar - example
|
||||
---------------------
|
||||
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TTimer / TProgressBar classes.
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TTimer / TProgressBar classes.
|
||||
|
||||
Initial Revision : Sun Aug 15 1999
|
||||
|
||||
@ -41,36 +41,35 @@ uses
|
||||
|
||||
|
||||
type
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Progre1: TProgressBar;
|
||||
Timer0 : TTimer;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
mnuFile: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure LoadMainMenu;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure TimedOut(Sender : TObject);
|
||||
end;
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Progre1: TProgressBar;
|
||||
Timer0 : TTimer;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
mnuFile: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure LoadMainMenu;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure TimedOut(Sender : TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
Form1 : TForm1;
|
||||
|
||||
Form1 : TForm1;
|
||||
|
||||
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
|
||||
63
examples/scrollbar.lpi
Normal file
63
examples/scrollbar.lpi
Normal 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>
|
||||
@ -37,26 +37,26 @@ uses
|
||||
SysUtils, ExtCtrls, Controls;
|
||||
|
||||
type
|
||||
TForm1 = class(TFORM)
|
||||
Scrollbar1 : TScrollbar;
|
||||
Button1 : TButton;
|
||||
Button2 : TButton;
|
||||
Button3 : TButton;
|
||||
Button4 : TButton;
|
||||
Procedure Button1Clicked(sender : tobject);
|
||||
Procedure Button2Clicked(sender : tobject);
|
||||
Procedure Button3Clicked(sender : tobject);
|
||||
Procedure Button4Clicked(sender : tobject);
|
||||
Procedure scrollbar1Changed(sender : tobject);
|
||||
procedure Scrollbar1OnScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
Procedure FormKill(Sender : TObject);
|
||||
protected
|
||||
end;
|
||||
TForm1 = class(TFORM)
|
||||
Scrollbar1 : TScrollbar;
|
||||
Button1 : TButton;
|
||||
Button2 : TButton;
|
||||
Button3 : TButton;
|
||||
Button4 : TButton;
|
||||
Procedure Button1Clicked(sender : tobject);
|
||||
Procedure Button2Clicked(sender : tobject);
|
||||
Procedure Button3Clicked(sender : tobject);
|
||||
Procedure Button4Clicked(sender : tobject);
|
||||
Procedure scrollbar1Changed(sender : tobject);
|
||||
procedure Scrollbar1OnScroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
|
||||
public
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
Procedure FormKill(Sender : TObject);
|
||||
protected
|
||||
end;
|
||||
|
||||
var
|
||||
Form1 : TForm1;
|
||||
Form1 : TForm1;
|
||||
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
begin
|
||||
|
||||
63
examples/speedtest.lpi
Normal file
63
examples/speedtest.lpi
Normal 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
63
examples/synedit1.lpi
Normal 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
63
examples/taborder.lpi
Normal 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
73
examples/testall.lpi
Normal 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
63
examples/toolbar.lpi
Normal 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
63
examples/trackbar.lpi
Normal 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>
|
||||
@ -3,8 +3,8 @@
|
||||
trackbar - example
|
||||
------------------
|
||||
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TTrackbar class.
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TTrackbar class.
|
||||
|
||||
Initial Revision : Sun Aug 05 1999
|
||||
|
||||
@ -12,7 +12,7 @@
|
||||
|
||||
TODO: - button "orientation" will crash the program if pressed
|
||||
- add a label which displays current trackbar value and is updated
|
||||
by a procedure connected to "OnChange"
|
||||
by a procedure connected to "OnChange"
|
||||
***************************************************************************/
|
||||
|
||||
***************************************************************************
|
||||
@ -43,40 +43,40 @@ uses
|
||||
SysUtils, Controls;
|
||||
|
||||
type
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Button8: TButton;
|
||||
Track1 : TTRackBar;
|
||||
Track2 : TTRackBar;
|
||||
TForm1 = class(TFORM)
|
||||
public
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Button8: TButton;
|
||||
Track1 : TTRackBar;
|
||||
Track2 : TTRackBar;
|
||||
mnuMain: TMainMenu;
|
||||
itmFile: TMenuItem;
|
||||
itmFileQuit: TMenuItem;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
procedure LoadMainMenu;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure Button8CLick(Sender : TObject);
|
||||
procedure Track1Change(Sender : TObject);
|
||||
end;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure Button8CLick(Sender : TObject);
|
||||
procedure Track1Change(Sender : TObject);
|
||||
end;
|
||||
|
||||
var
|
||||
Form1 : TForm1;
|
||||
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Caption := 'TrackBar Demo v0.1';
|
||||
@ -93,9 +93,9 @@ End;
|
||||
procedure TForm1.Button2Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (track1) then begin
|
||||
if Track1.orientation = trHorizontal
|
||||
then Track1.orientation := trVertical
|
||||
else Track1.orientation := trHorizontal;
|
||||
if Track1.orientation = trHorizontal
|
||||
then Track1.orientation := trVertical
|
||||
else Track1.orientation := trHorizontal;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -103,7 +103,7 @@ procedure TForm1.Button3Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (Track1) then begin
|
||||
writeln ('Setting new position');
|
||||
Track1.Position := Track1.Position + 1;
|
||||
Track1.Position := Track1.Position + 1;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -114,8 +114,8 @@ Begin
|
||||
case Track1.ScalePos of
|
||||
trLeft : Track1.ScalePos := trRight;
|
||||
trRight : Track1.ScalePos := trTop;
|
||||
trTop : Track1.ScalePos := trBottom;
|
||||
trBottom: Track1.ScalePos := trLeft;
|
||||
trTop : Track1.ScalePos := trBottom;
|
||||
trBottom: Track1.ScalePos := trLeft;
|
||||
end;
|
||||
end;
|
||||
End;
|
||||
@ -124,7 +124,7 @@ procedure TForm1.Button5Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (Track1) then begin
|
||||
writeln ('Toggling ShowScalePos');
|
||||
Track1.ShowScale := not Track1.ShowScale;
|
||||
Track1.ShowScale := not Track1.ShowScale;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -138,7 +138,7 @@ procedure TForm1.Button7Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (Track1) then begin
|
||||
writeln ('Incrementing LineSize');
|
||||
Track1.LineSize := Track1.LineSize + 1;
|
||||
Track1.LineSize := Track1.LineSize + 1;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -146,7 +146,7 @@ procedure TForm1.Button8Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (Track1) then begin
|
||||
writeln ('Incrementing PageSize');
|
||||
Track1.PageSize := Track1.PageSize + 1;
|
||||
Track1.PageSize := Track1.PageSize + 1;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -154,7 +154,7 @@ procedure TForm1.Track1Change(Sender : TObject);
|
||||
begin
|
||||
if assigned (Track1) then begin
|
||||
writeln ('*** CALLBACK ONCHANGE!!!!! ***');
|
||||
Track1.PageSize := Track1.PageSize + 1;
|
||||
Track1.PageSize := Track1.PageSize + 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -162,117 +162,117 @@ end;
|
||||
procedure TForm1.LoadMainMenu;
|
||||
|
||||
begin
|
||||
{ set the height and width }
|
||||
Height := 350;
|
||||
Width := 700;
|
||||
{ set the height and width }
|
||||
Height := 350;
|
||||
Width := 700;
|
||||
|
||||
{ Setting up horizontal trackbar }
|
||||
Track1 := TTrackBar.Create (Self);
|
||||
Track1.Parent := Self;
|
||||
Track1.Left := 50;
|
||||
Track1.Top := 150;
|
||||
Track1.Width := 140;
|
||||
Track1.Height := 140;
|
||||
Track1.Min := 0;
|
||||
Track1.Max := 100;
|
||||
Track1.OnChange := @Track1Change;
|
||||
Track1.Show;
|
||||
{ Setting up horizontal trackbar }
|
||||
Track1 := TTrackBar.Create (Self);
|
||||
Track1.Parent := Self;
|
||||
Track1.Left := 50;
|
||||
Track1.Top := 150;
|
||||
Track1.Width := 140;
|
||||
Track1.Height := 140;
|
||||
Track1.Min := 0;
|
||||
Track1.Max := 100;
|
||||
Track1.OnChange := @Track1Change;
|
||||
Track1.Show;
|
||||
|
||||
{ Setting up vertical trackbar }
|
||||
Track2 := TTrackBar.Create (Self);
|
||||
Track2.Parent := Self;
|
||||
Track2.Orientation := trVertical;
|
||||
Track2.Left := 500;
|
||||
Track2.Top := 150;
|
||||
Track2.Width := 20;
|
||||
Track2.Height := 100;
|
||||
Track2.Min := 0;
|
||||
Track2.Max := 100;
|
||||
Track2.Show;
|
||||
{ Setting up vertical trackbar }
|
||||
Track2 := TTrackBar.Create (Self);
|
||||
Track2.Parent := Self;
|
||||
Track2.Orientation := trVertical;
|
||||
Track2.Left := 500;
|
||||
Track2.Top := 150;
|
||||
Track2.Width := 20;
|
||||
Track2.Height := 100;
|
||||
Track2.Min := 0;
|
||||
Track2.Max := 100;
|
||||
Track2.Show;
|
||||
|
||||
{ create some buttons to change trackbar properties }
|
||||
Button2 := TButton.Create(Self);
|
||||
button2.Parent := Self;
|
||||
Button2.Left := 200;
|
||||
Button2.Top := 30;
|
||||
Button2.Width := 100;
|
||||
Button2.Height := 30;
|
||||
Button2.Caption := 'Orientation';
|
||||
Button2.OnClick := @Button2Click;
|
||||
Button2.Show;
|
||||
{ create some buttons to change trackbar properties }
|
||||
Button2 := TButton.Create(Self);
|
||||
button2.Parent := Self;
|
||||
Button2.Left := 200;
|
||||
Button2.Top := 30;
|
||||
Button2.Width := 100;
|
||||
Button2.Height := 30;
|
||||
Button2.Caption := 'Orientation';
|
||||
Button2.OnClick := @Button2Click;
|
||||
Button2.Show;
|
||||
|
||||
Button1 := TButton.Create(Self);
|
||||
button1.Parent := Self;
|
||||
Button1.Left := 200;
|
||||
Button1.Top := 70;
|
||||
Button1.Width := 100;
|
||||
Button1.Height := 30;
|
||||
Button1.Caption := 'Max++';
|
||||
Button1.OnClick := @Button1Click;
|
||||
Button1.Show;
|
||||
Button1 := TButton.Create(Self);
|
||||
button1.Parent := Self;
|
||||
Button1.Left := 200;
|
||||
Button1.Top := 70;
|
||||
Button1.Width := 100;
|
||||
Button1.Height := 30;
|
||||
Button1.Caption := 'Max++';
|
||||
Button1.OnClick := @Button1Click;
|
||||
Button1.Show;
|
||||
|
||||
Button3 := TButton.Create(Self);
|
||||
button3.Parent := Self;
|
||||
Button3.Left := 200;
|
||||
Button3.Top := 110;
|
||||
Button3.Width := 100;
|
||||
Button3.Height := 30;
|
||||
Button3.Show;
|
||||
Button3.Caption := 'Position++';
|
||||
Button3.OnClick := @Button3Click;
|
||||
Button3 := TButton.Create(Self);
|
||||
button3.Parent := Self;
|
||||
Button3.Left := 200;
|
||||
Button3.Top := 110;
|
||||
Button3.Width := 100;
|
||||
Button3.Height := 30;
|
||||
Button3.Show;
|
||||
Button3.Caption := 'Position++';
|
||||
Button3.OnClick := @Button3Click;
|
||||
|
||||
Button4 := TButton.Create(Self);
|
||||
button4.Parent := Self;
|
||||
Button4.Left := 350;
|
||||
Button4.Top := 30;
|
||||
Button4.Width := 130;
|
||||
Button4.Height := 30;
|
||||
Button4.Show;
|
||||
Button4.Caption := 'GTK: TextPos';
|
||||
Button4.OnClick := @Button4Click;
|
||||
Button4 := TButton.Create(Self);
|
||||
button4.Parent := Self;
|
||||
Button4.Left := 350;
|
||||
Button4.Top := 30;
|
||||
Button4.Width := 130;
|
||||
Button4.Height := 30;
|
||||
Button4.Show;
|
||||
Button4.Caption := 'GTK: TextPos';
|
||||
Button4.OnClick := @Button4Click;
|
||||
|
||||
Button5 := TButton.Create(Self);
|
||||
button5.Parent := Self;
|
||||
Button5.Left := 350;
|
||||
Button5.Top := 70;
|
||||
Button5.Width := 130;
|
||||
Button5.Height := 30;
|
||||
Button5.Show;
|
||||
Button5.Caption := 'GTK: Show Text';
|
||||
Button5.OnClick := @Button5Click;
|
||||
Button5 := TButton.Create(Self);
|
||||
button5.Parent := Self;
|
||||
Button5.Left := 350;
|
||||
Button5.Top := 70;
|
||||
Button5.Width := 130;
|
||||
Button5.Height := 30;
|
||||
Button5.Show;
|
||||
Button5.Caption := 'GTK: Show Text';
|
||||
Button5.OnClick := @Button5Click;
|
||||
|
||||
Button6 := TButton.Create(Self);
|
||||
button6.Parent := Self;
|
||||
Button6.Left := 350;
|
||||
Button6.Top := 110;
|
||||
Button6.Width := 130;
|
||||
Button6.Height := 30;
|
||||
Button6.Show;
|
||||
Button6.Caption := '---';
|
||||
Button6.Visible := false;
|
||||
Button6.OnClick := @Button6Click;
|
||||
Button6 := TButton.Create(Self);
|
||||
button6.Parent := Self;
|
||||
Button6.Left := 350;
|
||||
Button6.Top := 110;
|
||||
Button6.Width := 130;
|
||||
Button6.Height := 30;
|
||||
Button6.Show;
|
||||
Button6.Caption := '---';
|
||||
Button6.Visible := false;
|
||||
Button6.OnClick := @Button6Click;
|
||||
|
||||
Button7 := TButton.Create(Self);
|
||||
button7.Parent := Self;
|
||||
Button7.Left := 200;
|
||||
Button7.Top := 150;
|
||||
Button7.Width := 100;
|
||||
Button7.Height := 30;
|
||||
Button7.Show;
|
||||
Button7.Caption := 'LineSize++';
|
||||
Button7.OnClick := @Button7Click;
|
||||
Button7 := TButton.Create(Self);
|
||||
button7.Parent := Self;
|
||||
Button7.Left := 200;
|
||||
Button7.Top := 150;
|
||||
Button7.Width := 100;
|
||||
Button7.Height := 30;
|
||||
Button7.Show;
|
||||
Button7.Caption := 'LineSize++';
|
||||
Button7.OnClick := @Button7Click;
|
||||
|
||||
Button8 := TButton.Create(Self);
|
||||
button8.Parent := Self;
|
||||
Button8.Left := 350;
|
||||
Button8.Top := 150;
|
||||
Button8.Width := 130;
|
||||
Button8.Height := 30;
|
||||
Button8.Caption := 'PageSize++';
|
||||
Button8.OnClick := @Button8Click;
|
||||
Button8.Show;
|
||||
Button8 := TButton.Create(Self);
|
||||
button8.Parent := Self;
|
||||
Button8.Left := 350;
|
||||
Button8.Top := 150;
|
||||
Button8.Width := 130;
|
||||
Button8.Height := 30;
|
||||
Button8.Caption := 'PageSize++';
|
||||
Button8.OnClick := @Button8Click;
|
||||
Button8.Show;
|
||||
|
||||
{ create a menubar }
|
||||
{ create a menubar }
|
||||
mnuMain := TMainMenu.Create(Self);
|
||||
Menu := mnuMain;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user