From a1f4c275f136e3b3d1e9d7c760aacdb5a8362cf5 Mon Sep 17 00:00:00 2001 From: alexs75 Date: Tue, 6 Feb 2018 05:40:30 +0000 Subject: [PATCH] RxFPC:demo for RxDBLookupCombo.Style git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6178 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../rx/trunk/demos/RxLookup/project1.lpi | 38 ++++++- components/rx/trunk/demos/RxLookup/unit1.lfm | 102 +++++++++++------- components/rx/trunk/demos/RxLookup/unit1.pas | 6 ++ 3 files changed, 104 insertions(+), 42 deletions(-) diff --git a/components/rx/trunk/demos/RxLookup/project1.lpi b/components/rx/trunk/demos/RxLookup/project1.lpi index 4bf6e7e8c..6ec2d8aca 100644 --- a/components/rx/trunk/demos/RxLookup/project1.lpi +++ b/components/rx/trunk/demos/RxLookup/project1.lpi @@ -60,8 +60,8 @@ - - + + @@ -129,13 +129,13 @@ - - + + - + @@ -168,6 +168,34 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/components/rx/trunk/demos/RxLookup/unit1.lfm b/components/rx/trunk/demos/RxLookup/unit1.lfm index 40ce80faf..a34a2560a 100644 --- a/components/rx/trunk/demos/RxLookup/unit1.lfm +++ b/components/rx/trunk/demos/RxLookup/unit1.lfm @@ -14,9 +14,9 @@ object Form1: TForm1 AnchorSideTop.Control = GroupBox1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 13 - Top = 94 - Width = 68 + Height = 20 + Top = 114 + Width = 85 BorderSpacing.Around = 6 Caption = 'Select item...' ParentColor = False @@ -26,10 +26,10 @@ object Form1: TForm1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = Button1 AnchorSideTop.Side = asrCenter - Left = 97 - Height = 13 - Top = 149 - Width = 35 + Left = 106 + Height = 20 + Top = 186 + Width = 42 BorderSpacing.Around = 6 Caption = 'Label2' ParentColor = False @@ -41,8 +41,8 @@ object Form1: TForm1 AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 12 - Height = 25 - Top = 113 + Height = 32 + Top = 140 Width = 480 AutoSize = True Anchors = [akTop, akLeft, akRight] @@ -76,9 +76,9 @@ object Form1: TForm1 AnchorSideTop.Control = RxDBLookupCombo1 AnchorSideTop.Side = asrBottom Left = 6 - Height = 23 - Top = 144 - Width = 85 + Height = 36 + Top = 178 + Width = 94 AutoSize = True BorderSpacing.Around = 6 Caption = 'Test caption' @@ -90,10 +90,10 @@ object Form1: TForm1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom - Left = 427 - Height = 23 - Top = 173 - Width = 65 + Left = 425 + Height = 36 + Top = 220 + Width = 67 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Around = 6 @@ -107,9 +107,9 @@ object Form1: TForm1 AnchorSideTop.Side = asrBottom AnchorSideRight.Control = Button2 Left = 6 - Height = 21 - Top = 173 - Width = 415 + Height = 37 + Top = 220 + Width = 413 Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 TabOrder = 3 @@ -119,8 +119,8 @@ object Form1: TForm1 AnchorSideTop.Control = Edit1 AnchorSideTop.Side = asrBottom Left = 0 - Height = 168 - Top = 200 + Height = 105 + Top = 263 Width = 498 Align = alBottom Anchors = [akTop, akLeft, akRight, akBottom] @@ -135,23 +135,23 @@ object Form1: TForm1 AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 6 - Height = 82 + Height = 102 Top = 6 Width = 486 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Around = 6 Caption = 'RxDBLookupCombo visual options' - ClientHeight = 64 - ClientWidth = 482 + ClientHeight = 81 + ClientWidth = 484 TabOrder = 5 object CheckBox1: TCheckBox AnchorSideLeft.Control = GroupBox1 AnchorSideTop.Control = GroupBox1 Left = 6 - Height = 17 + Height = 24 Top = 6 - Width = 38 + Width = 50 BorderSpacing.Around = 6 Caption = 'Flat' OnChange = CheckBox1Change @@ -161,10 +161,10 @@ object Form1: TForm1 AnchorSideLeft.Control = CheckBox1 AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = GroupBox1 - Left = 50 - Height = 52 + Left = 62 + Height = 69 Top = 6 - Width = 77 + Width = 95 AutoFill = True AutoSize = True BorderSpacing.Around = 6 @@ -176,8 +176,9 @@ object Form1: TForm1 ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 34 - ClientWidth = 73 + ClientHeight = 48 + ClientWidth = 93 + ItemIndex = 0 Items.Strings = ( 'bsNone' 'bsSingle' @@ -185,6 +186,35 @@ object Form1: TForm1 OnClick = CheckBox1Change TabOrder = 1 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 object rxData1: TRxMemoryData FieldDefs = < @@ -222,8 +252,8 @@ object Form1: TForm1 DataType = ftCurrency end> PacketRecords = 0 - Left = 208 - Top = 56 + Left = 232 + Top = 128 object rxLookUpDataID: TLongintField DisplayWidth = 10 FieldKind = fkData @@ -254,8 +284,6 @@ object Form1: TForm1 ProviderFlags = [pfInUpdate, pfInWhere] ReadOnly = False Required = False - MaxValue = 0 - MinValue = 0 Precision = 2 end end @@ -266,7 +294,7 @@ object Form1: TForm1 end object dsLookUpData: TDataSource DataSet = rxLookUpData - Left = 176 - Top = 56 + Left = 200 + Top = 128 end end diff --git a/components/rx/trunk/demos/RxLookup/unit1.pas b/components/rx/trunk/demos/RxLookup/unit1.pas index 2881baf8f..30ab0faed 100644 --- a/components/rx/trunk/demos/RxLookup/unit1.pas +++ b/components/rx/trunk/demos/RxLookup/unit1.pas @@ -24,6 +24,7 @@ type Label1: TLabel; Label2: TLabel; RadioGroup1: TRadioGroup; + RadioGroup2: TRadioGroup; rxData1ID: TLongintField; RxDBLookupCombo1: TRxDBLookupCombo; rxData1: TRxMemoryData; @@ -68,6 +69,11 @@ begin 0:RxDBLookupCombo1.BorderStyle:=bsNone; 1:RxDBLookupCombo1.BorderStyle:=bsSingle; end; + + case RadioGroup2.ItemIndex of + 0:RxDBLookupCombo1.Style:=rxcsDropDown; + 1:RxDBLookupCombo1.Style:=rxcsDropDownList; + end; end; procedure TForm1.FormCreate(Sender: TObject);