base.xfm

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

object FrmPolymorphic: TFrmPolymorphic
  Left = 260
  Top = 187
  Width = 456
  Height = 218
  HorzScrollBar.Range = 443
  VertScrollBar.Range = 81
  Caption = 'Show polymorphic Forms...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Menu = MainMenu
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object BtnOpen: TButton
    Left = 368
    Top = 16
    Width = 75
    Height = 25
    Caption = '&Open'
    TabOrder = 0
    OnClick = BtnOpenClick
  end
  object BtnClose: TButton
    Left = 368
    Top = 56
    Width = 75
    Height = 25
    Caption = '&Close'
    TabOrder = 1
    OnClick = BtnCloseClick
  end
  object PnlContainer: TPanel
    Left = 0
    Top = 0
    Width = 353
    Height = 193
    Align = alLeft
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 2
  end
  object MainMenu: TMainMenu
    Left = 376
    Top = 140
    object MnuFile: TMenuItem
      Caption = '&File'
      object MnuItmFileOpen: TMenuItem
        Caption = '&Open'
        OnClick = MnuItmFileOpenClick
      end
      object MnuItmFileClose: TMenuItem
        Caption = '&Close'
        OnClick = MnuItmFileCloseClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MnuItmFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = MnuItmFileExitClick
      end
    end
  end
  object DlgOpen: TOpenDialog
    Title = 'Open'
    Left = 408
    Top = 140
  end
end