pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxDateEdit - add new resource

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2798 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2013-09-28 16:12:19 +00:00
parent e469ce1354
commit e644913963
8 changed files with 162 additions and 126 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/rx/Demos/RxDBGrid/RxDBGridDemo.lpi
View File

@ -71,11 +71,10 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="RxDBGridMainUnit"/> <UnitName Value="RxDBGridMainUnit"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="134"/> <TopLine Value="134"/>
<CursorPos X="1" Y="147"/> <CursorPos X="1" Y="145"/>
<UsageCount Value="95"/> <UsageCount Value="95"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -103,10 +102,11 @@
<Unit5> <Unit5>
<Filename Value="../../rxdbgrid.pas"/> <Filename Value="../../rxdbgrid.pas"/>
<UnitName Value="rxdbgrid"/> <UnitName Value="rxdbgrid"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3958"/> <TopLine Value="3955"/>
<CursorPos X="3" Y="3985"/> <CursorPos X="19" Y="3985"/>
<UsageCount Value="16"/> <UsageCount Value="16"/>
<Bookmarks Count="2"> <Bookmarks Count="2">
<Item0 X="1" Y="4281" ID="1"/> <Item0 X="1" Y="4281" ID="1"/>

154
components/rx/Demos/RxDateEdit/project1.lpi
View File

