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

Clean some example projects.

Browse Source 
git-svn-id: trunk@54591 -
This commit is contained in:
juha 2017-04-09 14:09:54 +00:00
parent afa6994118
commit 229a13dad9
27 changed files with 216 additions and 213 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/bitbtnform.pp
View File

@ -31,9 +31,9 @@ uses
type type
TForm1 = class(TForm) TForm1 = class(TForm)
private private
{ Private Declarations }
protected protected
{ Protected Declarations }
public public
button1 : TBitBtn; button1 : TBitBtn;
Label1 : TLabel; Label1 : TLabel;

35
examples/bitbutton.lpi
View File

@ -1,20 +1,20 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/>
<General> <General>
<Flags> <Flags>
<SaveOnlyProjectUnits Value="True"/> <SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -34,31 +34,31 @@
<Unit0> <Unit0>
<Filename Value="bitbutton.pp"/> <Filename Value="bitbutton.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="bitbutton"/>
<CursorPos X="28" Y="26"/> <CursorPos X="28" Y="26"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="bitbtnform.pp"/> <Filename Value="bitbtnform.pp"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="bitbtnform"/> <IsVisibleTab Value="True"/>
<CursorPos X="22" Y="34"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="31"/>
<CursorPos X="54" Y="44"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -66,8 +66,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

24
examples/dockmanager/toolbar/test1.lpi
View File

@ -1,18 +1,20 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="7"/>
<General> <General>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="test1"/> <Title Value="test1"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="D:\SourceForge\lazarus\examples\dockmanager\toolbar"/> <DestinationDirectory Value="D:\SourceForge\lazarus\examples\dockmanager\toolbar"/>
@ -35,12 +37,12 @@
<Unit0> <Unit0>
<Filename Value="test1.lpr"/> <Filename Value="test1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="test1"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
</Unit1> </Unit1>
@ -51,11 +53,16 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/> <IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths> </SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -63,8 +70,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

14
examples/dockmanager/toolbar/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 161 ClientHeight = 161
ClientWidth = 385 ClientWidth = 385
LCLVersion = '0.9.27' LCLVersion = '1.7'
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Height = 26 Height = 26
@ -42,25 +42,25 @@ object Form1: TForm1
end end
object swInitSize: TCheckBox object swInitSize: TCheckBox
Left = 112 Left = 112
Height = 17 Height = 20
Top = 88 Top = 88
Width = 90 Width = 118
Caption = 'init button size' Caption = 'init button size'
TabOrder = 2 TabOrder = 2
end end
object swView1: TCheckBox object swView1: TCheckBox
Left = 112 Left = 112
Height = 17 Height = 20
Top = 112 Top = 112
Width = 108 Width = 139
Caption = 'First button visible' Caption = 'First button visible'
OnClick = swView1Click OnClick = swView1Click
TabOrder = 3 TabOrder = 3
end end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 20 Height = 19
Top = 141 Top = 142
Width = 385 Width = 385
Panels = <> Panels = <>
end end

4
examples/dockmanager/toolbar/unit1.pas
View File

@ -35,8 +35,8 @@ implementation
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);
var var
btn: TToolButton; btn: TToolButton;
i, rows: integer; //i, rows: integer;
w: integer; //w: integer;
r: TRect; r: TRect;
begin begin
btn := TToolButton.Create(ToolBar1); btn := TToolButton.Create(ToolBar1);

34
examples/dragimagelist/project1.lpi
View File

@ -1,17 +1,20 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="10"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -33,22 +36,24 @@
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -56,8 +61,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

5
examples/dragimagelist/unit1.lfm
View File

@ -9,11 +9,12 @@ object Form1: TForm1
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 66 Height = 42
Top = 216 Top = 216
Width = 208 Width = 195
Caption = 'If DragImageList is working then '#13#10'you should see Button image '#13#10'dragged nearly mouse cursor.' Caption = 'If DragImageList is working then '#13#10'you should see Button image '#13#10'dragged nearly mouse cursor.'
ParentColor = False ParentColor = False
end end

4
examples/dragimagelist/unit1.pas
View File

@ -21,9 +21,9 @@ type
procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer; procedure Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean); State: TDragState; var Accept: Boolean);
private private
{ private declarations }
public public
{ public declarations }
end; end;
{ TMyDragObject } { TMyDragObject }

