diff --git a/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi b/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
index ff5324fbb..9af1e4d2c 100644
--- a/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
+++ b/components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
@@ -71,11 +71,10 @@
-
-
+
@@ -103,10 +102,11 @@
+
-
-
+
+
diff --git a/components/rx/Demos/RxDateEdit/project1.lpi b/components/rx/Demos/RxDateEdit/project1.lpi
index 80ebe5aa9..3c6a7a24e 100644
--- a/components/rx/Demos/RxDateEdit/project1.lpi
+++ b/components/rx/Demos/RxDateEdit/project1.lpi
@@ -1,9 +1,10 @@
-
+
+
@@ -41,219 +42,261 @@
-
+
-
-
+
-
-
+
-
-
+
+
-
+
-
-
-
+
-
-
+
+
+
+
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
-
+
+
-
+
-
+
-
-
+
+
-
+
-
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
+
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -284,4 +327,5 @@
+
diff --git a/components/rx/Demos/RxDateEdit/project1.lpr b/components/rx/Demos/RxDateEdit/project1.lpr
index d961c0f14..718a85524 100644
--- a/components/rx/Demos/RxDateEdit/project1.lpr
+++ b/components/rx/Demos/RxDateEdit/project1.lpr
@@ -9,16 +9,13 @@ uses
Interfaces, // this includes the LCL widgetset
Forms,
Unit1,
- LResources,
sysutils
{ you can add units after this };
-
-{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
+{$R *.res}
begin
- {$I project1.lrs}
- ShortDateFormat:='dd.mm.yyyy';
- DateSeparator:='.';
+ DefaultFormatSettings.ShortDateFormat:='dd.mm.yyyy';
+ DefaultFormatSettings.DateSeparator:='.';
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
diff --git a/components/rx/Demos/RxDateEdit/unit1.lfm b/components/rx/Demos/RxDateEdit/unit1.lfm
index 321cc7966..1144fe04c 100644
--- a/components/rx/Demos/RxDateEdit/unit1.lfm
+++ b/components/rx/Demos/RxDateEdit/unit1.lfm
@@ -7,14 +7,14 @@ object Form1: TForm1
ClientHeight = 300
ClientWidth = 400
OnCreate = FormCreate
- LCLVersion = '0.9.29'
+ LCLVersion = '1.3'
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
Left = 6
- Height = 18
+ Height = 15
Top = 6
- Width = 46
+ Width = 43
BorderSpacing.Left = 6
BorderSpacing.Top = 6
Caption = 'Label1'
@@ -25,69 +25,73 @@ object Form1: TForm1
AnchorSideTop.Control = DBDateEdit1
AnchorSideTop.Side = asrBottom
Left = 6
- Height = 18
- Top = 63
- Width = 93
+ Height = 15
+ Top = 58
+ Width = 87
BorderSpacing.Around = 6
Caption = 'Currency edit'
ParentColor = False
end
- object DBDateEdit1: TDBDateEdit
- AnchorSideLeft.Control = Label1
- AnchorSideTop.Control = Label1
- AnchorSideTop.Side = asrBottom
- Left = 12
- Height = 27
- Top = 30
- Width = 148
- BorderSpacing.Left = 6
- BorderSpacing.Top = 6
- ButtonWidth = 23
- Enabled = False
- Glyph.Data = {
- 36010000424D360100000000000076000000280000001C0000000C0000000100
- 040000000000C000000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDD777777777
- 77DDFFFFFFFFFFFF0000DD004044040047D777777777777F0000DDFFFFFFFFFF
- 47D7FDFFFDFFFD7F0000DDF000F0008F47D7F777D777DF7F0000DDFF0FF8F80F
- 47D7FD7FDDDD7F7F0000DDFF0FFFFF0F47D7FD7FDDFF7D7F0000DDFF0FF0008F
- 47D7FD7FD777DD7F0000DDF00FF0FFFF47D7F77FD7FFFF7F0000DDFF0FF0000F
- 47D7FD7DD7777D7F0000DDFFFFFFFFFF47D7FDDDDDDDDD7F0000DDF88888888F
- 47D7FFFFFFFFFF7F0000DD0000000000DDD777777777777D0000
- }
- NumGlyphs = 2
- PopupColor = clWindow
- TabOrder = 0
- DataField = 'DOC_DATE'
- DataSource = dsData
- end
object CurrencyEdit1: TCurrencyEdit
AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom
Left = 12
- Height = 27
- Top = 87
+ Height = 25
+ Top = 79
Width = 148
Alignment = taCenter
BorderSpacing.Around = 6
MaxValue = 0
MinValue = 0
- TabOrder = 1
+ TabOrder = 0
Value = 0
end
object Button1: TButton
Left = 248
- Height = 29
+ Height = 27
Top = 80
- Width = 76
+ Width = 77
AutoSize = True
Caption = 'Invalidate'
OnClick = Button1Click
- TabOrder = 2
+ TabOrder = 1
end
- object dsData: TDatasource
+ object RxDateEdit1: TRxDateEdit
+ Left = 12
+ Height = 25
+ Top = 135
+ Width = 80
+ ButtonWidth = 23
+ CharCase = ecNormal
+ MaxLength = 10
+ NumGlyphs = 2
+ PopupColor = clWindow
+ TabOrder = 2
+ Text = ' . . '
+ end
+ object DBDateEdit1: TDBDateEdit
+ AnchorSideLeft.Control = Label1
+ AnchorSideTop.Control = Label1
+ AnchorSideTop.Side = asrBottom
+ Left = 12
+ Height = 25
+ Top = 27
+ Width = 139
+ BorderSpacing.Left = 6
+ BorderSpacing.Top = 6
+ ButtonWidth = 23
+ CharCase = ecNormal
+ Enabled = False
+ MaxLength = 10
+ NumGlyphs = 2
+ PopupColor = clWindow
+ TabOrder = 3
+ Text = ' . . '
+ DataField = 'DOC_DATE'
+ DataSource = dsData
+ end
+ object dsData: TDataSource
DataSet = rxData
left = 264
top = 21
@@ -100,6 +104,7 @@ object Form1: TForm1
Precision = 0
Size = 0
end>
+ PacketRecords = 0
left = 304
top = 21
object rxDataDOC_DATE: TDateField
diff --git a/components/rx/Demos/RxDateEdit/unit1.pas b/components/rx/Demos/RxDateEdit/unit1.pas
index 22ae1a076..de05f14e5 100644
--- a/components/rx/Demos/RxDateEdit/unit1.pas
+++ b/components/rx/Demos/RxDateEdit/unit1.pas
@@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
- Dialogs, StdCtrls, rxmemds, dbdateedit, curredit;
+ Dialogs, StdCtrls, rxmemds, dbdateedit, curredit, tooledit;
type
@@ -21,6 +21,7 @@ type
Label2: TLabel;
rxData: TRxMemoryData;
rxDataDOC_DATE: TDateField;
+ RxDateEdit1: TRxDateEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
@@ -34,6 +35,8 @@ var
implementation
+{$R *.lfm}
+
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
@@ -49,8 +52,5 @@ begin
CurrencyEdit1.Invalidate;
end;
-initialization
- {$I unit1.lrs}
-
end.
diff --git a/components/rx/tooledit.lrs b/components/rx/tooledit.lrs
deleted file mode 100644
index 3d62b1c87..000000000
--- a/components/rx/tooledit.lrs
+++ /dev/null
@@ -1,14 +0,0 @@
-LazarusResources.Add('picDateEdit','BMP',[
- 'BM6'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#28#0#0#0#12#0#0#0#1#0#4#0#0#0#0#0#192#0
- +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0
- +#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0
- +#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#221#215
- +'wwwww'#221#255#255#255#255#255#255#0#0#221#0'@D'#4#0'G'#215'wwwww'#0#0#221
- +#255#255#255#255#255'G'#215#253#255#253#255#253''#0#0#221#240#0#240#0#143'G'
- +#215#247'w'#215'w'#223''#0#0#221#255#15#248#248#15'G'#215#253''#221#221''
- +#0#0#221#255#15#255#255#15'G'#215#253''#221#255'}'#0#0#221#255#15#240#0#143
- +'G'#215#253''#215'w'#221''#0#0#221#240#15#240#255#255'G'#215#247''#215#255
- +#255''#0#0#221#255#15#240#0#15'G'#215#253'}'#215'w}'#0#0#221#255#255#255
- +#255#255'G'#215#253#221#221#221#221''#0#0#221#248#136#136#136#143'G'#215#255
- +#255#255#255#255''#0#0#221#0#0#0#0#0#221#215'wwwww}'#0#0
-]);
diff --git a/components/rx/tooledit.pas b/components/rx/tooledit.pas
index 22f0f0f81..0cb006545 100644
--- a/components/rx/tooledit.pas
+++ b/components/rx/tooledit.pas
@@ -220,6 +220,8 @@ implementation
uses lclintf, LCLStrConsts, rxconst, rxstrutils, LResources, Forms, LCLProc,
variants;
+{$R tooledit.res}
+
type
TPopupCalendarAccess = class(TPopupCalendar)
end;
@@ -894,7 +896,9 @@ begin
SetDate(DateValue);
end;
+(*
initialization
{$I tooledit.lrs}
+*)
end.
diff --git a/components/rx/tooledit.res b/components/rx/tooledit.res
new file mode 100644
index 000000000..c4e05c0d2
Binary files /dev/null and b/components/rx/tooledit.res differ