@ -1,9 +1,10 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="9"/>
<General> <General>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
<ActiveWindowIndexAtStart Value="0"/> <ActiveWindowIndexAtStart Value="0"/>
@ -41,219 +42,261 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item3> </Item3>
</RequiredPackages> </RequiredPackages>
<Units Count="19"> <Units Count="21">
<Unit0> <Unit0>
<Filename Value="project1.lpr"/> <Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="project1"/> <UnitName Value="project1"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="22" Y="21"/> <CursorPos X="1" Y="14"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="22"/> <TopLine Value="6"/>
<CursorPos X="22" Y="9"/> <CursorPos X="15" Y="19"/>
<UsageCount Value="20"/> <UsageCount Value="20"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
<Unit2> <Unit2>
<Filename Value="/usr/local/share/lazarus/components/rxnew/curredit.pas"/> <Filename Value="../../curredit.pas"/>
<UnitName Value="curredit"/> <UnitName Value="curredit"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="469"/> <TopLine Value="469"/>
<CursorPos X="1" Y="485"/> <CursorPos X="1" Y="485"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="/usr/local/share/lazarus/components/rxnew/tooledit.pas"/> <Filename Value="../../tooledit.pas"/>
<UnitName Value="tooledit"/> <UnitName Value="tooledit"/>
<TopLine Value="287"/> <EditorIndex Value="1"/>
<CursorPos X="1" Y="303"/> <WindowIndex Value="0"/>
<TopLine Value="794"/>
<CursorPos X="5" Y="797"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="/usr/local/share/lazarus/components/rxnew/rx.inc"/> <Filename Value="../../rx.inc"/>
<TopLine Value="1"/> <TopLine Value="1"/>
<CursorPos X="20" Y="11"/> <CursorPos X="20" Y="11"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="/usr/local/share/lazarus/lcl/maskedit.pp"/> <Filename Value="../../../../lcl/maskedit.pp"/>
<UnitName Value="MaskEdit"/> <UnitName Value="MaskEdit"/>
<TopLine Value="149"/> <TopLine Value="149"/>
<CursorPos X="30" Y="145"/> <CursorPos X="30" Y="145"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="/usr/local/share/lazarus/lcl/stdctrls.pp"/> <Filename Value="../../../../lcl/stdctrls.pp"/>
<UnitName Value="StdCtrls"/> <UnitName Value="StdCtrls"/>
<TopLine Value="677"/> <TopLine Value="677"/>
<CursorPos X="3" Y="693"/> <CursorPos X="3" Y="693"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="/usr/local/share/lazarus/lcl/controls.pp"/> <Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<TopLine Value="1720"/> <TopLine Value="1720"/>
<CursorPos X="15" Y="1736"/> <CursorPos X="15" Y="1736"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="/usr/local/share/lazarus/lcl/include/wincontrol.inc"/> <Filename Value="../../../../lcl/include/wincontrol.inc"/>
<TopLine Value="4997"/> <TopLine Value="4997"/>
<CursorPos X="1" Y="5013"/> <CursorPos X="1" Y="5013"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="/usr/local/share/lazarus/lcl/dbctrls.pp"/> <Filename Value="../../../../lcl/dbctrls.pp"/>
<UnitName Value="DbCtrls"/> <UnitName Value="DbCtrls"/>
<TopLine Value="196"/> <TopLine Value="196"/>
<CursorPos X="15" Y="212"/> <CursorPos X="15" Y="212"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="/usr/local/share/lazarus/lcl/include/dbedit.inc"/> <Filename Value="../../../../lcl/include/dbedit.inc"/>
<TopLine Value="263"/> <TopLine Value="263"/>
<CursorPos X="3" Y="265"/> <CursorPos X="3" Y="265"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="/usr/local/share/lazarus/lcl/graphics.pp"/> <Filename Value="../../../../lcl/graphics.pp"/>
<UnitName Value="Graphics"/> <UnitName Value="Graphics"/>
<TopLine Value="1099"/> <TopLine Value="1099"/>
<CursorPos X="15" Y="1115"/> <CursorPos X="15" Y="1115"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="/usr/local/share/lazarus/lcl/include/canvas.inc"/> <Filename Value="../../../../lcl/include/canvas.inc"/>
<TopLine Value="1057"/> <TopLine Value="1057"/>
<CursorPos X="1" Y="1073"/> <CursorPos X="1" Y="1073"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="/usr/local/share/lazarus/lcl/include/control.inc"/> <Filename Value="../../../../lcl/include/control.inc"/>
<TopLine Value="1615"/> <TopLine Value="1615"/>
<CursorPos X="1" Y="1631"/> <CursorPos X="1" Y="1631"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="/usr/local/share/lazarus/lcl/lclmessageglue.pas"/> <Filename Value="../../../../lcl/lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/> <UnitName Value="LCLMessageGlue"/>
<TopLine Value="105"/> <TopLine Value="105"/>
<CursorPos X="1" Y="121"/> <CursorPos X="1" Y="121"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit14> </Unit14>
<Unit15> <Unit15>
<Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkproc.inc"/> <Filename Value="../../../../lcl/interfaces/gtk/gtkproc.inc"/>
<TopLine Value="3696"/> <TopLine Value="3696"/>
<CursorPos X="1" Y="3712"/> <CursorPos X="1" Y="3712"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkcallback.inc"/> <Filename Value="../../../../lcl/interfaces/gtk/gtkcallback.inc"/>
<TopLine Value="660"/> <TopLine Value="660"/>
<CursorPos X="1" Y="676"/> <CursorPos X="1" Y="676"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="/usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/> <Filename Value="../../../../lcl/interfaces/gtk/gtkwidgetset.inc"/>
<TopLine Value="1200"/> <TopLine Value="1200"/>
<CursorPos X="1" Y="1226"/> <CursorPos X="1" Y="1226"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="../../dbdateedit.pas"/>
<UnitName Value="dbdateedit"/> <UnitName Value="dbdateedit"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="211"/> <TopLine Value="211"/>
<CursorPos X="1" Y="227"/> <CursorPos X="1" Y="227"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit18> </Unit18>
<Unit19>
<Filename Value="/home/alexs/install/fpcsrc/rtl/objpas/sysutils/sysinth.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="77"/>
<CursorPos X="37" Y="93"/>
<UsageCount Value="10"/>
</Unit19>
<Unit20>
<Filename Value="../../../../lcl/editbtn.pas"/>
<UnitName Value="EditBtn"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="774"/>
<CursorPos X="1" Y="792"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit20>
</Units> </Units>
<JumpHistory Count="15" HistoryIndex="14"> <JumpHistory Count="21" HistoryIndex="20">
<Position1> <Position1>
<Filename Value="/usr/local/share/lazarus/components/rxnew/curredit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="485" Column="1" TopLine="469"/> <Caret Line="46" Column="1" TopLine="28"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="1" TopLine="28"/> <Caret Line="18" Column="22" TopLine="8"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="18" Column="22" TopLine="8"/> <Caret Line="46" Column="1" TopLine="28"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="224" Column="3" TopLine="222"/> <Caret Line="47" Column="1" TopLine="28"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="1" TopLine="28"/> <Caret Line="46" Column="26" TopLine="28"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="47" Column="1" TopLine="28"/> <Caret Line="20" Column="25" TopLine="20"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="227" Column="1" TopLine="211"/> <Caret Line="22" Column="20" TopLine="20"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="228" Column="1" TopLine="212"/> <Caret Line="9" Column="22" TopLine="9"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="233" Column="1" TopLine="217"/> <Caret Line="39" Column="1" TopLine="22"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="227" Column="1" TopLine="211"/> <Caret Line="38" Column="1" TopLine="22"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="228" Column="1" TopLine="212"/> <Caret Line="40" Column="7" TopLine="22"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="/usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="233" Column="1" TopLine="217"/> <Caret Line="39" Column="7" TopLine="21"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="46" Column="26" TopLine="28"/> <Caret Line="40" Column="7" TopLine="21"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="20" Column="25" TopLine="20"/> <Caret Line="39" Column="7" TopLine="21"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="22" Column="20" TopLine="20"/> <Caret Line="18" Column="15" TopLine="6"/>
</Position15> </Position15>
<Position16>
<Filename Value="../../tooledit.pas"/>
<Caret Line="161" Column="50" TopLine="142"/>
</Position16>
<Position17>
<Filename Value="../../tooledit.pas"/>
<Caret Line="897" Column="1" TopLine="868"/>
</Position17>
<Position18>
<Filename Value="../../../../lcl/editbtn.pas"/>
<Caret Line="249" Column="3" TopLine="234"/>
</Position18>
<Position19>
<Filename Value="../../tooledit.pas"/>
<Caret Line="223" Column="1" TopLine="203"/>
</Position19>
<Position20>
<Filename Value="../../tooledit.pas"/>
<Caret Line="900" Column="1" TopLine="870"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="18" Column="15" TopLine="6"/>
</Position21>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<Target>
<Filename Value="project1"/>
</Target>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/> <IncludeFiles Value="$(ProjOutDir)"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
@ -284,4 +327,5 @@
</Item3> </Item3>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
<EditorMacros Count="0"/>
</CONFIG> </CONFIG>

