lazarus-ccr/components/rx/trunk/Demos/Text90/unit1.lfm

object Form1: TForm1
  Left = 369
  Height = 500
  Top = 228
  Width = 536
  ActiveControl = RadioGroup1.RadioButton4
  Caption = 'Form1'
  ClientHeight = 500
  ClientWidth = 536
  OnCreate = FormCreate
  SessionProperties = 'Edit1.Text'
  LCLVersion = '0.9.27'
  object PaintBox1: TPaintBox
    Left = 16
    Height = 129
    Top = 16
    Width = 184
    OnPaint = PaintBox1Paint
  end
  object Edit1: TEdit
    Left = 8
    Height = 27
    Top = 152
    Width = 192
    AutoSize = True
    OnChange = Edit1Change
    TabOrder = 0
    Text = 'Edit1'
  end
  object RadioGroup1: TRadioGroup
    Left = 208
    Height = 136
    Top = 8
    Width = 79
    AutoFill = True
    AutoSize = True
    Caption = 'Direction'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.TopBottomSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 117
    ClientWidth = 75
    ItemIndex = 4
    Items.Strings = (
      '0 %'
      '90 %'
      '180 %'
      '270 %'
      '360 %'
    )
    OnClick = CheckBox1Change
    TabOrder = 1
  end
  object RxDBGrid1: TRxDBGrid
    Left = 0
    Height = 308
    Top = 192
    Width = 536
    TitleButtons = False
    AutoSort = False
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Orientation = toHorizontal
        FieldName = 'DEMO_1'
        Filter.DropDownRows = 0
        Filter.ItemIndex = -1
      end>
    OptionsRx = []
    Align = alBottom
    Anchors = [akTop, akLeft, akRight, akBottom]
    FocusColor = clRed
    SelectedColor = clHighlight
    GridLineStyle = psSolid
    DataSource = Datasource1
    ParentColor = False
    TabOrder = 2
    TitleStyle = tsNative
  end
  object RxMemoryData1: TRxMemoryData
    AutoCalcFields = False
    FieldDefs = <    
      item
        Name = 'DEMO_1'
        DataType = ftInteger
        Precision = -1
        Size = 0
      end    
      item
        Name = 'Demo2'
        DataType = ftString
        Precision = -1
        Size = 40
      end>
    left = 312
    top = 64
    object RxMemoryData1DEMO_11: TLongintField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'DEMO_1'
      Index = 0
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
    end
    object RxMemoryData1Demo21: TStringField
      DisplayWidth = 40
      FieldKind = fkData
      FieldName = 'Demo2'
      Index = 1
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = False
      Size = 40
    end
  end
  object Datasource1: TDatasource
    DataSet = RxMemoryData1
    left = 312
    top = 32
  end
  object IniPropStorage1: TIniPropStorage
    StoredValues = <>
    left = 447
    top = 19
  end
end