paramtype.xfm

来自「CrLab UniDAC 1.0 include sources」· XFM 代码 · 共 96 行

object ParamTypeForm: TParamTypeForm
  Left = 199 
  Top = 141
  Width = 327
  Height = 304
  HorzScrollBar.Range = 311
  VertScrollBar.Range = 199
  ActiveControl = lbParams
  AutoScroll = False
  Caption = 'Parameters information'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = 11
  Font.Name = 'helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  OnShow = FormShow
  Scaled = False
  TextHeight = 13
  object Label1: TLabel
    Left = 17
    Top = 9
    Width = 53
    Height = 13
    Caption = 'Parameters'
  end
  object Label2: TLabel
    Left = 185
    Top = 9
    Width = 46
    Height = 13
    Caption = 'Data type'
  end
  object lbValue: TLabel
    Left = 185
    Top = 187
    Width = 27
    Height = 13
    Caption = 'Value'
  end
  object Label3: TLabel
    Left = 177
    Top = 152
    Width = 74
    Height = 13
    Caption = 'Parameter type:'
  end
  object lbParameterType: TLabel
    Left = 256
    Top = 152
    Width = 3
    Height = 13
  end
  object lbParams: TListBox
    Left = 9
    Top = 26
    Width = 147
    Height = 239
    ItemHeight = 13
    TabOrder = 0
    OnClick = lbParamsClick
  end
  object btClose: TButton
    Left = 176
    Top = 237
    Width = 81
    Height = 27
    Caption = 'Close'
    TabOrder = 1
    OnClick = btCloseClick
  end
  object rgTypes: TRadioGroup
    Left = 176
    Top = 26
    Width = 139
    Height = 113
    Items.Strings = (
      'String'
      'Integer'
      'Float'
      'Date')
    TabOrder = 2
    OnClick = rgTypesClick
  end
  object edParamValue: TEdit
    Left = 176
    Top = 203
    Width = 141
    Height = 21
    TabOrder = 3
    OnExit = edParamValueExit
  end
end