9
components/rx/Demos/RxDateEdit/project1.lpr
View File

@ -9,16 +9,13 @@ uses
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, Forms,
Unit1, Unit1,
LResources,
sysutils sysutils
{ you can add units after this }; { you can add units after this };
{$R *.res}
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
begin begin
{$I project1.lrs} DefaultFormatSettings.ShortDateFormat:='dd.mm.yyyy';
ShortDateFormat:='dd.mm.yyyy'; DefaultFormatSettings.DateSeparator:='.';
DateSeparator:='.';
Application.Initialize; Application.Initialize;
Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm1, Form1);
Application.Run; Application.Run;

91
components/rx/Demos/RxDateEdit/unit1.lfm
View File

@ -7,14 +7,14 @@ object Form1: TForm1
ClientHeight = 300 ClientHeight = 300
ClientWidth = 400 ClientWidth = 400
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '0.9.29' LCLVersion = '1.3'
object Label1: TLabel object Label1: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
Left = 6 Left = 6
Height = 18 Height = 15
Top = 6 Top = 6
Width = 46 Width = 43
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'Label1' Caption = 'Label1'
@ -25,69 +25,73 @@ object Form1: TForm1
AnchorSideTop.Control = DBDateEdit1 AnchorSideTop.Control = DBDateEdit1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 18 Height = 15
Top = 63 Top = 58
Width = 93 Width = 87
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Currency edit' Caption = 'Currency edit'
ParentColor = False ParentColor = False
end 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 object CurrencyEdit1: TCurrencyEdit
AnchorSideLeft.Control = Label2 AnchorSideLeft.Control = Label2
AnchorSideTop.Control = Label2 AnchorSideTop.Control = Label2
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 12 Left = 12
Height = 27 Height = 25
Top = 87 Top = 79
Width = 148 Width = 148
Alignment = taCenter Alignment = taCenter
BorderSpacing.Around = 6 BorderSpacing.Around = 6
MaxValue = 0 MaxValue = 0
MinValue = 0 MinValue = 0
TabOrder = 1 TabOrder = 0
Value = 0 Value = 0
end end
object Button1: TButton object Button1: TButton
Left = 248 Left = 248
Height = 29 Height = 27
Top = 80 Top = 80
Width = 76 Width = 77
AutoSize = True AutoSize = True
Caption = 'Invalidate' Caption = 'Invalidate'
OnClick = Button1Click OnClick = Button1Click
TabOrder = 2 TabOrder = 1
end 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 DataSet = rxData
left = 264 left = 264
top = 21 top = 21
@ -100,6 +104,7 @@ object Form1: TForm1
Precision = 0 Precision = 0
Size = 0 Size = 0
end> end>
PacketRecords = 0
left = 304 left = 304
top = 21 top = 21
object rxDataDOC_DATE: TDateField object rxDataDOC_DATE: TDateField

8
components/rx/Demos/RxDateEdit/unit1.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics, Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
Dialogs, StdCtrls, rxmemds, dbdateedit, curredit; Dialogs, StdCtrls, rxmemds, dbdateedit, curredit, tooledit;
type type
@ -21,6 +21,7 @@ type
Label2: TLabel; Label2: TLabel;
rxData: TRxMemoryData; rxData: TRxMemoryData;
rxDataDOC_DATE: TDateField; rxDataDOC_DATE: TDateField;
RxDateEdit1: TRxDateEdit;
procedure Button1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
private private
@ -34,6 +35,8 @@ var
implementation implementation
{$R *.lfm}
{ TForm1 } { TForm1 }
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);
@ -49,8 +52,5 @@ begin
CurrencyEdit1.Invalidate; CurrencyEdit1.Invalidate;
end; end;
initialization
{$I unit1.lrs}
end. end.

14
components/rx/tooledit.lrs
View File

@ -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
]);

4
components/rx/tooledit.pas
View File

@ -220,6 +220,8 @@ implementation
uses lclintf, LCLStrConsts, rxconst, rxstrutils, LResources, Forms, LCLProc, uses lclintf, LCLStrConsts, rxconst, rxstrutils, LResources, Forms, LCLProc,
variants; variants;
{$R tooledit.res}
type type
TPopupCalendarAccess = class(TPopupCalendar) TPopupCalendarAccess = class(TPopupCalendar)
end; end;
@ -894,7 +896,9 @@ begin
SetDate(DateValue); SetDate(DateValue);
end; end;
(*
initialization initialization
{$I tooledit.lrs} {$I tooledit.lrs}
*)
end. end.

BIN
components/rx/tooledit.res Normal file
View File

Binary file not shown.