main.~xfm

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

object FrmMain: TFrmMain
  Left = 117
  Top = 117
  Width = 619
  Height = 243
  HorzScrollBar.Range = 603
  VertScrollBar.Range = 145
  ActiveControl = BtnShow
  Caption = 'Showing Virtual 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 BtnShow: TButton
    Left = 528
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Show'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'adobe-helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BtnShowClick
  end
  object RadGrpClassType: TRadioGroup
    Left = 340
    Top = 8
    Width = 160
    Height = 137
    Items.Strings = (
      'TGeoShape'
      'TGeoPoint'
      'TGeoLine'
      'TGeoRect')
    Caption = 'Class Type:'
    Font.Color = clBlack
    Font.Height = 15
    Font.Name = 'adobe-helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemIndex = 0
    ParentFont = False
    TabOrder = 1
  end
end