main.xfm

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

object FrmMain: TFrmMain
  Left = 157
  Top = 112
  Width = 736
  Height = 312
  HorzScrollBar.Range = 727
  VertScrollBar.Range = 117
  ActiveControl = BtnTA
  Caption = 'Showing Internal Store Format of Methods...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 18
  Font.Name = 'adobe-helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 22
  TextWidth = 10
  object BtnTA: TButton
    Left = 652
    Top = 12
    Width = 75
    Height = 25
    Caption = 'TA'
    TabOrder = 0
    OnClick = BtnTAClick
  end
  object BtnTB: TButton
    Left = 652
    Top = 53
    Width = 75
    Height = 25
    Caption = 'TB'
    TabOrder = 1
    OnClick = BtnTBClick
  end
  object BtnTC: TButton
    Left = 652
    Top = 92
    Width = 75
    Height = 25
    Caption = 'TC'
    TabOrder = 2
  end
end