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