Update: examples, information

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2042 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-30 11:09:31 +00:00
parent 791edd4164
commit 83a68a1096
6 changed files with 71 additions and 136 deletions

View File

@ -6,6 +6,7 @@ Note: Lazarus Trunk required
Version pre-1.0 Version pre-1.0
-------------------------------------------------- --------------------------------------------------
2011-09-30 Added: ftString support to TJDBGridControl. MaxLength property. 2011-09-30 Added: ftString support to TJDBGridControl. MaxLength property.
Reorganize files, update examples.
2011-09-27 Added: ftDateTime support to TJDBGridControl 2011-09-27 Added: ftDateTime support to TJDBGridControl
TJFloatEdit, TJLabeledFloatEdit, TJFloatEdit, TJLabeledFloatEdit,
TJDBFloatEdit, TJDBLabeledFloatEdit TJDBFloatEdit, TJDBLabeledFloatEdit

View File

@ -1,7 +1,7 @@
object Form1: TForm1 object Form1: TForm1
Left = 285 Left = 576
Height = 332 Height = 332
Top = 159 Top = 272
Width = 366 Width = 366
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 332 ClientHeight = 332
@ -32,39 +32,7 @@ object Form1: TForm1
ClientWidth = 241 ClientWidth = 241
DataSource = Datasource1 DataSource = Datasource1
Options = [] Options = []
TabOrder = 5 TabOrder = 4
end
object Label2: TLabel
Left = 24
Height = 18
Top = 133
Width = 14
Caption = 'Id'
ParentColor = False
end
object Label3: TLabel
Left = 106
Height = 18
Top = 133
Width = 29
Caption = 'Date'
ParentColor = False
end
object Label4: TLabel
Left = 188
Height = 18
Top = 133
Width = 21
Caption = 'Id2'
ParentColor = False
end
object Label5: TLabel
Left = 272
Height = 18
Top = 133
Width = 30
Caption = 'Total'
ParentColor = False
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 273 Left = 273
@ -75,70 +43,89 @@ object Form1: TForm1
Caption = '&Cerrar' Caption = '&Cerrar'
Kind = bkClose Kind = bkClose
ModalResult = 11 ModalResult = 11
TabOrder = 6 TabOrder = 5
end end
object JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit object JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit
Left = 272 Left = 272
Height = 27 Height = 27
Top = 200 Top = 173
Width = 80 Width = 80
DisplayFormat = '#,0.00€' DisplayFormat = '#,0.00 €'
DataField = 'TOTAL' DataField = 'TOTAL'
DataSource = Datasource1 DataSource = Datasource1
Decimals = 2 Decimals = 2
Alignment = taRightJustify Alignment = taRightJustify
EditLabel.AnchorSideLeft.Control = JDBLabeledCurrencyEdit1 EditLabel.AnchorSideLeft.Control = JDBLabeledCurrencyEdit1
EditLabel.AnchorSideRight.Control = JDBLabeledCurrencyEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledCurrencyEdit1 EditLabel.AnchorSideBottom.Control = JDBLabeledCurrencyEdit1
EditLabel.Left = 272 EditLabel.Left = 272
EditLabel.Height = 18 EditLabel.Height = 18
EditLabel.Top = 179 EditLabel.Top = 152
EditLabel.Width = 84 EditLabel.Width = 80
EditLabel.Caption = 'Total (labeled)' EditLabel.Caption = 'Total'
EditLabel.ParentColor = False EditLabel.ParentColor = False
TabOrder = 4 TabOrder = 3
end end
object JDBIntegerEdit1: TJDBIntegerEdit object JDBLabeledIntegerEdit1: TJDBLabeledIntegerEdit
Left = 24 Left = 21
Height = 27 Height = 27
Top = 152 Top = 174
Width = 80 Width = 80
DataField = 'ID' DataField = 'ID'
DataSource = Datasource1 DataSource = Datasource1
Alignment = taRightJustify Alignment = taRightJustify
EditLabel.AnchorSideLeft.Control = JDBLabeledIntegerEdit1
EditLabel.AnchorSideRight.Control = JDBLabeledIntegerEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit1
EditLabel.Left = 21
EditLabel.Height = 18
EditLabel.Top = 153
EditLabel.Width = 80
EditLabel.Caption = 'Id'
EditLabel.ParentColor = False
TabOrder = 0 TabOrder = 0
end end
object JDBDateEdit1: TJDBDateEdit object JDBLabeledDateEdit1: TJDBLabeledDateEdit
Left = 106 Left = 106
Height = 27 Height = 27
Top = 152 Top = 173
Width = 80 Width = 80
DataField = 'DATE' DataField = 'DATE'
DataSource = Datasource1 DataSource = Datasource1
EditLabel.AnchorSideLeft.Control = JDBLabeledDateEdit1
EditLabel.AnchorSideRight.Control = JDBLabeledDateEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledDateEdit1
EditLabel.Left = 106
EditLabel.Height = 18
EditLabel.Top = 152
EditLabel.Width = 80
EditLabel.Caption = 'Date'
EditLabel.ParentColor = False
TabOrder = 1 TabOrder = 1
end end
object JDBIntegerEdit2: TJDBIntegerEdit object JDBLabeledIntegerEdit2: TJDBLabeledIntegerEdit
Left = 188 Left = 188
Height = 27 Height = 27
Top = 152 Top = 173
Width = 80 Width = 80
DataField = 'ID2' DataField = 'ID'
DataSource = Datasource1 DataSource = Datasource1
ReadOnly = True
Alignment = taRightJustify Alignment = taRightJustify
EditLabel.AnchorSideLeft.Control = JDBLabeledIntegerEdit2
EditLabel.AnchorSideRight.Control = JDBLabeledIntegerEdit2
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit2
EditLabel.Left = 188
EditLabel.Height = 18
EditLabel.Top = 152
EditLabel.Width = 80
EditLabel.Caption = 'Id2'
EditLabel.ParentColor = False
TabOrder = 2 TabOrder = 2
end end
object JDBCurrencyEdit1: TJDBCurrencyEdit
Left = 270
Height = 27
Top = 152
Width = 80
DisplayFormat = '#,0.00€'
DataField = 'TOTAL'
DataSource = Datasource1
Decimals = 2
Alignment = taRightJustify
TabOrder = 3
end
object Datasource1: TDatasource object Datasource1: TDatasource
DataSet = MemDataset1 DataSet = MemDataset1
left = 224 left = 224

