main.xfm

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

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 570
  Height = 243
  HorzScrollBar.Range = 555
  VertScrollBar.Range = 169
  ActiveControl = BtnDrawShape
  Caption = 'Showing Method Inheritence...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object PaintBox: TPaintBox
    Left = 0
    Top = 0
    Width = 457
    Height = 243
    Align = alLeft
    Color = clWhite
    ParentColor = False
  end
  object BtnDrawShape: TButton
    Left = 480
    Top = 20
    Width = 75
    Height = 25
    Caption = 'Shape'
    TabOrder = 0
    OnClick = BtnDrawShapeClick
  end
  object BtnPoint: TButton
    Left = 480
    Top = 61
    Width = 75
    Height = 25
    Caption = 'Point'
    TabOrder = 1
    OnClick = BtnPointClick
  end
  object BtnLine: TButton
    Left = 480
    Top = 102
    Width = 75
    Height = 25
    Caption = 'Line'
    TabOrder = 2
    OnClick = BtnLineClick
  end
  object BtnRect: TButton
    Left = 480
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Rect'
    TabOrder = 3
  end
end