RxFPC:demo for RxDBLookupCombo.Style

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6178 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/rx/trunk/demos/RxLookup/project1.lpi

@@ -60,8 +60,8 @@
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="53"/>
-        <CursorPos X="45" Y="69"/>
+        <TopLine Value="40"/>
+        <CursorPos X="38" Y="51"/>
         <UsageCount Value="22"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -129,13 +129,13 @@
       <Unit10>
         <Filename Value="../../rxdb/rxlookup.pas"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="300"/>
-        <CursorPos X="3" Y="327"/>
+        <TopLine Value="35"/>
+        <CursorPos X="53" Y="54"/>
         <UsageCount Value="10"/>
         <Loaded Value="True"/>
       </Unit10>
     </Units>
-    <JumpHistory Count="8" HistoryIndex="7">
+    <JumpHistory Count="15" HistoryIndex="14">
       <Position1>
         <Filename Value="unit1.pas"/>
         <Caret Line="47" TopLine="34"/>
@@ -168,6 +168,34 @@
         <Filename Value="unit1.pas"/>
         <Caret Line="65" Column="43" TopLine="53"/>
       </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>
   </ProjectOptions>
   <CompilerOptions>

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

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