88
examples/dropfiles/dropfiles.lpi
View File

@ -1,19 +1,21 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="10"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/>
<Language Value=""/> <Language Value=""/>
<CharSet Value=""/> <CharSet Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -35,157 +37,158 @@
<Unit0> <Unit0>
<Filename Value="dropfiles.lpr"/> <Filename Value="dropfiles.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="dropfiles"/>
<CursorPos X="28" Y="6"/> <CursorPos X="28" Y="6"/>
<TopLine Value="1"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<CursorPos X="78" Y="8"/> <IsVisibleTab Value="True"/>
<TopLine Value="1"/> <CursorPos X="4" Y="26"/>
<EditorIndex Value="0"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="../../lcl/forms.pp"/> <Filename Value="../../lcl/forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<CursorPos X="3" Y="567"/>
<TopLine Value="627"/> <TopLine Value="627"/>
<CursorPos X="3" Y="567"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="unit2.pas"/> <Filename Value="unit2.pas"/>
<ComponentName Value="Form2"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit2.lrs"/> <ComponentName Value="Form2"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit2"/> <UnitName Value="Unit2"/>
<CursorPos X="19" Y="37"/>
<TopLine Value="20"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="20"/>
<CursorPos X="19" Y="37"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../lcl/interfaces/gtk/gtkproc.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkproc.pp"/>
<UnitName Value="GTKProc"/> <UnitName Value="GTKProc"/>
<CursorPos X="50" Y="266"/>
<TopLine Value="299"/> <TopLine Value="299"/>
<CursorPos X="50" Y="266"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../lcl/interfaces/gtk/gtkcallback.inc"/> <Filename Value="../../lcl/interfaces/gtk/gtkcallback.inc"/>
<CursorPos X="29" Y="3223"/>
<TopLine Value="3223"/> <TopLine Value="3223"/>
<CursorPos X="29" Y="3223"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="../../lcl/interfaces/gtk/gtkobject.inc"/> <Filename Value="../../lcl/interfaces/gtk/gtkobject.inc"/>
<CursorPos X="61" Y="5188"/>
<TopLine Value="5177"/> <TopLine Value="5177"/>
<CursorPos X="61" Y="5188"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="../../lcl/interfaces/gtk/gtkint.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkint.pp"/>
<UnitName Value="GtkInt"/> <UnitName Value="GtkInt"/>
<CursorPos X="23" Y="317"/>
<TopLine Value="303"/> <TopLine Value="303"/>
<CursorPos X="23" Y="317"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="../../lcl/interfaces/gtk/gtkwscontrols.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkwscontrols.pp"/>
<UnitName Value="GtkWSControls"/> <UnitName Value="GtkWSControls"/>
<CursorPos X="40" Y="336"/>
<TopLine Value="316"/> <TopLine Value="316"/>
<CursorPos X="40" Y="336"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="../../../fpc/fpcsrc/packages/extra/gtk2/gtk+/gtk/gtkincludes.inc"/> <Filename Value="../../../fpc/fpcsrc/packages/extra/gtk2/gtk+/gtk/gtkincludes.inc"/>
<CursorPos X="11" Y="166"/>
<TopLine Value="152"/> <TopLine Value="152"/>
<CursorPos X="11" Y="166"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../lcl/lmessages.pp"/> <Filename Value="../../lcl/lmessages.pp"/>
<UnitName Value="LMessages"/> <UnitName Value="LMessages"/>
<CursorPos X="3" Y="241"/>
<TopLine Value="227"/> <TopLine Value="227"/>
<CursorPos X="3" Y="241"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../lcl/interfaces/gtk/gtkwsstdctrls.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkwsstdctrls.pp"/>
<UnitName Value="GtkWSStdCtrls"/> <UnitName Value="GtkWSStdCtrls"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="296"/> <TopLine Value="296"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="../../lcl/interfaces/qt/qtwidgets.pas"/> <Filename Value="../../lcl/interfaces/qt/qtwidgets.pas"/>
<UnitName Value="qtwidgets"/>
<CursorPos X="3" Y="853"/>
<TopLine Value="824"/> <TopLine Value="824"/>
<CursorPos X="3" Y="853"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="../../lcl/interfaces/gtk/gtkdragcallback.inc"/> <Filename Value="../../lcl/interfaces/gtk/gtkdragcallback.inc"/>
<CursorPos X="3" Y="29"/>
<TopLine Value="16"/> <TopLine Value="16"/>
<CursorPos X="3" Y="29"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="../../lcl/interfaces/gtk2/gtk2wsstdctrls.pp"/> <Filename Value="../../lcl/interfaces/gtk2/gtk2wsstdctrls.pp"/>
<UnitName Value="Gtk2WSStdCtrls"/> <UnitName Value="Gtk2WSStdCtrls"/>
<CursorPos X="71" Y="903"/>
<TopLine Value="887"/> <TopLine Value="887"/>
<CursorPos X="71" Y="903"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="../../lcl/interfaces/gtk/gtkwsforms.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkwsforms.pp"/>
<UnitName Value="GtkWSForms"/> <UnitName Value="GtkWSForms"/>
<CursorPos X="28" Y="213"/>
<TopLine Value="201"/> <TopLine Value="201"/>
<CursorPos X="28" Y="213"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="../../lcl/interfaces/gtk/gtkdef.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkdef.pp"/>
<UnitName Value="GTKDef"/> <UnitName Value="GTKDef"/>
<CursorPos X="45" Y="42"/>
<TopLine Value="36"/> <TopLine Value="36"/>
<CursorPos X="45" Y="42"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="../../lcl/interfaces/gtk2/gtk2wscustommemo.inc"/> <Filename Value="../../lcl/interfaces/gtk2/gtk2wscustommemo.inc"/>
<CursorPos X="31" Y="131"/>
<TopLine Value="118"/> <TopLine Value="118"/>
<CursorPos X="31" Y="131"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="../../lcl/interfaces/gtk2/gtk2wsspin.pp"/> <Filename Value="../../lcl/interfaces/gtk2/gtk2wsspin.pp"/>
<UnitName Value="Gtk2WSSpin"/> <UnitName Value="Gtk2WSSpin"/>
<CursorPos X="19" Y="50"/>
<TopLine Value="41"/> <TopLine Value="41"/>
<CursorPos X="19" Y="50"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="../../lcl/interfaces/gtk/gtkwsspin.pp"/> <Filename Value="../../lcl/interfaces/gtk/gtkwsspin.pp"/>
<UnitName Value="GtkWSSpin"/> <UnitName Value="GtkWSSpin"/>
<CursorPos X="26" Y="163"/>
<TopLine Value="152"/> <TopLine Value="152"/>
<CursorPos X="26" Y="163"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit19> </Unit19>
</Units> </Units>
<JumpHistory Count="0" HistoryIndex="-1"/> <JumpHistory HistoryIndex="-1"/>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -193,9 +196,6 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="2"> <Exceptions Count="2">

