main.xfm

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

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 405
  Height = 142
  HorzScrollBar.Range = 395
  VertScrollBar.Range = 133
  ActiveControl = BtnInc
  Caption = 'Date'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  ParentFont = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object LCDYear: TLCDNumber
    Left = 16
    Top = 16
    Width = 85
    Height = 30
    AutoSize = True
    Color = clButton
    ParentColor = False
    SegmentStyle = ssFlat
    Value = '2000'
  end
  object LCDMonth: TLCDNumber
    Left = 116
    Top = 16
    Width = 49
    Height = 30
    AutoSize = True
    Color = clButton
    Digits = 1
    ParentColor = False
    SegmentStyle = ssFlat
    Value = '1'
  end
  object LCDDay: TLCDNumber
    Left = 180
    Top = 16
    Width = 49
    Height = 30
    AutoSize = True
    Color = clButton
    Digits = 1
    ParentColor = False
    SegmentStyle = ssFlat
    Value = '1'
  end
  object BtnInc: TButton
    Left = 320
    Top = 68
    Width = 75
    Height = 25
    Caption = 'Inc'
    TabOrder = 3
    OnClick = BtnIncClick
  end
  object BtnDecrease: TButton
    Left = 320
    Top = 108
    Width = 75
    Height = 25
    Caption = 'Dec'
    TabOrder = 4
    OnClick = BtnDecreaseClick
  end
end