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

examples: Set customeditmask property and update project files of dbeditmask

Browse Source 
git-svn-id: trunk@49068 -
This commit is contained in:
blikblum 2015-05-17 11:45:59 +00:00
parent bdc0dc8fbb
commit 0e0a97a9be
3 changed files with 22 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
examples/dbeditmask/Unit1.lfm
View File

@ -1,23 +1,23 @@
object Form1: TForm1 object Form1: TForm1
Left = 363 Left = 444
Height = 443 Height = 443
Top = 307 Top = 175
Width = 513 Width = 515
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Test DBEdit with mask' Caption = 'Test DBEdit with mask'
ClientHeight = 443 ClientHeight = 443
ClientWidth = 513 ClientWidth = 515
Font.Height = -11 Font.Height = -11
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
OnCreate = FormCreate OnCreate = FormCreate
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.31' LCLVersion = '1.5'
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 8
Height = 14 Height = 13
Top = 16 Top = 16
Width = 164 Width = 163
Caption = 'ADate Field - Mask: !99/99/00;1;_' Caption = 'ADate Field - Mask: !99/99/00;1;_'
ParentColor = False ParentColor = False
end end
@ -30,19 +30,16 @@ object Form1: TForm1
Columns = < Columns = <
item item
Title.Caption = 'ADATE' Title.Caption = 'ADATE'
Title.PrefixOption = poNone
Width = 180 Width = 180
FieldName = 'ADATE' FieldName = 'ADATE'
end end
item item
Title.Caption = 'ASTR' Title.Caption = 'ASTR'
Title.PrefixOption = poNone
Width = 100 Width = 100
FieldName = 'ASTR' FieldName = 'ASTR'
end end
item item
Title.Caption = 'AINT' Title.Caption = 'AINT'
Title.PrefixOption = poNone
Width = 100 Width = 100
FieldName = 'AINT' FieldName = 'AINT'
end> end>
@ -69,11 +66,12 @@ object Form1: TForm1
Options = [] Options = []
TabOrder = 1 TabOrder = 1
end end
object DBEdit1: TDBEdit object DateEdit: TDBEdit
Left = 8 Left = 8
Height = 21 Height = 21
Top = 32 Top = 32
Width = 246 Width = 246
CustomEditMask = True
DataField = 'ADate' DataField = 'ADate'
DataSource = DataSource1 DataSource = DataSource1
CharCase = ecNormal CharCase = ecNormal
@ -83,18 +81,19 @@ object Form1: TForm1
end end
object ShowLongDateCheckBox: TCheckBox object ShowLongDateCheckBox: TCheckBox
Left = 270 Left = 270
Height = 17 Height = 19
Top = 34 Top = 32
Width = 90 Width = 92
Caption = 'Show Full Date' Caption = 'Show Full Date'
OnChange = ShowLongDateCheckBoxChange OnChange = ShowLongDateCheckBoxChange
TabOrder = 3 TabOrder = 3
end end
object DBEdit2: TDBEdit object IntEdit: TDBEdit
Left = 8 Left = 8
Height = 21 Height = 21
Top = 80 Top = 80
Width = 246 Width = 246
CustomEditMask = True
DataField = 'AINT' DataField = 'AINT'
DataSource = DataSource1 DataSource = DataSource1
CharCase = ecNormal CharCase = ecNormal
@ -104,13 +103,13 @@ object Form1: TForm1
end end
object Label1: TLabel object Label1: TLabel
Left = 8 Left = 8
Height = 14 Height = 13
Top = 64 Top = 64
Width = 45 Width = 44
Caption = 'AInt Field' Caption = 'AInt Field'
ParentColor = False ParentColor = False
end end
object DataSource1: TDatasource object DataSource1: TDataSource
DataSet = Dbf1 DataSet = Dbf1
left = 400 left = 400
top = 288 top = 288

4
examples/dbeditmask/Unit1.pas
View File

@ -14,7 +14,7 @@ type
{ TForm1 } { TForm1 }
TForm1 = class(TForm) TForm1 = class(TForm)
DBEdit2: TDBEdit; IntEdit: TDBEdit;
Dbf1ADATE: TDateField; Dbf1ADATE: TDateField;
Dbf1AINT: TLargeintField; Dbf1AINT: TLargeintField;
Dbf1ASTR: TStringField; Dbf1ASTR: TStringField;
@ -27,7 +27,7 @@ type
Dbf1: TDbf; Dbf1: TDbf;
DBGrid1: TDBGrid; DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator; DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit; DateEdit: TDBEdit;
Label3: TLabel; Label3: TLabel;
procedure Dbf1ADATESetText(Sender: TField; const aText: string); procedure Dbf1ADATESetText(Sender: TField; const aText: string);
procedure Dbf1AINTGetText(Sender: TField; var aText: string; procedure Dbf1AINTGetText(Sender: TField; var aText: string;

11
examples/dbeditmask/project1.lpi
View File

@ -1,4 +1,4 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
@ -30,7 +30,7 @@
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>
<PackageName Value="DBFLaz"/> <PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Valid="True" Release="1"/> <MinVersion Minor="1" Release="1" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
@ -44,7 +44,6 @@
<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"/>
@ -52,12 +51,11 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1> </Unit1>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="project1"/> <Filename Value="project1"/>
@ -78,8 +76,5 @@
</Win32> </Win32>
</Options> </Options>
</Linking> </Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions> </CompilerOptions>
</CONFIG> </CONFIG>