paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +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
TForm1 = class(TForm)
private
{ Private Declarations }
protected
{ Protected Declarations }
public
button1 : TBitBtn;
Label1 : TLabel;

35
examples/bitbutton.lpi
View File

@ -1,20 +1,20 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<Flags>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@ -34,31 +34,31 @@
<Unit0>
<Filename Value="bitbutton.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="bitbutton"/>
<CursorPos X="28" Y="26"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0>
<Unit1>
<Filename Value="bitbtnform.pp"/>
<IsPartOfProject Value="True"/>
<UnitName Value="bitbtnform"/>
<CursorPos X="22" Y="34"/>
<TopLine Value="1"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="31"/>
<CursorPos X="54" Y="44"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -66,8 +66,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</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>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<Title Value="test1"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="D:\SourceForge\lazarus\examples\dockmanager\toolbar"/>
@ -35,12 +37,12 @@
<Unit0>
<Filename Value="test1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="test1"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
@ -51,11 +53,16 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -63,8 +70,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

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

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

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

@ -35,8 +35,8 @@ implementation
procedure TForm1.Button1Click(Sender: TObject);
var
btn: TToolButton;
i, rows: integer;
w: integer;
//i, rows: integer;
//w: integer;
r: TRect;
begin
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>
<ProjectOptions>
<PathDelim Value="/"/>
<Version Value="6"/>
<Version Value="10"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -33,22 +36,24 @@
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="unit1.lrs"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Version Value="11"/>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
@ -56,8 +61,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

5
examples/dragimagelist/unit1.lfm
View File

@ -9,11 +9,12 @@ object Form1: TForm1
Caption = 'Form1'
ClientHeight = 300
ClientWidth = 400
LCLVersion = '1.7'
object Label1: TLabel
Left = 8
Height = 66
Height = 42
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.'
ParentColor = False
end

4
examples/dragimagelist/unit1.pas
View File

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

88
examples/dropfiles/dropfiles.lpi
View File

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

9
examples/dropfiles/unit1.lfm
View File

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

4
examples/dropfiles/unit1.pas
View File

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

17
examples/lclversion/lclversionexample.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<Flags>
@ -11,9 +11,6 @@
<MainUnit Value="0"/>
<Title Value="lclversionexample"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
@ -26,7 +23,7 @@
<RunParams>
<local>
<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>
</RunParams>
<RequiredPackages Count="1">
@ -38,18 +35,19 @@
<Unit0>
<Filename Value="lclversionexample.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="lclversionexample"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="VersionForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="9"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<Parsing>
<SyntaxOptions>
@ -63,8 +61,5 @@
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

1
examples/lclversion/unit1.lfm
View File

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

4
examples/lclversion/unit1.pas
View File

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

30
examples/lpicustomdata/lpicustomdata.lpi
View File

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

4
examples/lpicustomdata/lpicustomdata.lpr
View File

@ -31,7 +31,9 @@ program LPICustomData;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, AvgLvlTree, XMLCfg;
SysUtils,
// LazUtils
Laz2_XMLCfg, AvgLvlTree;
procedure LoadStringToStringTree(XMLConfig: TXMLConfig;
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>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<Title Value="AsyncCall"/>
</General>
<VersionInfo>
<ProjectVersion Value=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -22,7 +26,7 @@
<RunParams>
<local>
<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>
</RunParams>
<RequiredPackages Count="1">
@ -34,25 +38,23 @@
<Unit0>
<Filename Value="asynccall.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="asynccall"/>
</Unit0>
<Unit1>
<Filename Value="uasynccall.pas"/>
<ComponentName Value="Form1"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="uasynccall.lrs"/>
<UnitName Value="uasynccall"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
</CompilerOptions>
</CONFIG>

35
examples/messages/project1.lpi
View File

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

3
examples/messages/uasynccall.lfm
View File

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

2
examples/messages/uasynccall.pas
View File

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

1
examples/messages/unit1.lfm
View File

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

2
examples/messages/unit1.pas
View File

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

36
examples/popupnotifier/popupnotifierdemo.lpi
View File

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

4
examples/popupnotifier/unit1.pas
View File

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

2
examples/postscript/samplepostscriptcanvas.lpi
View File

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

24
examples/postscript/usamplepostscriptcanvas.lfm
View File

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

3
examples/postscript/usamplepostscriptcanvas.pas
View File

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