Examples, DBEditMask: removed absolute paths (based on patch by Samuel Herzog, bug #18569). While at this, also removed .lrs file reference

git-svn-id: trunk@31901 -
This commit is contained in:
maxim 2011-08-06 17:21:11 +00:00
parent dea4f5d215
commit 27ba6399cb
5 changed files with 33 additions and 18 deletions

1
.gitattributes vendored
View File

@ -3315,6 +3315,7 @@ examples/dbeditmask/Unit1.lfm svneol=native#text/plain
examples/dbeditmask/Unit1.pas svneol=native#text/plain
examples/dbeditmask/project1.lpi svneol=native#text/plain
examples/dbeditmask/project1.lpr svneol=native#text/plain
examples/dbeditmask/project1.res -text
examples/designerbaseclass/README.txt svneol=native#text/plain
examples/designerbaseclass/customcomponentclass.pas svneol=native#text/plain
examples/designerbaseclass/designbaseclassdemopkg.lpk svneol=native#text/plain

View File

@ -12,7 +12,7 @@ object Form1: TForm1
Font.Name = 'MS Sans Serif'
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object Label3: TLabel
Left = 8
Height = 14
@ -26,16 +26,23 @@ object Form1: TForm1
Height = 273
Top = 112
Width = 497
Color = clWindow
Columns = <
item
Title.Caption = 'ADATE'
Title.PrefixOption = poNone
Width = 180
FieldName = 'ADATE'
end
item
Title.Caption = 'ASTR'
Title.PrefixOption = poNone
Width = 100
FieldName = 'ASTR'
end
item
Title.Caption = 'AINT'
Title.PrefixOption = poNone
Width = 100
FieldName = 'AINT'
end>
@ -50,9 +57,16 @@ object Form1: TForm1
Top = 392
Width = 497
BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 100
ClientHeight = 42
ClientWidth = 497
DataSource = DataSource1
Options = []
TabOrder = 1
end
object DBEdit1: TDBEdit
@ -64,7 +78,7 @@ object Form1: TForm1
DataSource = DataSource1
CharCase = ecNormal
EditMask = '!99/99/00;1;_'
MaxLength = 0
MaxLength = 8
TabOrder = 2
end
object ShowLongDateCheckBox: TCheckBox
@ -85,7 +99,7 @@ object Form1: TForm1
DataSource = DataSource1
CharCase = ecNormal
EditMask = '!99;1;_'
MaxLength = 0
MaxLength = 2
TabOrder = 4
end
object Label1: TLabel
@ -102,11 +116,9 @@ object Form1: TForm1
top = 288
end
object Dbf1: TDbf
FilePath = 'D:\repositories\lazarus\examples\dbeditmask\'
IndexDefs = <>
TableName = 'test.db'
TableLevel = 4
Active = True
FilterOptions = []
left = 312
top = 288

View File

@ -44,6 +44,8 @@ var
implementation
{$R *.lfm}
uses
strutils;
@ -114,7 +116,4 @@ begin
DateField.DisplayFormat := '';
end;
initialization
{$i unit1.lrs}
end.

View File

@ -1,22 +1,20 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="7"/>
<General>
<Flags>
<AlwaysBuild Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=".exe"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable Comments="" CompanyName="" FileDescription="" FileVersion="0.0.0.0" InternalName="" LegalCopyright="" LegalTrademarks="" OriginalFilename="" ProductName="" ProductVersion=""/>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
@ -32,7 +30,7 @@
<RequiredPackages Count="3">
<Item1>
<PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
<MinVersion Minor="1" Valid="True" Release="1"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
@ -59,15 +57,20 @@
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>

Binary file not shown.