main.xfm

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

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 468
  Height = 227
  HorzScrollBar.Range = 455
  VertScrollBar.Range = 121
  ActiveControl = Memo
  Caption = 'Showing pointer address...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 15
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 17
  TextWidth = 7
  object Memo: TMemo
    Left = 0
    Top = 0
    Width = 357
    Height = 227
    Align = alLeft
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'adobe-helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object BtnShow: TButton
    Left = 380
    Top = 16
    Width = 75
    Height = 25
    Caption = 'Show'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnShowClick
  end
  object BtnShowMsg: TButton
    Left = 380
    Top = 56
    Width = 75
    Height = 25
    Caption = 'ShowMsg'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BtnShowMsgClick
  end
  object BtnCast: TButton
    Left = 380
    Top = 96
    Width = 75
    Height = 25
    Caption = 'ShowCast'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BtnCastClick
  end
end