main.~xfm

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

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 357
  Height = 138
  HorzScrollBar.Range = 313
  VertScrollBar.Range = 57
  Caption = 'Main Form: Showing polymorphic forms...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  OnCreate = FormCreate
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object BtnLoadTextViewer: TButton
    Left = 24
    Top = 32
    Width = 121
    Height = 25
    Caption = 'Load Text Viewer'
    TabOrder = 0
    OnClick = BtnLoadTextViewerClick
  end
  object BtnLoadImageViewer: TButton
    Left = 192
    Top = 32
    Width = 121
    Height = 25
    Caption = 'Load Image Viewer'
    TabOrder = 1
    OnClick = BtnLoadImageViewerClick
  end
end