Стартовый пул

RXLib/.svn/pristine/5b/5bbeb51f2bad7ff0632b304827cd2fe526927beb.svn-base

@@ -0,0 +1,300 @@
+object Form1: TForm1
+  Left = 534
+  Height = 368
+  Top = 234
+  Width = 498
+  ActiveControl = RxDBLookupCombo1
+  Caption = 'RxDBLookupCombo test'
+  ClientHeight = 368
+  ClientWidth = 498
+  OnCreate = FormCreate
+  LCLVersion = '1.9.0.0'
+  object Label1: TLabel
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = GroupBox1
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 15
+    Top = 102
+    Width = 67
+    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 = 103
+    Height = 15
+    Top = 161
+    Width = 34
+    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 = 27
+    Top = 123
+    Width = 480
+    AutoSize = True
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    ButtonOnlyWhenFocused = False
+    ButtonWidth = 15
+    Color = clWindow
+    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 = 25
+    Top = 156
+    Width = 91
+    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 = 428
+    Height = 25
+    Top = 187
+    Width = 64
+    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 = 23
+    Top = 187
+    Width = 416
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Around = 6
+    TabOrder = 3
+    Text = 'Edit1'
+  end
+  object DBGrid1: TDBGrid
+    AnchorSideTop.Control = Edit1
+    AnchorSideTop.Side = asrBottom
+    Left = 0
+    Height = 152
+    Top = 216
+    Width = 498
+    Align = alBottom
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Color = clWindow
+    Columns = <>
+    DataSource = dsLookUpData
+    TabOrder = 4
+  end
+  object GroupBox1: TGroupBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 90
+    Top = 6
+    Width = 486
+    Anchors = [akTop, akLeft, akRight]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    Caption = 'RxDBLookupCombo visual options'
+    ClientHeight = 70
+    ClientWidth = 482
+    TabOrder = 5
+    object CheckBox1: TCheckBox
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideTop.Control = GroupBox1
+      Left = 6
+      Height = 19
+      Top = 6
+      Width = 39
+      BorderSpacing.Around = 6
+      Caption = 'Flat'
+      OnChange = CheckBox1Change
+      TabOrder = 0
+    end
+    object RadioGroup1: TRadioGroup
+      AnchorSideLeft.Control = CheckBox1
+      AnchorSideLeft.Side = asrBottom
+      AnchorSideTop.Control = GroupBox1
+      Left = 51
+      Height = 58
+      Top = 6
+      Width = 81
+      AutoFill = True
+      AutoSize = True
+      BorderSpacing.Around = 6
+      Caption = 'Border style'
+      ChildSizing.LeftRightSpacing = 6
+      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
+      ChildSizing.EnlargeVertical = crsHomogenousChildResize
+      ChildSizing.ShrinkHorizontal = crsScaleChilds
+      ChildSizing.ShrinkVertical = crsScaleChilds
+      ChildSizing.Layout = cclLeftToRightThenTopToBottom
+      ChildSizing.ControlsPerLine = 1
+      ClientHeight = 38
+      ClientWidth = 77
+      ItemIndex = 0
+      Items.Strings = (
+        'bsNone'
+        'bsSingle'
+      )
+      OnClick = CheckBox1Change
+      TabOrder = 1
+    end
+    object RadioGroup2: TRadioGroup
+      AnchorSideLeft.Control = GroupBox1
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = GroupBox1
+      Left = 176
+      Height = 58
+      Top = 6
+      Width = 131
+      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 = 38
+      ClientWidth = 127
+      ItemIndex = 0
+      Items.Strings = (
+        'rxcsDropDown'
+        'rxcsDropDownList'
+      )
+      OnClick = CheckBox1Change
+      TabOrder = 2
+    end
+  end
+  object rxData1: TRxMemoryData
+    FieldDefs = <    
+      item
+        Name = 'ID'
+        DataType = ftInteger
+      end>
+    PacketRecords = 0
+    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
+      end    
+      item
+        Name = 'Caption'
+        DataType = ftString
+        Size = 100
+      end    
+      item
+        Name = 'Price'
+        DataType = ftCurrency
+      end>
+    PacketRecords = 0
+    Left = 232
+    Top = 128
+    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
+      Precision = 2
+    end
+  end
+  object dsData1: TDataSource
+    DataSet = rxData1
+    Left = 288
+    Top = 8
+  end
+  object dsLookUpData: TDataSource
+    DataSet = rxLookUpData
+    Left = 200
+    Top = 128
+  end
+end