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

add property text for RxDBLockupCombo

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@959 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-09-17 15:58:07 +00:00
parent e29245cc17
commit 43e0ffe21f
25 changed files with 11756 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/rx/Demos/RxDateEdit/project1.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

277
components/rx/Demos/RxDateEdit/project1.lpi Normal file
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

17
components/rx/Demos/RxDateEdit/project1.manifest Normal file
View 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
View 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
View 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
View 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
View 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
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 134 KiB

278
components/rx/Demos/RxLookup/project1.lpi Normal file
View 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
View 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
View File

File diff suppressed because it is too large Load Diff

17
components/rx/Demos/RxLookup/project1.manifest Normal file
View 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
View 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
View 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
View 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
View 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.

1
components/rx/curredit.pas
View File

@@ -57,6 +57,7 @@ type
procedure DoEnter; override;
procedure DoExit; override;
// procedure AcceptValue(const Value: Variant); override;
procedure Change; override;
procedure ReformatEditText; dynamic;
procedure DataChanged; virtual;

2
components/rx/docs/WhatsNew.rus.txt
View File

@@ -34,6 +34,8 @@
меню правого верхнего угла, фильтрация данных
+ Начато написание документации в формета LazDoc
- Исправлено изменение цвета конца недели в RxDateEdit
+ Добавлена демка для RxDBLookup
+ У объекта TRxDBLookupCombo опубликовано свойство Text - установка значения для него вызывает поиск по лукап-листу
22.05.2008 - версия 2.0.0.136 (svn revision 100)
+ У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink
+ У объекта TRxCustomDBLookupCombo ускорена отрисовка данных

2
components/rx/languages/rxconst.es.po
View File

@@ -129,5 +129,3 @@ msgstr "Botones visibles"
msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
msgstr "Windows Iconos Ficheros (*.ico)|*.ico)|Todos los ficheros (*.*)|*.*"

4
components/rx/languages/rxdconst.es.po
View File

@@ -1,4 +1,4 @@
msgid ""
msgid ""
msgstr "Content-Type: text/plain; charset=UTF-8"
#: rxdconst.sapptitlelabel
@@ -409,5 +409,3 @@ msgstr "Entre su clave"
msgid "&User name:"
msgstr "&Nombre usuario:"

43
components/rx/rxlookup.pas
View File

@@ -216,6 +216,8 @@ type
procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure Click; override;
function RealGetText: TCaption; override;
procedure RealSetText(const Value: TCaption); override;
procedure Paint; override;
@@ -267,6 +269,7 @@ type
public
property Value;
property KeyValue;
property Text;
published
property AutoSize;
property Align;
@@ -920,8 +923,6 @@ begin
else
SetValueKey(FEmptyValue);
end
{else
SetValueKey(Field.AsString);}
end;
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
begin
TPopUpFormAccess(FRxPopUpForm).KeyDown(Key, Shift);
{ if Key=VK_RETURN then
HideList
else
Flist.KeyDown(Key, Shift);
Key := 0;}
end
else
if not PopupVisible then
@@ -1300,11 +1296,42 @@ begin
DoButtonClick(Self);
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;
var
Selected:boolean;
R, R1: TRect;
// X: Integer;
AText: string;
begin
Canvas.Font := Font;

72
components/rx/rxpopupunit.pas
View File

@@ -776,18 +776,13 @@ var
begin
FFindLine:=FFindLine + AChar;
if DatalinkActive then
{ if true then
begin}
if DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]) then
begin
TPopUpForm(Owner).WControl.Caption:=FFindLine;
TPopUpForm(Owner).WControl.Repaint;
end
else
FFindLine:=F;
{ end
if DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]) then
begin
TPopUpForm(Owner).WControl.Caption:=FFindLine;
TPopUpForm(Owner).WControl.Repaint;
end
else
DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey]);}
FFindLine:=F;
end;
procedure TPopUpGrid.FindPriorChar;
@@ -819,11 +814,6 @@ begin
TPopUpForm(Owner).WControl.Repaint;
DataSource.DataSet.First;
end;
{ if DatalinkActive then
if (FFindLine<>'') then
DataSetLocateThrough(DataSource.DataSet, FLookupDisplayField, FFindLine, [loCaseInsensitive, loPartialKey])
else
DataSource.DataSet.First;}
end;
procedure TPopUpGrid.SetLookupDisplayIndex(const AValue: integer);
@@ -850,49 +840,27 @@ end;
procedure TPopUpGrid.KeyDown(var Key: Word; Shift: TShiftState);
begin
if true then
begin
if Key = VK_DELETE then
begin
ClearFind;
Key:=0;
end
else
if Key = VK_BACK then
begin
FindPriorChar;
Key:=0;
end
else
begin
if Key in [VK_UP,VK_DOWN,VK_PRIOR,VK_NEXT] then
begin
FFindLine:='';
TPopUpForm(Owner).WControl.Caption:='';
TPopUpForm(Owner).WControl.Repaint;
end;
inherited KeyDown(Key, Shift);
exit;
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
begin
ClearFind;
Key:=0;
end
else
if Key = VK_BACK then
FindPriorChar
begin
FindPriorChar;
Key:=0;
end
else
begin
if Key in [VK_UP,VK_DOWN,VK_PRIOR,VK_NEXT] then
begin
FFindLine:='';
TPopUpForm(Owner).WControl.Caption:='';
TPopUpForm(Owner).WControl.Repaint;
end;
inherited KeyDown(Key, Shift);
exit;
end;
Key:=0;}
end;
end.

26
components/rx/tooledit.pas
View File

@@ -297,32 +297,16 @@ begin
with ACanvas do
begin
R := ClientRect;
{
if not (NewStyleControls ) and (BorderStyle = bsSingle) then
begin
Brush.Color := clWindowFrame;
FrameRect(R);
InflateRect(R, -1, -1);
end;
}
Brush.Color := Color;
S := AText;
AWidth := TextWidth(S);
Margins := EditorTextMargins(Editor);
{ if PopupVisible then
ALeft := Margins.X
case AAlignment of
taLeftJustify: ALeft := Margins.X;
taRightJustify: ALeft := ClientWidth - AWidth - Margins.X - 2;
else
begin}
// if ButtonWidth > 0 then Inc(AWidth);
case AAlignment of
taLeftJustify:
ALeft := Margins.X;
taRightJustify:
ALeft := ClientWidth {- ButtonWidth} - AWidth - Margins.X - 2;
else
ALeft := (ClientWidth {- ButtonWidth} - AWidth) div 2;
end;
{ end;}
ALeft := (ClientWidth - AWidth) div 2;
end;
{$IFDEF USED_BiDi}
if SysLocale.MiddleEast then UpdateTextFlags;
{$ENDIF}