lazarus-ccr/components/rx/trunk/demos/RxLookup/unit1.lfm

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 = 13
    Top = 94
    Width = 68
    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 = 97
    Height = 13
    Top = 149
    Width = 35
    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 = 25
    Top = 113
    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 = 23
    Top = 144
    Width = 85
    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 = 23
    Top = 173
    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 = 21
    Top = 173
    Width = 415
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 6
    TabOrder = 3
    Text = 'Edit1'
  end
  object DBGrid1: TDBGrid
    AnchorSideTop.Control = Edit1
    AnchorSideTop.Side = asrBottom
    Left = 0
    Height = 168
    Top = 200
    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 = 82
    Top = 6
    Width = 486
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Around = 6
    Caption = 'RxDBLookupCombo visual options'
    ClientHeight = 64
    ClientWidth = 482
    TabOrder = 5
    object CheckBox1: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = GroupBox1
      Left = 6
      Height = 17
      Top = 6
      Width = 38
      BorderSpacing.Around = 6
      Caption = 'Flat'
      OnChange = CheckBox1Change
      TabOrder = 0
    end
    object RadioGroup1: TRadioGroup
      AnchorSideLeft.Control = CheckBox1
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox1
      Left = 50
      Height = 52
      Top = 6
      Width = 77
      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 = 34
      ClientWidth = 73
      Items.Strings = (
        'bsNone'
        'bsSingle'
      )
      OnClick = CheckBox1Change
      TabOrder = 1
    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 = 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