formtype.xfm

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

object FrmMain: TFrmMain
  Left = 208
  Top = 117
  Width = 467
  Height = 192
  HorzScrollBar.Range = 455
  VertScrollBar.Range = 181
  BorderStyle = fbsDialog
  Caption = 'Show form styles...'
  Color = clBackground
  PixelsPerInch = 97
  TextHeight = 17
  TextWidth = 7
  object RadGrpBorderStyle: TRadioGroup
    Left = 8
    Top = 12
    Width = 146
    Height = 169
    Items.Strings = (
      'None'
      'Single'
      'Sizeable'
      'Dialog'
      'ToolWindow'
      'SizeToolWin')
    Caption = 'Border Style:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemIndex = 1
    ParentFont = False
    TabOrder = 0
  end
  object BtnCreate: TButton
    Left = 376
    Top = 12
    Width = 79
    Height = 25
    Caption = 'Create'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BtnCreateClick
  end
end