main.~xfm

《Kylix程序设计》一书中附带的例程源代码

object FrmMain: TFrmMain
  Left = 208
  Top = 138
  Width = 422
  Height = 242
  HorzScrollBar.Range = 407
  VertScrollBar.Range = 225
  ActiveControl = BtnGo
  Caption = 'Computing 24 Rapidly...'
  Color = clBackground
  PixelsPerInch = 97
  TextHeight = 17
  TextWidth = 7
  object Bevel1: TBevel
    Left = 12
    Top = 72
    Width = 301
    Height = 2
  end
  object BtnGo: TButton
    Left = 332
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Go'
    TabOrder = 5
    OnClick = BtnGoClick
  end
  object CmbBox1: TComboBox
    Left = 16
    Top = 36
    Width = 61
    Height = 25
    ItemHeight = 19
    Items.Strings = (
      'A'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      'J'
      'Q'
      'K')
    ItemIndex = 0
    TabOrder = 1
    Text = 'A'
  end
  object CmbBox2: TComboBox
    Left = 94
    Top = 36
    Width = 61
    Height = 25
    ItemHeight = 19
    Items.Strings = (
      'A'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      'J'
      'Q'
      'K')
    ItemIndex = 0
    TabOrder = 2
    Text = 'A'
  end
  object CmbBox3: TComboBox
    Left = 173
    Top = 36
    Width = 61
    Height = 25
    ItemHeight = 19
    Items.Strings = (
      'A'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      'J'
      'Q'
      'K')
    ItemIndex = 0
    TabOrder = 3
    Text = 'A'
  end
  object CmbBox4: TComboBox
    Left = 252
    Top = 36
    Width = 61
    Height = 25
    ItemHeight = 19
    Items.Strings = (
      'A'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      'J'
      'Q'
      'K')
    ItemIndex = 0
    TabOrder = 4
    Text = 'A'
  end
  object LblInput: TLabel
    Left = 16
    Top = 12
    Width = 122
    Height = 17
    Caption = 'Choose four cards:'
  end
  object Memo: TMemo
    Left = 16
    Top = 104
    Width = 297
    Height = 121
    ScrollBars = ssVertical
    TabOrder = 6
  end
  object LblResult: TLabel
    Left = 16
    Top = 80
    Width = 43
    Height = 17
    Caption = 'Result:'
  end
end