9
examples/dropfiles/unit1.lfm
View File

@ -11,11 +11,12 @@ object Form1: TForm1
ClientHeight = 353 ClientHeight = 353
ClientWidth = 701 ClientWidth = 701
OnDropFiles = FormDropFiles OnDropFiles = FormDropFiles
LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 13 Left = 13
Height = 14 Height = 14
Top = 18 Top = 18
Width = 296 Width = 375
Caption = 'Drag and drop files on this form and see the results in memo. ' Caption = 'Drag and drop files on this form and see the results in memo. '
ParentColor = False ParentColor = False
end end
@ -28,12 +29,6 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
end end
object ApplicationProperties1: TApplicationProperties object ApplicationProperties1: TApplicationProperties
CaptureExceptions = True
HintColor = clInfoBk
HintHidePause = 2500
HintPause = 500
HintShortCuts = True
ShowHint = True
OnDropFiles = ApplicationProperties1DropFiles OnDropFiles = ApplicationProperties1DropFiles
left = 126 left = 126
top = 300 top = 300

4
examples/dropfiles/unit1.pas
View File

@ -19,9 +19,9 @@ type
const FileNames: array of String); const FileNames: array of String);
procedure FormDropFiles(Sender: TObject; const FileNames: array of String); procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
private private
{ private declarations }
public public
{ public declarations }
end; end;
var var

