paramtype.lfm

来自「Oracle Data Access Components Source Cod」· LFM 代码 · 共 78 行

object ParamTypeForm: TParamTypeForm
  Left = 199
  Height = 213
  Top = 141
  Width = 324
  HorzScrollBar.Page = 323
  HorzScrollBar.Range = 311
  VertScrollBar.Page = 212
  VertScrollBar.Range = 199
  ActiveControl = lbParams
  Caption = 'Output Parameters Type'
  ClientHeight = 213
  ClientWidth = 324
  Font.Height = 11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  OnShow = FormShow
  object Label1: TLabel
    Left = 17
    Height = 14
    Top = 9
    Width = 56
    Caption = 'Parameters'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 181
    Height = 14
    Top = 9
    Width = 30
    Caption = 'Types'
    ParentColor = False
  end
  object lbParams: TListBox
    Left = 9
    Height = 173
    Top = 26
    Width = 147
    ItemHeight = 13
    OnClick = lbParamsClick
    TabOrder = 0
  end
  object btClose: TButton
    Left = 207
    Height = 27
    Top = 172
    Width = 81
    Caption = 'Close'
    OnClick = btCloseClick
    TabOrder = 1
  end
  object rgTypes: TRadioGroup
    Left = 172
    Height = 113
    Top = 26
    Width = 139
    AutoFill = True
    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 = 95
    ClientWidth = 135
    Items.Strings = (
      'String'
      'Integer'
      'Float'
      'Date'
    )
    OnClick = rgTypesClick
    TabOrder = 2
  end
end