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

RxFPC:demo for RxDBLookupCombo.Style

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6178 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-06 05:40:30 +00:00
parent 91a180f58b
commit a1f4c275f1
3 changed files with 104 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/rx/trunk/demos/RxLookup/project1.lpi
View File

@ -60,8 +60,8 @@
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <IsVisibleTab Value="True"/>
<TopLine Value="53"/> <TopLine Value="40"/>
<CursorPos X="45" Y="69"/> <CursorPos X="38" Y="51"/>
<UsageCount Value="22"/> <UsageCount Value="22"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
@ -129,13 +129,13 @@
<Unit10> <Unit10>
<Filename Value="../../rxdb/rxlookup.pas"/> <Filename Value="../../rxdb/rxlookup.pas"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="300"/> <TopLine Value="35"/>
<CursorPos X="3" Y="327"/> <CursorPos X="53" Y="54"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit10> </Unit10>
</Units> </Units>
<JumpHistory Count="8" HistoryIndex="7"> <JumpHistory Count="15" HistoryIndex="14">
<Position1> <Position1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="47" TopLine="34"/> <Caret Line="47" TopLine="34"/>
@ -168,6 +168,34 @@
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="65" Column="43" TopLine="53"/> <Caret Line="65" Column="43" TopLine="53"/>
</Position8> </Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="69" Column="45" TopLine="51"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Line="74" Column="29" TopLine="40"/>
</Position10>
<Position11>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="362" Column="14" TopLine="345"/>
</Position11>
<Position12>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="323" Column="33" TopLine="303"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="51" Column="38" TopLine="40"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="52" Column="38" TopLine="41"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="51" Column="38" TopLine="40"/>
</Position15>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

102
components/rx/trunk/demos/RxLookup/unit1.lfm
View File

@ -14,9 +14,9 @@ object Form1: TForm1
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 13 Height = 20
Top = 94 Top = 114
Width = 68 Width = 85
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Select item...' Caption = 'Select item...'
ParentColor = False ParentColor = False
@ -26,10 +26,10 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Button1 AnchorSideTop.Control = Button1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 97 Left = 106
Height = 13 Height = 20
Top = 149 Top = 186
Width = 35 Width = 42
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Label2' Caption = 'Label2'
ParentColor = False ParentColor = False
@ -41,8 +41,8 @@ object Form1: TForm1
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 12 Left = 12
Height = 25 Height = 32
Top = 113 Top = 140
Width = 480 Width = 480
AutoSize = True AutoSize = True
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -76,9 +76,9 @@ object Form1: TForm1
AnchorSideTop.Control = RxDBLookupCombo1 AnchorSideTop.Control = RxDBLookupCombo1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 23 Height = 36
Top = 144 Top = 178
Width = 85 Width = 94
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Test caption' Caption = 'Test caption'
@ -90,10 +90,10 @@ object Form1: TForm1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 427 Left = 425
Height = 23 Height = 36
Top = 173 Top = 220
Width = 65 Width = 67
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -107,9 +107,9 @@ object Form1: TForm1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Button2 AnchorSideRight.Control = Button2
Left = 6 Left = 6
Height = 21 Height = 37
Top = 173 Top = 220
Width = 415 Width = 413
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 3 TabOrder = 3
@ -119,8 +119,8 @@ object Form1: TForm1
AnchorSideTop.Control = Edit1 AnchorSideTop.Control = Edit1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 168 Height = 105
Top = 200 Top = 263
Width = 498 Width = 498
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -135,23 +135,23 @@ object Form1: TForm1
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 6 Left = 6
Height = 82 Height = 102
Top = 6 Top = 6
Width = 486 Width = 486
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'RxDBLookupCombo visual options' Caption = 'RxDBLookupCombo visual options'
ClientHeight = 64 ClientHeight = 81
ClientWidth = 482 ClientWidth = 484
TabOrder = 5 TabOrder = 5
object CheckBox1: TCheckBox object CheckBox1: TCheckBox
AnchorSideLeft.Control = GroupBox1 AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
Left = 6 Left = 6
Height = 17 Height = 24
Top = 6 Top = 6
Width = 38 Width = 50
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Flat' Caption = 'Flat'
OnChange = CheckBox1Change OnChange = CheckBox1Change
@ -161,10 +161,10 @@ object Form1: TForm1
AnchorSideLeft.Control = CheckBox1 AnchorSideLeft.Control = CheckBox1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = GroupBox1 AnchorSideTop.Control = GroupBox1
Left = 50 Left = 62
Height = 52 Height = 69
Top = 6 Top = 6
Width = 77 Width = 95
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -176,8 +176,9 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 34 ClientHeight = 48
ClientWidth = 73 ClientWidth = 93
ItemIndex = 0
Items.Strings = ( Items.Strings = (
'bsNone' 'bsNone'
'bsSingle' 'bsSingle'
@ -185,6 +186,35 @@ object Form1: TForm1
OnClick = CheckBox1Change OnClick = CheckBox1Change
TabOrder = 1 TabOrder = 1
end end
object RadioGroup2: TRadioGroup
AnchorSideLeft.Control = GroupBox1
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox1
Left = 164
Height = 69
Top = 6
Width = 156
AutoFill = True
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Style'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 48
ClientWidth = 154
ItemIndex = 0
Items.Strings = (
'rxcsDropDown'
'rxcsDropDownList'
)
OnClick = CheckBox1Change
TabOrder = 2
end
end end
object rxData1: TRxMemoryData object rxData1: TRxMemoryData
FieldDefs = < FieldDefs = <
@ -222,8 +252,8 @@ object Form1: TForm1
DataType = ftCurrency DataType = ftCurrency
end> end>
PacketRecords = 0 PacketRecords = 0
Left = 208 Left = 232
Top = 56 Top = 128
object rxLookUpDataID: TLongintField object rxLookUpDataID: TLongintField
DisplayWidth = 10 DisplayWidth = 10
FieldKind = fkData FieldKind = fkData
@ -254,8 +284,6 @@ object Form1: TForm1
ProviderFlags = [pfInUpdate, pfInWhere] ProviderFlags = [pfInUpdate, pfInWhere]
ReadOnly = False ReadOnly = False
Required = False Required = False
MaxValue = 0
MinValue = 0
Precision = 2 Precision = 2
end end
end end
@ -266,7 +294,7 @@ object Form1: TForm1
end end
object dsLookUpData: TDataSource object dsLookUpData: TDataSource
DataSet = rxLookUpData DataSet = rxLookUpData
Left = 176 Left = 200
Top = 56 Top = 128
end end
end end

6
components/rx/trunk/demos/RxLookup/unit1.pas
View File

@ -24,6 +24,7 @@ type
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
RadioGroup1: TRadioGroup; RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
rxData1ID: TLongintField; rxData1ID: TLongintField;
RxDBLookupCombo1: TRxDBLookupCombo; RxDBLookupCombo1: TRxDBLookupCombo;
rxData1: TRxMemoryData; rxData1: TRxMemoryData;
@ -68,6 +69,11 @@ begin
0:RxDBLookupCombo1.BorderStyle:=bsNone; 0:RxDBLookupCombo1.BorderStyle:=bsNone;
1:RxDBLookupCombo1.BorderStyle:=bsSingle; 1:RxDBLookupCombo1.BorderStyle:=bsSingle;
end; end;
case RadioGroup2.ItemIndex of
0:RxDBLookupCombo1.Style:=rxcsDropDown;
1:RxDBLookupCombo1.Style:=rxcsDropDownList;
end;
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject);