add.xfm

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

object FrmAdd: TFrmAdd
  Left = 217
  Top = 112
  Width = 322
  Height = 118
  HorzScrollBar.Range = 307
  VertScrollBar.Range = 95
  ActiveControl = EdtX
  Caption = 'Add'
  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 LblInput: TLabel
    Left = 20
    Top = 16
    Width = 108
    Height = 15
    Caption = 'Input a new record:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
  end
  object LblX: TLabel
    Left = 20
    Top = 44
    Width = 12
    Height = 15
    Caption = 'X:'
  end
  object LblY: TLabel
    Left = 20
    Top = 76
    Width = 12
    Height = 15
    Caption = 'Y:'
  end
  object EdtX: TEdit
    Left = 40
    Top = 40
    Width = 100
    Height = 23
    TabOrder = 3
    Text = '0'
  end
  object EdtY: TEdit
    Left = 40
    Top = 72
    Width = 100
    Height = 23
    TabOrder = 4
    Text = '0'
  end
  object BtnOK: TButton
    Left = 232
    Top = 16
    Width = 75
    Height = 23
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 5
  end
  object BtnCancel: TButton
    Left = 232
    Top = 52
    Width = 75
    Height = 23
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 6
  end
end