main.xfm

来自「《Kylix程序设计》一书中附带的例程源代码」· XFM 代码 · 共 82 行

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 429
  Height = 183
  HorzScrollBar.Range = 429
  VertScrollBar.Range = 156
  Caption = 'Variant'
  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 BvlSeperate: TBevel
    Left = 0
    Top = 84
    Width = 429
    Height = 2
  end
  object PrgBarVariant: TProgressBar
    Left = 8
    Top = 52
    Width = 301
    Height = 18
  end
  object PrgBarInteger: TProgressBar
    Left = 8
    Top = 100
    Width = 301
    Height = 18
  end
  object BtnVariant: TButton
    Left = 332
    Top = 48
    Width = 87
    Height = 25
    Caption = 'Use Variant'
    TabOrder = 0
    OnClick = BtnVariantClick
  end
  object BtnInteger: TButton
    Left = 332
    Top = 96
    Width = 87
    Height = 25
    Caption = 'Use Integer'
    TabOrder = 1
    OnClick = BtnIntegerClick
  end
  object LblVariant: TLabel
    Left = 8
    Top = 16
    Width = 128
    Height = 24
    Caption = 'Use Variant:'
    Font.Color = clBlack
    Font.Height = 20
    Font.Name = 'bookman'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
  end
  object LblInteger: TLabel
    Left = 8
    Top = 132
    Width = 127
    Height = 24
    Caption = 'Use Integer:'
    Font.Color = clBlack
    Font.Height = 20
    Font.Name = 'bookman'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
  end
end