You've already forked lazarus-ccr
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:
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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"/>
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user