17
examples/lclversion/lclversionexample.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags> <Flags>
@ -11,9 +11,6 @@
<MainUnit Value="0"/> <MainUnit Value="0"/>
<Title Value="lclversionexample"/> <Title Value="lclversionexample"/>
</General> </General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1"> <BuildModes Count="1">
<Item1 Name="default" Default="True"/> <Item1 Name="default" Default="True"/>
</BuildModes> </BuildModes>
@ -26,7 +23,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -38,18 +35,19 @@
<Unit0> <Unit0>
<Filename Value="lclversionexample.lpr"/> <Filename Value="lclversionexample.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="lclversionexample"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="VersionForm"/> <ComponentName Value="VersionForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -63,8 +61,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

1
examples/lclversion/unit1.lfm
View File

@ -10,6 +10,7 @@ object VersionForm: TVersionForm
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7'
object Memo1: TMemo object Memo1: TMemo
Left = 29 Left = 29
Height = 130 Height = 130

4
examples/lclversion/unit1.pas
View File

@ -18,9 +18,9 @@ type
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ private declarations }
public public
{ public declarations }
end; end;
var var

30
examples/lpicustomdata/lpicustomdata.lpi
View File

@ -1,16 +1,20 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="/"/> <Version Value="10"/>
<Version Value="5"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -25,8 +29,7 @@
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
<Item1> <Item1>
<PackageName Value="LCL"/> <PackageName Value="LazUtils"/>
<MinVersion Major="1" Valid="True"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="1"> <Units Count="1">
@ -38,12 +41,11 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
<Other> </SyntaxOptions>
<CompilerPath Value="$(CompPath)"/> </Parsing>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

4
examples/lpicustomdata/lpicustomdata.lpr
View File

@ -31,7 +31,9 @@ program LPICustomData;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
uses uses
Classes, SysUtils, AvgLvlTree, XMLCfg; SysUtils,
// LazUtils
Laz2_XMLCfg, AvgLvlTree;
procedure LoadStringToStringTree(XMLConfig: TXMLConfig; procedure LoadStringToStringTree(XMLConfig: TXMLConfig;
Tree: TStringToStringTree; const Path: string); Tree: TStringToStringTree; const Path: string);

36
examples/messages/asynccall.lpi
View File

@ -1,18 +1,22 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<Title Value="AsyncCall"/> <Title Value="AsyncCall"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -22,7 +26,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -34,25 +38,23 @@
<Unit0> <Unit0>
<Filename Value="asynccall.lpr"/> <Filename Value="asynccall.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="asynccall"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="uasynccall.pas"/> <Filename Value="uasynccall.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="uasynccall.lrs"/> <ComponentName Value="Form1"/>
<UnitName Value="uasynccall"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
<Other> </SyntaxOptions>
<CompilerPath Value="$(CompPath)"/> </Parsing>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

35
examples/messages/project1.lpi
View File

@ -1,17 +1,21 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/> <SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
</General> </General>
<VersionInfo> <VersionInfo>
<ProjectVersion Value=""/> <StringTable ProductVersion=""/>
</VersionInfo> </VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -21,7 +25,7 @@
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="1"> <RequiredPackages Count="1">
@ -33,23 +37,25 @@
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -57,8 +63,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

3
examples/messages/uasynccall.lfm
View File

