diff --git a/components/jujiboutils/examples/example1/main.lfm b/components/jujiboutils/examples/example1/main.lfm
index 209111f1e..b25d107a2 100644
--- a/components/jujiboutils/examples/example1/main.lfm
+++ b/components/jujiboutils/examples/example1/main.lfm
@@ -1,11 +1,11 @@
object Form1: TForm1
- Left = 379
- Height = 340
- Top = 214
- Width = 411
+ Left = 307
+ Height = 331
+ Top = 233
+ Width = 436
Caption = 'Form1'
- ClientHeight = 340
- ClientWidth = 411
+ ClientHeight = 331
+ ClientWidth = 436
OnCreate = FormCreate
LCLVersion = '1.1'
object Label1: TLabel
@@ -35,9 +35,9 @@ object Form1: TForm1
TabOrder = 4
end
object BitBtn1: TBitBtn
- Left = 318
+ Left = 343
Height = 30
- Top = 297
+ Top = 288
Width = 77
Anchors = [akRight, akBottom]
Caption = '&Cerrar'
@@ -46,7 +46,7 @@ object Form1: TForm1
TabOrder = 5
end
object JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit
- Left = 300
+ Left = 298
Height = 27
Top = 173
Width = 80
@@ -59,7 +59,7 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JDBLabeledCurrencyEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledCurrencyEdit1
- EditLabel.Left = 300
+ EditLabel.Left = 298
EditLabel.Height = 17
EditLabel.Top = 153
EditLabel.Width = 80
@@ -90,6 +90,7 @@ object Form1: TForm1
object JDBLabeledDateEdit1: TJDBLabeledDateEdit
Left = 106
Height = 27
+ Hint = 'Try Alt+Down arrow key to show the calendar'
Top = 173
Width = 80
DataField = 'DATE'
@@ -105,10 +106,12 @@ object Form1: TForm1
EditLabel.Width = 80
EditLabel.Caption = 'Date'
EditLabel.ParentColor = False
+ ParentShowHint = False
+ ShowHint = True
TabOrder = 1
end
object JDBLabeledIntegerEdit2: TJDBLabeledIntegerEdit
- Left = 216
+ Left = 214
Height = 27
Top = 173
Width = 80
@@ -119,7 +122,7 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JDBLabeledIntegerEdit2
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JDBLabeledIntegerEdit2
- EditLabel.Left = 216
+ EditLabel.Left = 214
EditLabel.Height = 17
EditLabel.Top = 153
EditLabel.Width = 80
@@ -128,38 +131,13 @@ object Form1: TForm1
TabOrder = 2
end
object Datasource1: TDatasource
- DataSet = MemDataset1
- left = 224
+ DataSet = BufDataset1
+ left = 336
top = 8
end
- object MemDataset1: TMemDataset
- Active = True
- FieldDefs = <
- item
- Name = 'ID'
- DataType = ftInteger
- Precision = 0
- Size = 0
- end
- item
- Name = 'DATE'
- DataType = ftDate
- Precision = 0
- Size = 0
- end
- item
- Name = 'TOTAL'
- DataType = ftFloat
- Precision = 0
- Size = 0
- end
- item
- Name = 'ID2'
- DataType = ftInteger
- Precision = 0
- Size = 0
- end>
- left = 184
+ object BufDataset1: TBufDataset
+ FieldDefs = <>
+ left = 248
top = 8
end
end
diff --git a/components/jujiboutils/examples/example1/main.pas b/components/jujiboutils/examples/example1/main.pas
index 0f212f692..6896035ed 100644
--- a/components/jujiboutils/examples/example1/main.pas
+++ b/components/jujiboutils/examples/example1/main.pas
@@ -5,9 +5,9 @@ unit main;
interface
uses
- Classes, SysUtils, DB, memds, FileUtil, Forms, Controls, Graphics, Dialogs,
- StdCtrls, DBCtrls, Buttons, jdblabeledcurrencyedit, jdblabeledintegeredit,
- jdblabeleddateedit;
+ Classes, SysUtils, DB, BufDataset, FileUtil, Forms, Controls, Graphics,
+ Dialogs, StdCtrls, DBCtrls, Buttons, jdblabeledcurrencyedit,
+ jdblabeledintegeredit, jdblabeleddateedit;
type
@@ -15,6 +15,7 @@ type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
+ BufDataset1: TBufDataset;
Datasource1: TDatasource;
DBNavigator1: TDBNavigator;
JDBLabeledCurrencyEdit1: TJDBLabeledCurrencyEdit;
@@ -24,7 +25,6 @@ type
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
- MemDataset1: TMemDataset;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
@@ -45,17 +45,26 @@ procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
+ // Create BufDataset
+ with BufDataset1.FieldDefs do
+ begin
+ Add('ID', ftInteger, 0, False);
+ Add('DATE', ftDate, 0, False);
+ Add('TOTAL', ftCurrency, 0, False);
+ Add('ID2', ftInteger, 0, False);
+ end;
+ BufDataset1.CreateDataset;
// populate the memDataset
for i := 1 to 10 do
begin
- MemDataset1.Append;
- MemDataset1.FieldByName('ID').AsInteger := i;
- MemDataset1.FieldByName('DATE').AsDateTime := Now;
- MemDataset1.FieldByName('ID2').AsInteger := i * i;
- MemDataset1.FieldByName('TOTAL').AsFloat := i * i * i;
- MemDataset1.Post;
+ BufDataset1.Append;
+ BufDataset1.FieldByName('ID').AsInteger := i;
+ BufDataset1.FieldByName('DATE').AsDateTime := Now;
+ BufDataset1.FieldByName('ID2').AsInteger := i * i;
+ BufDataset1.FieldByName('TOTAL').AsCurrency := i * i * i;
+ BufDataset1.Post;
end;
- MemDataset1.First;
+ BufDataset1.First;
end;
end.
diff --git a/components/jujiboutils/examples/example1/project1.lpi b/components/jujiboutils/examples/example1/project1.lpi
index 02b3d5952..e2cd65be8 100644
--- a/components/jujiboutils/examples/example1/project1.lpi
+++ b/components/jujiboutils/examples/example1/project1.lpi
@@ -27,19 +27,16 @@
-
+
-
+
-
-
-
-
+
diff --git a/components/jujiboutils/examples/example1/project1.lpr b/components/jujiboutils/examples/example1/project1.lpr
index d24ce70b2..0175aa8c5 100644
--- a/components/jujiboutils/examples/example1/project1.lpr
+++ b/components/jujiboutils/examples/example1/project1.lpr
@@ -8,8 +8,7 @@ uses
{$ENDIF}clocale,
{$ENDIF}
Interfaces, // this includes the LCL widgetset
- Forms, main, memdslaz
- { you can add units after this };
+ Forms, main;
{$R *.res}
diff --git a/components/jujiboutils/examples/examplenodb/main.lfm b/components/jujiboutils/examples/examplenodb/main.lfm
index 3fc106118..96a06101d 100644
--- a/components/jujiboutils/examples/examplenodb/main.lfm
+++ b/components/jujiboutils/examples/examplenodb/main.lfm
@@ -1,12 +1,13 @@
object Form1: TForm1
Left = 365
Height = 184
+ Hint = 'Try Alt+Down arrow key to show the calendar'
Top = 261
- Width = 444
+ Width = 445
Caption = 'Example'
ClientHeight = 184
- ClientWidth = 444
- OnCreate = FormCreate
+ ClientWidth = 445
+ ShowHint = True
LCLVersion = '1.1'
object Label1: TLabel
Left = 8
@@ -70,6 +71,7 @@ object Form1: TForm1
object JLabeledDateEdit1: TJLabeledDateEdit
Left = 190
Height = 27
+ Hint = 'Try Alt+Down Arrow key to show the calendar'
Top = 22
Width = 80
DisplayFormat = 'dd/mm/yy'
@@ -88,7 +90,7 @@ object Form1: TForm1
TabOrder = 2
end
object JLabeledFloatEdit1: TJLabeledFloatEdit
- Left = 302
+ Left = 298
Height = 27
Top = 22
Width = 80
@@ -99,7 +101,7 @@ object Form1: TForm1
EditLabel.AnchorSideRight.Control = JLabeledFloatEdit1
EditLabel.AnchorSideRight.Side = asrBottom
EditLabel.AnchorSideBottom.Control = JLabeledFloatEdit1
- EditLabel.Left = 302
+ EditLabel.Left = 298
EditLabel.Height = 17
EditLabel.Top = 2
EditLabel.Width = 80
@@ -109,7 +111,7 @@ object Form1: TForm1
end
end
object BitBtn1: TBitBtn
- Left = 333
+ Left = 334
Height = 30
Top = 138
Width = 91
diff --git a/components/jujiboutils/examples/examplenodb/main.pas b/components/jujiboutils/examples/examplenodb/main.pas
index 714d1bbcb..ad98b7073 100644
--- a/components/jujiboutils/examples/examplenodb/main.pas
+++ b/components/jujiboutils/examples/examplenodb/main.pas
@@ -22,7 +22,6 @@ type
JLabeledIntegerEdit1: TJLabeledIntegerEdit;
JLabeledIntegerEdit2: TJLabeledIntegerEdit;
Label1: TLabel;
- procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
@@ -36,12 +35,5 @@ implementation
{$R *.lfm}
-{ TForm1 }
-
-procedure TForm1.FormCreate(Sender: TObject);
-begin
-
-end;
-
end.
diff --git a/components/jujiboutils/examples/testgridctr/main.lfm b/components/jujiboutils/examples/testgridctr/main.lfm
index d6e65ce44..d8d298dd7 100644
--- a/components/jujiboutils/examples/testgridctr/main.lfm
+++ b/components/jujiboutils/examples/testgridctr/main.lfm
@@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 347
ClientWidth = 419
OnCreate = FormCreate
- LCLVersion = '0.9.31'
+ LCLVersion = '1.1'
object DBNavigator1: TDBNavigator
Left = 8
Height = 25
@@ -29,57 +29,54 @@ object Form1: TForm1
object JDBGridControl1: TJDBGridControl
Left = 8
Height = 192
- Top = 112
+ Top = 96
Width = 392
+ AlternateColor = clMoneyGreen
+ AutoFillColumns = True
Color = clWindow
Columns = <
item
Title.Caption = 'ID'
- Title.PrefixOption = poNone
+ Width = 121
FieldName = 'ID'
+ Decimals = 0
+ MaxLength = 0
end
item
Title.Caption = 'DATE'
- Title.PrefixOption = poNone
+ Width = 121
FieldName = 'DATE'
+ DisplayFormat = 'dd/mm/yyyy'
+ Decimals = 0
+ MaxLength = 0
end
item
Title.Caption = 'QUANTITY'
- Title.PrefixOption = poNone
- Width = 150
+ Width = 121
FieldName = 'QUANTITY'
DisplayFormat = '#,0.00000€'
+ Decimals = 0
+ MaxLength = 0
end>
DataSource = Datasource1
TabOrder = 1
end
- object MemDataset1: TMemDataset
- Active = True
- FieldDefs = <
- item
- Name = 'ID'
- DataType = ftInteger
- Precision = 0
- Size = 0
- end
- item
- Name = 'DATE'
- DataType = ftDate
- Precision = 0
- Size = 0
- end
- item
- Name = 'QUANTITY'
- DataType = ftFloat
- Precision = 0
- Size = 0
- end>
- left = 232
- top = 8
+ object Label1: TLabel
+ Left = 13
+ Height = 17
+ Top = 296
+ Width = 391
+ Caption = 'Press Alt+Down arrow key while editing date to show the calendar'
+ ParentColor = False
end
object Datasource1: TDatasource
- DataSet = MemDataset1
+ DataSet = BufDataset1
left = 324
top = 7
end
+ object BufDataset1: TBufDataset
+ FieldDefs = <>
+ left = 232
+ top = 7
+ end
end
diff --git a/components/jujiboutils/examples/testgridctr/main.pas b/components/jujiboutils/examples/testgridctr/main.pas
index ba46fe565..0187ceaa4 100644
--- a/components/jujiboutils/examples/testgridctr/main.pas
+++ b/components/jujiboutils/examples/testgridctr/main.pas
@@ -5,18 +5,19 @@ unit main;
interface
uses
- Classes, SysUtils, memds, db, FileUtil, Forms, Controls, Graphics, Dialogs,
- DbCtrls, DBGrids, JDBGridControl;
+ Classes, SysUtils, db, BufDataset, FileUtil, Forms, Controls, Graphics,
+ Dialogs, DbCtrls, DBGrids, StdCtrls, JDBGridControl;
type
{ TForm1 }
TForm1 = class(TForm)
+ BufDataset1: TBufDataset;
Datasource1: TDatasource;
DBNavigator1: TDBNavigator;
JDBGridControl1: TJDBGridControl;
- MemDataset1: TMemDataset;
+ Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
@@ -37,16 +38,24 @@ procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
- // populate the memDataset
+ // Create BufDataset
+ with BufDataset1.FieldDefs do
+ begin
+ Add('ID', ftInteger, 0, False);
+ Add('DATE', ftDate, 0, False);
+ Add('QUANTITY', ftCurrency, 0, False);
+ end;
+ BufDataset1.CreateDataset;
+ // populate
for i := 1 to 10 do
begin
- MemDataset1.Append;
- MemDataset1.FieldByName('ID').AsInteger := i;
- MemDataset1.FieldByName('DATE').AsDateTime := Now;
- MemDataset1.FieldByName('QUANTITY').AsFloat := i * i * i;
- MemDataset1.Post;
+ BufDataset1.Append;
+ BufDataset1.FieldByName('ID').AsInteger := i;
+ BufDataset1.FieldByName('DATE').AsDateTime := Now;
+ BufDataset1.FieldByName('QUANTITY').AsFloat := i * i * i;
+ BufDataset1.Post;
end;
- MemDataset1.First;
+ BufDataset1.First;
end;
end.
diff --git a/components/jujiboutils/examples/testgridctr/testgridctr.lpi b/components/jujiboutils/examples/testgridctr/testgridctr.lpi
index b21c22eda..dd6f3d835 100644
--- a/components/jujiboutils/examples/testgridctr/testgridctr.lpi
+++ b/components/jujiboutils/examples/testgridctr/testgridctr.lpi
@@ -1,4 +1,4 @@
-
+
@@ -25,10 +25,9 @@
-
-
+
@@ -36,11 +35,8 @@
-
-
-
-
+
@@ -52,13 +48,14 @@
+
-
+
@@ -67,10 +64,6 @@
-
-
-
-
diff --git a/components/jujiboutils/examples/testgridctr/testgridctr.lpr b/components/jujiboutils/examples/testgridctr/testgridctr.lpr
index 8df3973cb..a81747d0e 100644
--- a/components/jujiboutils/examples/testgridctr/testgridctr.lpr
+++ b/components/jujiboutils/examples/testgridctr/testgridctr.lpr
@@ -7,7 +7,7 @@ uses
cthreads,
{$ENDIF}clocale,{$ENDIF}
Interfaces, // this includes the LCL widgetset
- Forms, memdslaz, main
+ Forms, main
{ you can add units after this };
{$R *.res}