View File

@ -5,9 +5,9 @@ unit main;
interface interface
uses uses
Classes, SysUtils, db, memds, FileUtil, Forms, Controls, Graphics, Classes, SysUtils, DB, memds, FileUtil, Forms, Controls, Graphics, Dialogs,
Dialogs, StdCtrls, DbCtrls, Buttons, jdbintegeredit, jdbdateedit, StdCtrls, DBCtrls, Buttons, jdblabeledcurrencyedit, jdblabeledintegeredit,
jdbcurrencyedit, jdblabeledcurrencyedit; jdblabeleddateedit;
type type
@ -17,14 +17,11 @@ type
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
Datasource1: TDatasource; Datasource1: TDatasource;
DBNavigator1: TDBNavigator; DBNavigator1: TDBNavigator;
JDBCurrencyEdit1: TJDBCurrencyEdit;
JDBDateEdit1: TJDBDateEdit;
JDBIntegerEdit1: TJDBIntegerEdit;
JDBIntegerEdit2: TJDBIntegerEdit;
JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit; JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit;
JDBLabeledDateEdit1: TJDBLabeledDateEdit;
JDBLabeledIntegerEdit1: TJDBLabeledIntegerEdit;
JDBLabeledIntegerEdit2: TJDBLabeledIntegerEdit;
Label1: TLabel; Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel; Label4: TLabel;
Label5: TLabel; Label5: TLabel;
MemDataset1: TMemDataset; MemDataset1: TMemDataset;
@ -33,10 +30,10 @@ type
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
end; end;
var var
Form1: TForm1; Form1: TForm1;
implementation implementation

View File

@ -67,6 +67,10 @@
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<GenerateDebugInfo Value="True"/>
<DebugInfoType Value="dsAuto"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

View File

@ -1,10 +1,10 @@
object Form1: TForm1 object Form1: TForm1
Left = 365 Left = 365
Height = 295 Height = 185
Top = 260 Top = 260
Width = 419 Width = 419
Caption = 'Example' Caption = 'Example'
ClientHeight = 295 ClientHeight = 185
ClientWidth = 419 ClientWidth = 419
LCLVersion = '0.9.31' LCLVersion = '0.9.31'
object Label1: TLabel object Label1: TLabel
@ -106,63 +106,15 @@ object Form1: TForm1
TabOrder = 3 TabOrder = 3
end end
end end
object GroupBox2: TGroupBox
Left = 24
Height = 105
Top = 128
Width = 376
Caption = 'Normal Controls'
ClientHeight = 86
ClientWidth = 372
TabOrder = 1
object JIntegerEdit1: TJIntegerEdit
Left = 14
Height = 27
Top = 23
Width = 80
DisplayFormat = '0º'
Value = 0
TabOrder = 0
end
object JCurrencyEdit1: TJCurrencyEdit
Left = 102
Height = 27
Top = 23
Width = 80
DisplayFormat = '$ #,0.00'
Decimals = 2
Value = 0
TabOrder = 1
end
object JDateEdit1: TJDateEdit
Left = 190
Height = 27
Top = 23
Width = 80
DisplayFormat = 'dd/mm/yy'
Value = 0
TabOrder = 2
end
object JFloatEdit1: TJFloatEdit
Left = 280
Height = 27
Top = 24
Width = 80
DisplayFormat = '#,0.00'
Decimals = 2
Value = 0
TabOrder = 3
end
end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 308 Left = 308
Height = 30 Height = 30
Top = 249 Top = 139
Width = 91 Width = 91
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = '&Cerrar' Caption = '&Cerrar'
Kind = bkClose Kind = bkClose
ModalResult = 11 ModalResult = 11
TabOrder = 2 TabOrder = 1
end end
end end

View File

@ -6,9 +6,8 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, JIntegerEdit, JLabeledIntegerEdit, JCurrencyEdit, Buttons, JLabeledCurrencyEdit, JLabeledDateEdit, JLabeledFloatEdit,
JLabeledCurrencyEdit, JDateEdit, JLabeledDateEdit, JFloatEdit, JLabeledIntegerEdit;
JLabeledFloatEdit;
type type
@ -17,11 +16,6 @@ type
TForm1 = class(TForm) TForm1 = class(TForm)
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
GroupBox1: TGroupBox; GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
JCurrencyEdit1: TJCurrencyEdit;
JDateEdit1: TJDateEdit;
JFloatEdit1: TJFloatEdit;
JIntegerEdit1: TJIntegerEdit;
JLabeledCurrencyEdit1: TJLabeledCurrencyEdit; JLabeledCurrencyEdit1: TJLabeledCurrencyEdit;
JLabeledDateEdit1: TJLabeledDateEdit; JLabeledDateEdit1: TJLabeledDateEdit;
JLabeledFloatEdit1: TJLabeledFloatEdit; JLabeledFloatEdit1: TJLabeledFloatEdit;
@ -32,10 +26,10 @@ type
{ private declarations } { private declarations }
public public
{ public declarations } { public declarations }
end; end;
var var
Form1: TForm1; Form1: TForm1;
implementation implementation