@ -8,6 +8,7 @@ object Form1: TForm1
Caption = 'QueueAsyncCall example' Caption = 'QueueAsyncCall example'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
@ -74,7 +75,7 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 54 ClientHeight = 46
ClientWidth = 120 ClientWidth = 120
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (

2
examples/messages/uasynccall.pas
View File

@ -24,7 +24,7 @@ type
procedure SimpleMethod(Data: PtrInt); procedure SimpleMethod(Data: PtrInt);
procedure ComplexMethod(Data: PtrInt); procedure ComplexMethod(Data: PtrInt);
public public
{ public declarations }
end; end;
var var

1
examples/messages/unit1.lfm
View File

@ -8,6 +8,7 @@ object Form1: TForm1
Caption = 'Messages example' Caption = 'Messages example'
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
LCLVersion = '1.7'
object Button1: TButton object Button1: TButton
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner

2
examples/messages/unit1.pas
View File

@ -24,7 +24,7 @@ type
private private
procedure MyMessageHandler(var Message: TLMessage); message LM_MY_MESSAGE; procedure MyMessageHandler(var Message: TLMessage); message LM_MY_MESSAGE;
public public
{ public declarations }
end; end;
var var

36
examples/popupnotifier/popupnotifierdemo.lpi
View File

@ -1,18 +1,21 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="6"/>
<General> <General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=""/>
<Title Value="PopupNotifierDemo"/> <Title Value="PopupNotifierDemo"/>
</General> </General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -32,29 +35,27 @@
<Unit0> <Unit0>
<Filename Value="popupnotifierdemo.lpr"/> <Filename Value="popupnotifierdemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="popupnotifierdemo"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/> <ComponentName Value="Form1"/>
<UnitName Value="unit1"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="PopupNotifierDemo"/> <Filename Value="PopupNotifierDemo"/>
</Target> </Target>
<SearchPaths> <Parsing>
<SyntaxOptions>
</SearchPaths> <UseAnsiStrings Value="False"/>
<CodeGeneration> </SyntaxOptions>
<Generate Value="Faster"/> </Parsing>
</CodeGeneration>
<Linking> <Linking>
<Options> <Options>
<Win32> <Win32>
@ -62,8 +63,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>

4
examples/popupnotifier/unit1.pas
View File

@ -22,9 +22,9 @@ type
procedure Button2Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure PopupNotifier1Close(Sender: TObject; var CloseAction: TCloseAction); procedure PopupNotifier1Close(Sender: TObject; var CloseAction: TCloseAction);
private private
{ private declarations }
public public
{ public declarations }
end; end;
var var

2
examples/postscript/samplepostscriptcanvas.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>

24
examples/postscript/usamplepostscriptcanvas.lfm
View File

@ -8,28 +8,28 @@ object Form1: TForm1
ClientHeight = 219 ClientHeight = 219
ClientWidth = 486 ClientWidth = 486
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.3' LCLVersion = '1.7'
object Label1: TLabel object Label1: TLabel
Left = 108 Left = 108
Height = 21 Height = 14
Top = 8 Top = 8
Width = 117 Width = 103
Caption = 'Select Paper Size' Caption = 'Select Paper Size'
ParentColor = False ParentColor = False
end end
object Label2: TLabel object Label2: TLabel
Left = 8 Left = 8
Height = 21 Height = 14
Top = 8 Top = 8
Width = 84 Width = 75
Caption = 'Resolution X' Caption = 'Resolution X'
ParentColor = False ParentColor = False
end end
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 8
Height = 21 Height = 14
Top = 64 Top = 64
Width = 83 Width = 75
Caption = 'Resolution Y' Caption = 'Resolution Y'
ParentColor = False ParentColor = False
end end
@ -62,13 +62,13 @@ object Form1: TForm1
'A4' 'A4'
'Letter' 'Letter'
) )
ItemHeight = 27 ItemHeight = 20
ScrollWidth = 122 Options = [lboDrawFocusRect]
TabOrder = 2 TabOrder = 2
end end
object txtResX: TEdit object txtResX: TEdit
Left = 8 Left = 8
Height = 31 Height = 28
Top = 28 Top = 28
Width = 80 Width = 80
TabOrder = 3 TabOrder = 3
@ -76,7 +76,7 @@ object Form1: TForm1
end end
object txtResY: TEdit object txtResY: TEdit
Left = 8 Left = 8
Height = 31 Height = 28
Top = 84 Top = 84
Width = 80 Width = 80
TabOrder = 4 TabOrder = 4
@ -114,7 +114,7 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 73 ClientHeight = 70
ClientWidth = 216 ClientWidth = 216
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (

3
examples/postscript/usamplepostscriptcanvas.pas
View File

@ -36,7 +36,6 @@ type
procedure Button3Click(Sender: TObject); procedure Button3Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
{ private declarations }
fPsCanvas: TPostscriptCanvas; fPsCanvas: TPostscriptCanvas;
function Sx(AX: Integer): Integer; function Sx(AX: Integer): Integer;
function Sy(AY: Integer): Integer; function Sy(AY: Integer): Integer;
@ -47,7 +46,7 @@ type
procedure ShowFile(aFile:string); procedure ShowFile(aFile:string);
procedure SelectPaper(res:Integer=0); procedure SelectPaper(res:Integer=0);
public public
{ public declarations }
end; end;
var var