You've already forked lazarus-ccr
add property text for RxDBLockupCombo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@959 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
BIN
components/rx/Demos/RxDateEdit/project1.ico
Normal file
BIN
components/rx/Demos/RxDateEdit/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
277
components/rx/Demos/RxDateEdit/project1.lpi
Normal file
277
components/rx/Demos/RxDateEdit/project1.lpi
Normal file
@@ -0,0 +1,277 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=""/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="1"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="rxnew"/>
|
||||||
|
<MinVersion Major="2" Minor="1" Release="1" Build="103" Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="19">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="project1"/>
|
||||||
|
<CursorPos X="22" Y="21"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit1"/>
|
||||||
|
<CursorPos X="22" Y="9"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/curredit.pas"/>
|
||||||
|
<UnitName Value="curredit"/>
|
||||||
|
<CursorPos X="1" Y="485"/>
|
||||||
|
<TopLine Value="469"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/tooledit.pas"/>
|
||||||
|
<UnitName Value="tooledit"/>
|
||||||
|
<CursorPos X="1" Y="303"/>
|
||||||
|
<TopLine Value="287"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rx.inc"/>
|
||||||
|
<CursorPos X="20" Y="11"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/maskedit.pp"/>
|
||||||
|
<UnitName Value="MaskEdit"/>
|
||||||
|
<CursorPos X="30" Y="145"/>
|
||||||
|
<TopLine Value="149"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/stdctrls.pp"/>
|
||||||
|
<UnitName Value="StdCtrls"/>
|
||||||
|
<CursorPos X="3" Y="693"/>
|
||||||
|
<TopLine Value="677"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/controls.pp"/>
|
||||||
|
<UnitName Value="Controls"/>
|
||||||
|
<CursorPos X="15" Y="1736"/>
|
||||||
|
<TopLine Value="1720"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/wincontrol.inc"/>
|
||||||
|
<CursorPos X="1" Y="5013"/>
|
||||||
|
<TopLine Value="4997"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit8>
|
||||||
|
<Unit9>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/dbctrls.pp"/>
|
||||||
|
<UnitName Value="DbCtrls"/>
|
||||||
|
<CursorPos X="15" Y="212"/>
|
||||||
|
<TopLine Value="196"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit9>
|
||||||
|
<Unit10>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/dbedit.inc"/>
|
||||||
|
<CursorPos X="3" Y="265"/>
|
||||||
|
<TopLine Value="263"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit10>
|
||||||
|
<Unit11>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/graphics.pp"/>
|
||||||
|
<UnitName Value="Graphics"/>
|
||||||
|
<CursorPos X="15" Y="1115"/>
|
||||||
|
<TopLine Value="1099"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit11>
|
||||||
|
<Unit12>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/canvas.inc"/>
|
||||||
|
<CursorPos X="1" Y="1073"/>
|
||||||
|
<TopLine Value="1057"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit12>
|
||||||
|
<Unit13>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/control.inc"/>
|
||||||
|
<CursorPos X="1" Y="1631"/>
|
||||||
|
<TopLine Value="1615"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit13>
|
||||||
|
<Unit14>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/lclmessageglue.pas"/>
|
||||||
|
<UnitName Value="LCLMessageGlue"/>
|
||||||
|
<CursorPos X="1" Y="121"/>
|
||||||
|
<TopLine Value="105"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit14>
|
||||||
|
<Unit15>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkproc.inc"/>
|
||||||
|
<CursorPos X="1" Y="3712"/>
|
||||||
|
<TopLine Value="3696"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit15>
|
||||||
|
<Unit16>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkcallback.inc"/>
|
||||||
|
<CursorPos X="1" Y="676"/>
|
||||||
|
<TopLine Value="660"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit16>
|
||||||
|
<Unit17>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/interfaces/gtk/gtkwidgetset.inc"/>
|
||||||
|
<CursorPos X="1" Y="1226"/>
|
||||||
|
<TopLine Value="1200"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit17>
|
||||||
|
<Unit18>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<UnitName Value="dbdateedit"/>
|
||||||
|
<CursorPos X="1" Y="227"/>
|
||||||
|
<TopLine Value="211"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit18>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="16" HistoryIndex="15">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/curredit.pas"/>
|
||||||
|
<Caret Line="485" Column="1" TopLine="469"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="19" Column="19" TopLine="28"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="46" Column="1" TopLine="28"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="18" Column="22" TopLine="8"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="224" Column="3" TopLine="222"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="46" Column="1" TopLine="28"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="47" Column="1" TopLine="28"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="227" Column="1" TopLine="211"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="228" Column="1" TopLine="212"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="233" Column="1" TopLine="217"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="227" Column="1" TopLine="211"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="228" Column="1" TopLine="212"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbdateedit.pas"/>
|
||||||
|
<Caret Line="233" Column="1" TopLine="217"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="46" Column="26" TopLine="28"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="20" Column="25" TopLine="20"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<Caret Line="22" Column="20" TopLine="20"/>
|
||||||
|
</Position16>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
26
components/rx/Demos/RxDateEdit/project1.lpr
Normal file
26
components/rx/Demos/RxDateEdit/project1.lpr
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms,
|
||||||
|
Unit1,
|
||||||
|
LResources,
|
||||||
|
sysutils
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
|
||||||
|
|
||||||
|
begin
|
||||||
|
{$I project1.lrs}
|
||||||
|
ShortDateFormat:='dd.mm.yyyy';
|
||||||
|
DateSeparator:='.';
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
5237
components/rx/Demos/RxDateEdit/project1.lrs
Normal file
5237
components/rx/Demos/RxDateEdit/project1.lrs
Normal file
File diff suppressed because it is too large
Load Diff
17
components/rx/Demos/RxDateEdit/project1.manifest
Normal file
17
components/rx/Demos/RxDateEdit/project1.manifest
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||||
|
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||||
|
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
|
||||||
|
<description>Your application description here.</description>
|
||||||
|
<dependency>
|
||||||
|
<dependentAssembly>
|
||||||
|
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
|
||||||
|
</dependentAssembly>
|
||||||
|
</dependency>
|
||||||
|
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||||
|
<security>
|
||||||
|
<requestedPrivileges>
|
||||||
|
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||||
|
</requestedPrivileges>
|
||||||
|
</security>
|
||||||
|
</trustInfo>
|
||||||
|
</assembly>
|
||||||
7
components/rx/Demos/RxDateEdit/project1.rc
Normal file
7
components/rx/Demos/RxDateEdit/project1.rc
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
#define RT_MANIFEST 24
|
||||||
|
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
|
||||||
|
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
|
||||||
|
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
|
||||||
|
|
||||||
|
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
|
||||||
|
MAINICON ICON "project1.ico"
|
||||||
116
components/rx/Demos/RxDateEdit/unit1.lfm
Normal file
116
components/rx/Demos/RxDateEdit/unit1.lfm
Normal file
@@ -0,0 +1,116 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 608
|
||||||
|
Height = 300
|
||||||
|
Top = 495
|
||||||
|
Width = 400
|
||||||
|
Caption = 'Form1'
|
||||||
|
ClientHeight = 300
|
||||||
|
ClientWidth = 400
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '0.9.29'
|
||||||
|
object Label1: TLabel
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
Left = 6
|
||||||
|
Height = 18
|
||||||
|
Top = 6
|
||||||
|
Width = 46
|
||||||
|
BorderSpacing.Left = 6
|
||||||
|
BorderSpacing.Top = 6
|
||||||
|
Caption = 'Label1'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = DBDateEdit1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 18
|
||||||
|
Top = 63
|
||||||
|
Width = 93
|
||||||
|
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
|
||||||
|
Width = 148
|
||||||
|
Alignment = taCenter
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
MaxValue = 0
|
||||||
|
MinValue = 0
|
||||||
|
TabOrder = 1
|
||||||
|
Value = 0
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 248
|
||||||
|
Height = 29
|
||||||
|
Top = 80
|
||||||
|
Width = 76
|
||||||
|
AutoSize = True
|
||||||
|
Caption = 'Invalidate'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object dsData: TDatasource
|
||||||
|
DataSet = rxData
|
||||||
|
left = 264
|
||||||
|
top = 21
|
||||||
|
end
|
||||||
|
object rxData: TRxMemoryData
|
||||||
|
FieldDefs = <
|
||||||
|
item
|
||||||
|
Name = 'DOC_DATE'
|
||||||
|
DataType = ftDate
|
||||||
|
Precision = 0
|
||||||
|
Size = 0
|
||||||
|
end>
|
||||||
|
left = 304
|
||||||
|
top = 21
|
||||||
|
object rxDataDOC_DATE: TDateField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldKind = fkData
|
||||||
|
FieldName = 'DOC_DATE'
|
||||||
|
Index = 0
|
||||||
|
LookupCache = False
|
||||||
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||||
|
ReadOnly = False
|
||||||
|
Required = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
43
components/rx/Demos/RxDateEdit/unit1.lrs
Normal file
43
components/rx/Demos/RxDateEdit/unit1.lrs
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
LazarusResources.Add('TForm1','FORMDATA',[
|
||||||
|
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'`'#2#6'Height'#3','#1#3'Top'#3#239#1#5'Wi'
|
||||||
|
+'dth'#3#144#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'ClientWidth'#3
|
||||||
|
+#144#1#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6
|
||||||
|
+'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
|
||||||
|
+'Owner'#4'Left'#2#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'.'#18'BorderSpacing'
|
||||||
|
+'.Left'#2#6#17'BorderSpacing.Top'#2#6#7'Caption'#6#6'Label1'#11'ParentColor'
|
||||||
|
+#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSi'
|
||||||
|
+'deTop.Control'#7#11'DBDateEdit1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Le'
|
||||||
|
+'ft'#2#6#6'Height'#2#18#3'Top'#2'?'#5'Width'#2']'#20'BorderSpacing.Around'#2
|
||||||
|
+#6#7'Caption'#6#13'Currency edit'#11'ParentColor'#8#0#0#11'TDBDateEdit'#11'D'
|
||||||
|
+'BDateEdit1'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Control'
|
||||||
|
+#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2
|
||||||
|
+#27#3'Top'#2#30#5'Width'#3#148#0#18'BorderSpacing.Left'#2#6#17'BorderSpacing'
|
||||||
|
+'.Top'#2#6#11'ButtonWidth'#2#23#7'Enabled'#8#10'Glyph.Data'#10':'#1#0#0'6'#1
|
||||||
|
+#0#0'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'#127#0
|
||||||
|
+#0#221#255#255#255#255#255'G'#215#253#255#253#255#253#127#0#0#221#240#0#240#0
|
||||||
|
+#143'G'#215#247'w'#215'w'#223#127#0#0#221#255#15#248#248#15'G'#215#253#127
|
||||||
|
+#221#221#127#127#0#0#221#255#15#255#255#15'G'#215#253#127#221#255'}'#127#0#0
|
||||||
|
+#221#255#15#240#0#143'G'#215#253#127#215'w'#221#127#0#0#221#240#15#240#255
|
||||||
|
+#255'G'#215#247#127#215#255#255#127#0#0#221#255#15#240#0#15'G'#215#253'}'#215
|
||||||
|
+'w}'#127#0#0#221#255#255#255#255#255'G'#215#253#221#221#221#221#127#0#0#221
|
||||||
|
+#248#136#136#136#143'G'#215#255#255#255#255#255#127#0#0#221#0#0#0#0#0#221#215
|
||||||
|
+'wwwww}'#0#0#9'NumGlyphs'#2#2#10'PopupColor'#7#8'clWindow'#8'TabOrder'#2#0#9
|
||||||
|
+'DataField'#6#8'DOC_DATE'#10'DataSource'#7#6'dsData'#0#0#13'TCurrencyEdit'#13
|
||||||
|
+'CurrencyEdit1'#22'AnchorSideLeft.Control'#7#6'Label2'#21'AnchorSideTop.Cont'
|
||||||
|
+'rol'#7#6'Label2'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heigh'
|
||||||
|
+'t'#2#27#3'Top'#2'W'#5'Width'#3#148#0#9'Alignment'#7#8'taCenter'#20'BorderSp'
|
||||||
|
+'acing.Around'#2#6#8'MaxValue'#2#0#8'MinValue'#2#0#8'TabOrder'#2#1#5'Value'#2
|
||||||
|
+#0#0#0#7'TButton'#7'Button1'#4'Left'#3#248#0#6'Height'#2#29#3'Top'#2'P'#5'Wi'
|
||||||
|
+'dth'#2'L'#8'AutoSize'#9#7'Caption'#6#10'Invalidate'#7'OnClick'#7#12'Button1'
|
||||||
|
+'Click'#8'TabOrder'#2#2#0#0#11'TDatasource'#6'dsData'#7'DataSet'#7#6'rxData'
|
||||||
|
+#4'left'#3#8#1#3'top'#2#21#0#0#13'TRxMemoryData'#6'rxData'#9'FieldDefs'#14#1
|
||||||
|
+#4'Name'#6#8'DOC_DATE'#8'DataType'#7#6'ftDate'#9'Precision'#2#0#4'Size'#2#0#0
|
||||||
|
+#0#4'left'#3'0'#1#3'top'#2#21#0#10'TDateField'#14'rxDataDOC_DATE'#12'Display'
|
||||||
|
+'Width'#2#10#9'FieldKind'#7#6'fkData'#9'FieldName'#6#8'DOC_DATE'#5'Index'#2#0
|
||||||
|
+#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9'pfInWhere'#0#8'Read'
|
||||||
|
+'Only'#8#8'Required'#8#0#0#0#0
|
||||||
|
]);
|
||||||
56
components/rx/Demos/RxDateEdit/unit1.pas
Normal file
56
components/rx/Demos/RxDateEdit/unit1.pas
Normal file
@@ -0,0 +1,56 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
|
||||||
|
Dialogs, StdCtrls, rxmemds, dbdateedit, curredit;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
CurrencyEdit1: TCurrencyEdit;
|
||||||
|
DBDateEdit1: TDBDateEdit;
|
||||||
|
dsData: TDatasource;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
rxData: TRxMemoryData;
|
||||||
|
rxDataDOC_DATE: TDateField;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
rxData.Open;
|
||||||
|
rxData.Append;
|
||||||
|
rxDataDOC_DATE.AsDateTime:=Now;
|
||||||
|
CurrencyEdit1.Value:=1214.55
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrencyEdit1.Invalidate;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I unit1.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
BIN
components/rx/Demos/RxLookup/project1.ico
Normal file
BIN
components/rx/Demos/RxLookup/project1.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 134 KiB |
278
components/rx/Demos/RxLookup/project1.lpi
Normal file
278
components/rx/Demos/RxLookup/project1.lpi
Normal file
@@ -0,0 +1,278 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="7"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<TargetFileExt Value=""/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<ActiveEditorIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<VersionInfo>
|
||||||
|
<ProjectVersion Value=""/>
|
||||||
|
<Language Value=""/>
|
||||||
|
<CharSet Value=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IgnoreBinaries Value="False"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="3">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="FCL"/>
|
||||||
|
<MinVersion Major="1" Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="rxnew"/>
|
||||||
|
<MinVersion Major="2" Minor="1" Release="1" Build="103" Valid="True"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item3>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="9">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="project1.lpr"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="project1"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="unit1.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="Unit1"/>
|
||||||
|
<CursorPos X="3" Y="54"/>
|
||||||
|
<TopLine Value="25"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<UsageCount Value="22"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<UnitName Value="rxlookup"/>
|
||||||
|
<CursorPos X="19" Y="646"/>
|
||||||
|
<TopLine Value="645"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Bookmarks Count="1">
|
||||||
|
<Item0 X="1" Y="1315" ID="1"/>
|
||||||
|
</Bookmarks>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/controls.pp"/>
|
||||||
|
<UnitName Value="Controls"/>
|
||||||
|
<CursorPos X="1" Y="1152"/>
|
||||||
|
<TopLine Value="1135"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/control.inc"/>
|
||||||
|
<CursorPos X="1" Y="4129"/>
|
||||||
|
<TopLine Value="4113"/>
|
||||||
|
<EditorIndex Value="6"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxpopupunit.pas"/>
|
||||||
|
<UnitName Value="rxpopupunit"/>
|
||||||
|
<CursorPos X="1" Y="785"/>
|
||||||
|
<TopLine Value="770"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxdconst.pas"/>
|
||||||
|
<UnitName Value="rxdconst"/>
|
||||||
|
<CursorPos X="3" Y="68"/>
|
||||||
|
<TopLine Value="77"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/lcl/include/wincontrol.inc"/>
|
||||||
|
<CursorPos X="1" Y="7579"/>
|
||||||
|
<TopLine Value="7563"/>
|
||||||
|
<EditorIndex Value="7"/>
|
||||||
|
<UsageCount Value="11"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<UnitName Value="dbutils"/>
|
||||||
|
<CursorPos X="1" Y="326"/>
|
||||||
|
<TopLine Value="310"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit8>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="225" Column="1" TopLine="209"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="227" Column="1" TopLine="211"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="340" Column="1" TopLine="324"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="341" Column="1" TopLine="325"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="342" Column="1" TopLine="326"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="344" Column="1" TopLine="328"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="345" Column="1" TopLine="329"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="346" Column="1" TopLine="330"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="232" Column="1" TopLine="216"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="227" Column="1" TopLine="211"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="229" Column="1" TopLine="213"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="230" Column="1" TopLine="214"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="235" Column="1" TopLine="219"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="315" Column="1" TopLine="299"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="318" Column="1" TopLine="302"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="321" Column="1" TopLine="305"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="322" Column="1" TopLine="306"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="323" Column="1" TopLine="307"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="324" Column="1" TopLine="308"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/dbutils.pas"/>
|
||||||
|
<Caret Line="326" Column="1" TopLine="310"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1331" Column="1" TopLine="1315"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1332" Column="1" TopLine="1316"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1445" Column="1" TopLine="1429"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1447" Column="1" TopLine="1431"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1448" Column="1" TopLine="1432"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1451" Column="1" TopLine="1435"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1454" Column="1" TopLine="1438"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1333" Column="1" TopLine="1317"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1059" Column="1" TopLine="1043"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="../../../../../../../../usr/local/share/lazarus/components/rxnew/rxlookup.pas"/>
|
||||||
|
<Caret Line="1060" Column="1" TopLine="1044"/>
|
||||||
|
</Position30>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="8"/>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)/"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
21
components/rx/Demos/RxLookup/project1.lpr
Normal file
21
components/rx/Demos/RxLookup/project1.lpr
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
program project1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, Unit1, rxnew, LResources
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
|
||||||
|
|
||||||
|
begin
|
||||||
|
{$I project1.lrs}
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
5237
components/rx/Demos/RxLookup/project1.lrs
Normal file
5237
components/rx/Demos/RxLookup/project1.lrs
Normal file
File diff suppressed because it is too large
Load Diff
17
components/rx/Demos/RxLookup/project1.manifest
Normal file
17
components/rx/Demos/RxLookup/project1.manifest
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||||
|
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
|
||||||
|
<assemblyIdentity version="1.0.0.0" processorArchitecture="*" name="CompanyName.ProductName.YourApp" type="win32"/>
|
||||||
|
<description>Your application description here.</description>
|
||||||
|
<dependency>
|
||||||
|
<dependentAssembly>
|
||||||
|
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" processorArchitecture="*" publicKeyToken="6595b64144ccf1df" language="*"/>
|
||||||
|
</dependentAssembly>
|
||||||
|
</dependency>
|
||||||
|
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||||
|
<security>
|
||||||
|
<requestedPrivileges>
|
||||||
|
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
|
||||||
|
</requestedPrivileges>
|
||||||
|
</security>
|
||||||
|
</trustInfo>
|
||||||
|
</assembly>
|
||||||
7
components/rx/Demos/RxLookup/project1.rc
Normal file
7
components/rx/Demos/RxLookup/project1.rc
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
#define RT_MANIFEST 24
|
||||||
|
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
|
||||||
|
#define ISOLATIONAWARE_MANIFEST_RESOURCE_ID 2
|
||||||
|
#define ISOLATIONAWARE_NOSTATICIMPORT_MANIFEST_RESOURCE_ID 3
|
||||||
|
|
||||||
|
CREATEPROCESS_MANIFEST_RESOURCE_ID RT_MANIFEST "project1.manifest"
|
||||||
|
MAINICON ICON "project1.ico"
|
||||||
213
components/rx/Demos/RxLookup/unit1.lfm
Normal file
213
components/rx/Demos/RxLookup/unit1.lfm
Normal file
@@ -0,0 +1,213 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 534
|
||||||
|
Height = 368
|
||||||
|
Top = 234
|
||||||
|
Width = 498
|
||||||
|
ActiveControl = RxDBLookupCombo1
|
||||||
|
Caption = 'RxDBLookupCombo test'
|
||||||
|
ClientHeight = 368
|
||||||
|
ClientWidth = 498
|
||||||
|
OnCreate = FormCreate
|
||||||
|
LCLVersion = '0.9.29'
|
||||||
|
object Label1: TLabel
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Owner
|
||||||
|
Left = 6
|
||||||
|
Height = 18
|
||||||
|
Top = 6
|
||||||
|
Width = 90
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Select item...'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
AnchorSideLeft.Control = Button1
|
||||||
|
AnchorSideLeft.Side = asrBottom
|
||||||
|
AnchorSideTop.Control = Button1
|
||||||
|
AnchorSideTop.Side = asrCenter
|
||||||
|
Left = 108
|
||||||
|
Height = 18
|
||||||
|
Top = 70
|
||||||
|
Width = 46
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Label2'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object RxDBLookupCombo1: TRxDBLookupCombo
|
||||||
|
AnchorSideLeft.Control = Label1
|
||||||
|
AnchorSideTop.Control = Label1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 12
|
||||||
|
Height = 29
|
||||||
|
Top = 30
|
||||||
|
Width = 480
|
||||||
|
AutoSize = True
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
ButtonOnlyWhenFocused = False
|
||||||
|
ButtonWidth = 15
|
||||||
|
DataField = 'ID'
|
||||||
|
DataSource = dsData1
|
||||||
|
PopUpFormOptions.Columns = <>
|
||||||
|
Flat = False
|
||||||
|
Glyph.Data = {
|
||||||
|
72000000424D7200000000000000360000002800000005000000030000000100
|
||||||
|
2000000000003C00000064000000640000000000000000000000000000000000
|
||||||
|
0000000000FF000000000000000000000000000000FF000000FF000000FF0000
|
||||||
|
0000000000FF000000FF000000FF000000FF000000FF
|
||||||
|
}
|
||||||
|
NumGlyphs = 1
|
||||||
|
ParentColor = False
|
||||||
|
ReadOnly = False
|
||||||
|
TabOrder = 0
|
||||||
|
TabStop = True
|
||||||
|
DisplayAllFields = True
|
||||||
|
LookupDisplay = 'ID;Price;Caption'
|
||||||
|
LookupDisplayIndex = 2
|
||||||
|
LookupField = 'ID'
|
||||||
|
LookupSource = dsLookUpData
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = RxDBLookupCombo1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
Left = 6
|
||||||
|
Height = 29
|
||||||
|
Top = 65
|
||||||
|
Width = 96
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Test caption'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object Button2: TButton
|
||||||
|
AnchorSideTop.Control = Button1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = Owner
|
||||||
|
AnchorSideRight.Side = asrBottom
|
||||||
|
Left = 427
|
||||||
|
Height = 29
|
||||||
|
Top = 100
|
||||||
|
Width = 65
|
||||||
|
Anchors = [akTop, akRight]
|
||||||
|
AutoSize = True
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
Caption = 'Set text'
|
||||||
|
OnClick = Button2Click
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object Edit1: TEdit
|
||||||
|
AnchorSideLeft.Control = Owner
|
||||||
|
AnchorSideTop.Control = Button1
|
||||||
|
AnchorSideTop.Side = asrBottom
|
||||||
|
AnchorSideRight.Control = Button2
|
||||||
|
Left = 6
|
||||||
|
Height = 27
|
||||||
|
Top = 100
|
||||||
|
Width = 415
|
||||||
|
Anchors = [akTop, akLeft, akRight]
|
||||||
|
BorderSpacing.Around = 6
|
||||||
|
TabOrder = 3
|
||||||
|
Text = 'Edit1'
|
||||||
|
end
|
||||||
|
object DBGrid1: TDBGrid
|
||||||
|
Left = 0
|
||||||
|
Height = 208
|
||||||
|
Top = 160
|
||||||
|
Width = 498
|
||||||
|
Align = alBottom
|
||||||
|
DataSource = dsLookUpData
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object rxData1: TRxMemoryData
|
||||||
|
FieldDefs = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = ftInteger
|
||||||
|
Precision = 0
|
||||||
|
Size = 0
|
||||||
|
end>
|
||||||
|
left = 320
|
||||||
|
top = 8
|
||||||
|
object rxData1ID: TLongintField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldKind = fkData
|
||||||
|
FieldName = 'ID'
|
||||||
|
Index = 0
|
||||||
|
LookupCache = False
|
||||||
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||||
|
ReadOnly = False
|
||||||
|
Required = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object rxLookUpData: TRxMemoryData
|
||||||
|
FieldDefs = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = ftInteger
|
||||||
|
Precision = 0
|
||||||
|
Size = 0
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Caption'
|
||||||
|
DataType = ftString
|
||||||
|
Precision = 0
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'Price'
|
||||||
|
DataType = ftCurrency
|
||||||
|
Precision = 0
|
||||||
|
Size = 0
|
||||||
|
end>
|
||||||
|
left = 208
|
||||||
|
top = 56
|
||||||
|
object rxLookUpDataID: TLongintField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldKind = fkData
|
||||||
|
FieldName = 'ID'
|
||||||
|
Index = 0
|
||||||
|
LookupCache = False
|
||||||
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||||
|
ReadOnly = False
|
||||||
|
Required = False
|
||||||
|
end
|
||||||
|
object rxLookUpDataCaption: TStringField
|
||||||
|
DisplayWidth = 100
|
||||||
|
FieldKind = fkData
|
||||||
|
FieldName = 'Caption'
|
||||||
|
Index = 1
|
||||||
|
LookupCache = False
|
||||||
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||||
|
ReadOnly = False
|
||||||
|
Required = False
|
||||||
|
Size = 100
|
||||||
|
end
|
||||||
|
object rxLookUpDataPrice: TCurrencyField
|
||||||
|
DisplayWidth = 10
|
||||||
|
FieldKind = fkData
|
||||||
|
FieldName = 'Price'
|
||||||
|
Index = 2
|
||||||
|
LookupCache = False
|
||||||
|
ProviderFlags = [pfInUpdate, pfInWhere]
|
||||||
|
ReadOnly = False
|
||||||
|
Required = False
|
||||||
|
MaxValue = 0
|
||||||
|
MinValue = 0
|
||||||
|
Precision = 2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dsData1: TDatasource
|
||||||
|
DataSet = rxData1
|
||||||
|
left = 288
|
||||||
|
top = 8
|
||||||
|
end
|
||||||
|
object dsLookUpData: TDatasource
|
||||||
|
DataSet = rxLookUpData
|
||||||
|
left = 176
|
||||||
|
top = 56
|
||||||
|
end
|
||||||
|
end
|
||||||
64
components/rx/Demos/RxLookup/unit1.lrs
Normal file
64
components/rx/Demos/RxLookup/unit1.lrs
Normal file
@@ -0,0 +1,64 @@
|
|||||||
|
LazarusResources.Add('TForm1','FORMDATA',[
|
||||||
|
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#22#2#6'Height'#3'p'#1#3'Top'#3#234#0#5'Wi'
|
||||||
|
+'dth'#3#242#1#13'ActiveControl'#7#16'RxDBLookupCombo1'#7'Caption'#6#20'RxDBL'
|
||||||
|
+'ookupCombo test'#12'ClientHeight'#3'p'#1#11'ClientWidth'#3#242#1#8'OnCreate'
|
||||||
|
+#7#10'FormCreate'#10'LCLVersion'#6#6'0.9.29'#0#6'TLabel'#6'Label1'#22'Anchor'
|
||||||
|
+'SideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2
|
||||||
|
+#6#6'Height'#2#18#3'Top'#2#6#5'Width'#2'Z'#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||||
|
+'ption'#6#14'Select item...'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'An'
|
||||||
|
+'chorSideLeft.Control'#7#7'Button1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
|
||||||
|
+'AnchorSideTop.Control'#7#7'Button1'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
|
||||||
|
+'Left'#2'l'#6'Height'#2#18#3'Top'#2'F'#5'Width'#2'.'#20'BorderSpacing.Around'
|
||||||
|
+#2#6#7'Caption'#6#6'Label2'#11'ParentColor'#8#0#0#16'TRxDBLookupCombo'#16'Rx'
|
||||||
|
+'DBLookupCombo1'#22'AnchorSideLeft.Control'#7#6'Label1'#21'AnchorSideTop.Con'
|
||||||
|
+'trol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.'
|
||||||
|
+'Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6
|
||||||
|
+'Height'#2#29#3'Top'#2#30#5'Width'#3#224#1#8'AutoSize'#9#7'Anchors'#11#5'akT'
|
||||||
|
+'op'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#21'ButtonOnlyWhenFo'
|
||||||
|
+'cused'#8#11'ButtonWidth'#2#15#9'DataField'#6#2'ID'#10'DataSource'#7#7'dsDat'
|
||||||
|
+'a1'#24'PopUpFormOptions.Columns'#14#0#4'Flat'#8#10'Glyph.Data'#10'v'#0#0#0
|
||||||
|
+'r'#0#0#0'BMr'#0#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#5#0#0#0#3#0#0#0#1#0' '#0#0#0#0
|
||||||
|
+#0'<'#0#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0
|
||||||
|
+#0#0#0#0#0#0#0#0#0#0#0#0#255#0#0#0#255#0#0#0#255#0#0#0#0#0#0#0#255#0#0#0#255
|
||||||
|
+#0#0#0#255#0#0#0#255#0#0#0#255#9'NumGlyphs'#2#1#11'ParentColor'#8#8'ReadOnly'
|
||||||
|
+#8#8'TabOrder'#2#0#7'TabStop'#9#16'DisplayAllFields'#9#13'LookupDisplay'#6#16
|
||||||
|
+'ID;Price;Caption'#18'LookupDisplayIndex'#2#2#11'LookupField'#6#2'ID'#12'Loo'
|
||||||
|
+'kupSource'#7#12'dsLookUpData'#0#0#7'TButton'#7'Button1'#22'AnchorSideLeft.C'
|
||||||
|
+'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#16'RxDBLookupCombo1'#18'Anch'
|
||||||
|
+'orSideTop.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3'Top'#2'A'#5'Wid'
|
||||||
|
+'th'#2'`'#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#12'Test ca'
|
||||||
|
+'ption'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#0#0#7'TButton'#7'Butto'
|
||||||
|
+'n2'#21'AnchorSideTop.Control'#7#7'Button1'#18'AnchorSideTop.Side'#7#9'asrBo'
|
||||||
|
+'ttom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'a'
|
||||||
|
+'srBottom'#4'Left'#3#171#1#6'Height'#2#29#3'Top'#2'd'#5'Width'#2'A'#7'Anchor'
|
||||||
|
+'s'#11#5'akTop'#7'akRight'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Ca'
|
||||||
|
+'ption'#6#8'Set text'#7'OnClick'#7#12'Button2Click'#8'TabOrder'#2#2#0#0#5'TE'
|
||||||
|
+'dit'#5'Edit1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Contro'
|
||||||
|
+'l'#7#7'Button1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Co'
|
||||||
|
+'ntrol'#7#7'Button2'#4'Left'#2#6#6'Height'#2#27#3'Top'#2'd'#5'Width'#3#159#1
|
||||||
|
+#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#6#8
|
||||||
|
+'TabOrder'#2#3#4'Text'#6#5'Edit1'#0#0#7'TDBGrid'#7'DBGrid1'#4'Left'#2#0#6'He'
|
||||||
|
+'ight'#3#208#0#3'Top'#3#160#0#5'Width'#3#242#1#5'Align'#7#8'alBottom'#10'Dat'
|
||||||
|
+'aSource'#7#12'dsLookUpData'#8'TabOrder'#2#4#0#0#13'TRxMemoryData'#7'rxData1'
|
||||||
|
+#9'FieldDefs'#14#1#4'Name'#6#2'ID'#8'DataType'#7#9'ftInteger'#9'Precision'#2
|
||||||
|
+#0#4'Size'#2#0#0#0#4'left'#3'@'#1#3'top'#2#8#0#13'TLongintField'#9'rxData1ID'
|
||||||
|
+#12'DisplayWidth'#2#10#9'FieldKind'#7#6'fkData'#9'FieldName'#6#2'ID'#5'Index'
|
||||||
|
+#2#0#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9'pfInWhere'#0#8
|
||||||
|
+'ReadOnly'#8#8'Required'#8#0#0#0#13'TRxMemoryData'#12'rxLookUpData'#9'FieldD'
|
||||||
|
+'efs'#14#1#4'Name'#6#2'ID'#8'DataType'#7#9'ftInteger'#9'Precision'#2#0#4'Siz'
|
||||||
|
+'e'#2#0#0#1#4'Name'#6#7'Caption'#8'DataType'#7#8'ftString'#9'Precision'#2#0#4
|
||||||
|
+'Size'#2'd'#0#1#4'Name'#6#5'Price'#8'DataType'#7#10'ftCurrency'#9'Precision'
|
||||||
|
+#2#0#4'Size'#2#0#0#0#4'left'#3#208#0#3'top'#2'8'#0#13'TLongintField'#14'rxLo'
|
||||||
|
+'okUpDataID'#12'DisplayWidth'#2#10#9'FieldKind'#7#6'fkData'#9'FieldName'#6#2
|
||||||
|
+'ID'#5'Index'#2#0#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9'pf'
|
||||||
|
+'InWhere'#0#8'ReadOnly'#8#8'Required'#8#0#0#12'TStringField'#19'rxLookUpData'
|
||||||
|
+'Caption'#12'DisplayWidth'#2'd'#9'FieldKind'#7#6'fkData'#9'FieldName'#6#7'Ca'
|
||||||
|
+'ption'#5'Index'#2#1#11'LookupCache'#8#13'ProviderFlags'#11#10'pfInUpdate'#9
|
||||||
|
+'pfInWhere'#0#8'ReadOnly'#8#8'Required'#8#4'Size'#2'd'#0#0#14'TCurrencyField'
|
||||||
|
+#17'rxLookUpDataPrice'#12'DisplayWidth'#2#10#9'FieldKind'#7#6'fkData'#9'Fiel'
|
||||||
|
+'dName'#6#5'Price'#5'Index'#2#2#11'LookupCache'#8#13'ProviderFlags'#11#10'pf'
|
||||||
|
+'InUpdate'#9'pfInWhere'#0#8'ReadOnly'#8#8'Required'#8#8'MaxValue'#2#0#8'MinV'
|
||||||
|
+'alue'#2#0#9'Precision'#2#2#0#0#0#11'TDatasource'#7'dsData1'#7'DataSet'#7#7
|
||||||
|
+'rxData1'#4'left'#3' '#1#3'top'#2#8#0#0#11'TDatasource'#12'dsLookUpData'#7'D'
|
||||||
|
+'ataSet'#7#12'rxLookUpData'#4'left'#3#176#0#3'top'#2'8'#0#0#0
|
||||||
|
]);
|
||||||
76
components/rx/Demos/RxLookup/unit1.pas
Normal file
76
components/rx/Demos/RxLookup/unit1.pas
Normal file
@@ -0,0 +1,76 @@
|
|||||||
|
unit Unit1;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
|
||||||
|
Dialogs, StdCtrls, DBGrids, rxlookup, rxmemds;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
Button2: TButton;
|
||||||
|
DBGrid1: TDBGrid;
|
||||||
|
dsData1: TDatasource;
|
||||||
|
dsLookUpData: TDatasource;
|
||||||
|
Edit1: TEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
rxData1ID: TLongintField;
|
||||||
|
RxDBLookupCombo1: TRxDBLookupCombo;
|
||||||
|
rxData1: TRxMemoryData;
|
||||||
|
rxLookUpData: TRxMemoryData;
|
||||||
|
rxLookUpDataCaption: TStringField;
|
||||||
|
rxLookUpDataID: TLongintField;
|
||||||
|
rxLookUpDataPrice: TCurrencyField;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
procedure Button2Click(Sender: TObject);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Label2.Caption:=RxDBLookupCombo1.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
RxDBLookupCombo1.Text:=Edit1.Text;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TForm1.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
rxData1.Open;
|
||||||
|
rxData1.Append;
|
||||||
|
rxLookUpData.Open;
|
||||||
|
rxLookUpData.AppendRecord([1, 'Lazarus', 0]);
|
||||||
|
rxLookUpData.AppendRecord([2, 'Delphi', 1000]);
|
||||||
|
rxLookUpData.AppendRecord([3, 'MS Office', 400]);
|
||||||
|
rxLookUpData.AppendRecord([4, 'MS Windows XP', 150]);
|
||||||
|
rxLookUpData.AppendRecord([5, 'MS Windows Vista', 100]);
|
||||||
|
rxLookUpData.AppendRecord([6, 'MS Windows 7', 200]);
|
||||||
|
rxLookUpData.AppendRecord([7, 'Fedora Linux 11', 0]);
|
||||||
|
Label2.Caption:='';
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
{$I unit1.lrs}
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
@@ -57,6 +57,7 @@ type
|
|||||||
procedure DoEnter; override;
|
procedure DoEnter; override;
|
||||||
procedure DoExit; override;
|
procedure DoExit; override;
|
||||||
// procedure AcceptValue(const Value: Variant); override;
|
// procedure AcceptValue(const Value: Variant); override;
|
||||||
|
|
||||||
procedure Change; override;
|
procedure Change; override;
|
||||||
procedure ReformatEditText; dynamic;
|
procedure ReformatEditText; dynamic;
|
||||||
procedure DataChanged; virtual;
|
procedure DataChanged; virtual;
|
||||||
|
|||||||
@@ -34,6 +34,8 @@
|
|||||||
меню правого верхнего угла, фильтрация данных
|
меню правого верхнего угла, фильтрация данных
|
||||||
+ Начато написание документации в формета LazDoc
|
+ Начато написание документации в формета LazDoc
|
||||||
- Исправлено изменение цвета конца недели в RxDateEdit
|
- Исправлено изменение цвета конца недели в RxDateEdit
|
||||||
|
+ Добавлена демка для RxDBLookup
|
||||||
|
+ У объекта TRxDBLookupCombo опубликовано свойство Text - установка значения для него вызывает поиск по лукап-листу
|
||||||
22.05.2008 - версия 2.0.0.136 (svn revision 100)
|
22.05.2008 - версия 2.0.0.136 (svn revision 100)
|
||||||
+ У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
|
+ У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
|
||||||
+ У объекта TRxCustomDBLookupCombo ускорена отрисовка данных
|
+ У объекта TRxCustomDBLookupCombo ускорена отрисовка данных
|
||||||
|
|||||||
@@ -129,5 +129,3 @@ msgstr "Botones visibles"
|
|||||||
msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
|
msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
|
||||||
msgstr "Windows Iconos Ficheros (*.ico)|*.ico)|Todos los ficheros (*.*)|*.*"
|
msgstr "Windows Iconos Ficheros (*.ico)|*.ico)|Todos los ficheros (*.*)|*.*"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
msgid ""
|
msgid ""
|
||||||
msgstr "Content-Type: text/plain; charset=UTF-8"
|
msgstr "Content-Type: text/plain; charset=UTF-8"
|
||||||
|
|
||||||
#: rxdconst.sapptitlelabel
|
#: rxdconst.sapptitlelabel
|
||||||
@@ -409,5 +409,3 @@ msgstr "Entre su clave"
|
|||||||
msgid "&User name:"
|
msgid "&User name:"
|
||||||
msgstr "&Nombre usuario:"
|
msgstr "&Nombre usuario:"
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -216,6 +216,8 @@ type
|
|||||||
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
|
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
|
||||||
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
|
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
|
||||||
procedure Click; override;
|
procedure Click; override;
|
||||||
|
function RealGetText: TCaption; override;
|
||||||
|
procedure RealSetText(const Value: TCaption); override;
|
||||||
|
|
||||||
procedure Paint; override;
|
procedure Paint; override;
|
||||||
|
|
||||||
@@ -267,6 +269,7 @@ type
|
|||||||
public
|
public
|
||||||
property Value;
|
property Value;
|
||||||
property KeyValue;
|
property KeyValue;
|
||||||
|
property Text;
|
||||||
published
|
published
|
||||||
property AutoSize;
|
property AutoSize;
|
||||||
property Align;
|
property Align;
|
||||||
@@ -920,8 +923,6 @@ begin
|
|||||||
else
|
else
|
||||||
SetValueKey(FEmptyValue);
|
SetValueKey(FEmptyValue);
|
||||||
end
|
end
|
||||||
{else
|
|
||||||
SetValueKey(Field.AsString);}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TRxCustomDBLookupCombo.UpdateFieldValues;
|
procedure TRxCustomDBLookupCombo.UpdateFieldValues;
|
||||||
@@ -1121,11 +1122,6 @@ begin
|
|||||||
if (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN, VK_RETURN, VK_HOME, VK_END]) and PopupVisible then
|
if (Key in [VK_PRIOR, VK_NEXT, VK_UP, VK_DOWN, VK_RETURN, VK_HOME, VK_END]) and PopupVisible then
|
||||||
begin
|
begin
|
||||||
TPopUpFormAccess(FRxPopUpForm).KeyDown(Key, Shift);
|
TPopUpFormAccess(FRxPopUpForm).KeyDown(Key, Shift);
|
||||||
{ if Key=VK_RETURN then
|
|
||||||
HideList
|
|
||||||
else
|
|
||||||
Flist.KeyDown(Key, Shift);
|
|
||||||
Key := 0;}
|
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
if not PopupVisible then
|
if not PopupVisible then
|
||||||
@@ -1300,11 +1296,42 @@ begin
|
|||||||
DoButtonClick(Self);
|
DoButtonClick(Self);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TRxCustomDBLookupCombo.RealGetText: TCaption;
|
||||||
|
begin
|
||||||
|
if PopupVisible then
|
||||||
|
Result:=inherited RealGetText
|
||||||
|
else
|
||||||
|
if (FLookupDisplayIndex>=0) and (FLookupDisplayIndex < FValuesList.Count) then
|
||||||
|
Result:=FValuesList[FLookupDisplayIndex]
|
||||||
|
else
|
||||||
|
Result:='';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TRxCustomDBLookupCombo.RealSetText(const Value: TCaption);
|
||||||
|
var
|
||||||
|
LookFieldName:string;
|
||||||
|
begin
|
||||||
|
inherited RealSetText(Value);
|
||||||
|
if not PopupVisible then
|
||||||
|
begin
|
||||||
|
if Assigned(FLookupDataLink.DataSet) and (FLookupDataLink.DataSet.Active) then
|
||||||
|
begin
|
||||||
|
if (FLookupDisplayIndex>=0) and (FLookupDisplayIndex<FFieldList.Count) then
|
||||||
|
begin
|
||||||
|
LookFieldName:=FFieldList[FLookupDisplayIndex];
|
||||||
|
FSuccesfullyFind := FLocateObject.Locate(LookFieldName, Value, true, false);
|
||||||
|
if FSuccesfullyFind and Assigned(FKeyField) then
|
||||||
|
SetValue(FKeyField.AsString);
|
||||||
|
KeyValueChanged;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TRxCustomDBLookupCombo.Paint;
|
procedure TRxCustomDBLookupCombo.Paint;
|
||||||
var
|
var
|
||||||
Selected:boolean;
|
Selected:boolean;
|
||||||
R, R1: TRect;
|
R, R1: TRect;
|
||||||
// X: Integer;
|
|
||||||
AText: string;
|
AText: string;
|
||||||
begin
|
begin
|
||||||
Canvas.Font := Font;
|
Canvas.Font := Font;
|
||||||
|
|||||||
@@ -776,8 +776,6 @@ var
|
|||||||
begin
|
begin
|
||||||
FFindLine:=FFindLine + AChar;
|
FFindLine:=FFindLine + AChar;
|
||||||
if DatalinkActive then
|
if DatalinkActive then
|
||||||
{ if true then
|
|
||||||
begin}
|
|
||||||
if DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]) then
|
if DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]) then
|
||||||
begin
|
begin
|
||||||
TPopUpForm(Owner).WControl.Caption:=FFindLine;
|
TPopUpForm(Owner).WControl.Caption:=FFindLine;
|
||||||
@@ -785,9 +783,6 @@ begin
|
|||||||
end
|
end
|
||||||
else
|
else
|
||||||
FFindLine:=F;
|
FFindLine:=F;
|
||||||
{ end
|
|
||||||
else
|
|
||||||
DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]);}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPopUpGrid.FindPriorChar;
|
procedure TPopUpGrid.FindPriorChar;
|
||||||
@@ -819,11 +814,6 @@ begin
|
|||||||
TPopUpForm(Owner).WControl.Repaint;
|
TPopUpForm(Owner).WControl.Repaint;
|
||||||
DataSource.DataSet.First;
|
DataSource.DataSet.First;
|
||||||
end;
|
end;
|
||||||
{ if DatalinkActive then
|
|
||||||
if (FFindLine<>'') then
|
|
||||||
DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey])
|
|
||||||
else
|
|
||||||
DataSource.DataSet.First;}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TPopUpGrid.SetLookupDisplayIndex(const AValue: integer);
|
procedure TPopUpGrid.SetLookupDisplayIndex(const AValue: integer);
|
||||||
@@ -850,8 +840,6 @@ end;
|
|||||||
|
|
||||||
procedure TPopUpGrid.KeyDown(var Key: Word; Shift: TShiftState);
|
procedure TPopUpGrid.KeyDown(var Key: Word; Shift: TShiftState);
|
||||||
begin
|
begin
|
||||||
if true then
|
|
||||||
begin
|
|
||||||
if Key = VK_DELETE then
|
if Key = VK_DELETE then
|
||||||
begin
|
begin
|
||||||
ClearFind;
|
ClearFind;
|
||||||
@@ -872,27 +860,7 @@ begin
|
|||||||
TPopUpForm(Owner).WControl.Repaint;
|
TPopUpForm(Owner).WControl.Repaint;
|
||||||
end;
|
end;
|
||||||
inherited KeyDown(Key, Shift);
|
inherited KeyDown(Key, Shift);
|
||||||
exit;
|
|
||||||
end;
|
end;
|
||||||
end
|
|
||||||
{ else
|
|
||||||
if (Key>=Ord('0')) and (Key<=Ord('9')) then
|
|
||||||
FindNextChar(Char(Key))
|
|
||||||
else
|
|
||||||
if (Key>=VK_NUMPAD0) and (Key<=VK_NUMPAD9) then
|
|
||||||
FindNextChar(Char(Key - VK_NUMPAD0 + Ord('0')))
|
|
||||||
else
|
|
||||||
if Key = VK_DELETE then
|
|
||||||
ClearFind
|
|
||||||
else
|
|
||||||
if Key = VK_BACK then
|
|
||||||
FindPriorChar
|
|
||||||
else
|
|
||||||
begin
|
|
||||||
inherited KeyDown(Key, Shift);
|
|
||||||
exit;
|
|
||||||
end;
|
|
||||||
Key:=0;}
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@@ -297,32 +297,16 @@ begin
|
|||||||
with ACanvas do
|
with ACanvas do
|
||||||
begin
|
begin
|
||||||
R := ClientRect;
|
R := ClientRect;
|
||||||
{
|
|
||||||
if not (NewStyleControls ) and (BorderStyle = bsSingle) then
|
|
||||||
begin
|
|
||||||
Brush.Color := clWindowFrame;
|
|
||||||
FrameRect(R);
|
|
||||||
InflateRect(R, -1, -1);
|
|
||||||
end;
|
|
||||||
}
|
|
||||||
Brush.Color := Color;
|
Brush.Color := Color;
|
||||||
S := AText;
|
S := AText;
|
||||||
AWidth := TextWidth(S);
|
AWidth := TextWidth(S);
|
||||||
Margins := EditorTextMargins(Editor);
|
Margins := EditorTextMargins(Editor);
|
||||||
{ if PopupVisible then
|
|
||||||
ALeft := Margins.X
|
|
||||||
else
|
|
||||||
begin}
|
|
||||||
// if ButtonWidth > 0 then Inc(AWidth);
|
|
||||||
case AAlignment of
|
case AAlignment of
|
||||||
taLeftJustify:
|
taLeftJustify: ALeft := Margins.X;
|
||||||
ALeft := Margins.X;
|
taRightJustify: ALeft := ClientWidth - AWidth - Margins.X - 2;
|
||||||
taRightJustify:
|
|
||||||
ALeft := ClientWidth {- ButtonWidth} - AWidth - Margins.X - 2;
|
|
||||||
else
|
else
|
||||||
ALeft := (ClientWidth {- ButtonWidth} - AWidth) div 2;
|
ALeft := (ClientWidth - AWidth) div 2;
|
||||||
end;
|
end;
|
||||||
{ end;}
|
|
||||||
{$IFDEF USED_BiDi}
|
{$IFDEF USED_BiDi}
|
||||||
if SysLocale.MiddleEast then UpdateTextFlags;
|
if SysLocale.MiddleEast then UpdateTextFlags;
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|||||||
Reference in New Issue
Block a user