formtype.xfm

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

object FrmMain: TFrmMain
  Left = 213
  Top = 113
  Width = 566
  Height = 257
  HorzScrollBar.Range = 555
  VertScrollBar.Range = 222
  ActiveControl = RadGrpBorderStyle
  Caption = 'Show form styles...'
  Color = clBackground
  Font.Color = clBlack
  Font.Height = 13
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Menu = MainMenu
  ParentFont = False
  PixelsPerInch = 97
  TextHeight = 15
  TextWidth = 7
  object RadGrpBorderStyle: TRadioGroup
    Left = 8
    Top = 12
    Width = 146
    Height = 189
    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 = 476
    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
  object GrpBoxBorderIcon: TGroupBox
    Left = 164
    Top = 12
    Width = 133
    Height = 157
    Caption = 'Border Icons:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object ChkBoxSystemMenu: TCheckBox
      Left = 8
      Top = 16
      Width = 100
      Height = 30
      Caption = 'SystemMenu'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object ChkBoxMinimize: TCheckBox
      Left = 8
      Top = 44
      Width = 100
      Height = 30
      Caption = 'Minimize'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object ChkBoxMaximize: TCheckBox
      Left = 8
      Top = 72
      Width = 100
      Height = 30
      Caption = 'Maximize'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object ChkBoxHelp: TCheckBox
      Left = 8
      Top = 100
      Width = 100
      Height = 30
      Caption = 'Help'
      TabOrder = 3
    end
  end
  object LblScaleBy: TLabel
    Left = 164
    Top = 184
    Width = 54
    Height = 15
    Caption = 'Scale By:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
  end
  object EdtScaleBy: TEdit
    Left = 220
    Top = 180
    Width = 76
    Height = 23
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Text = '100'
  end
  object BtnScale: TButton
    Left = 476
    Top = 48
    Width = 79
    Height = 25
    Caption = 'Scale This'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = BtnScaleClick
  end
  object RadGrpPosition: TRadioGroup
    Left = 312
    Top = 12
    Width = 149
    Height = 189
    Items.Strings = (
      'Designed'
      'Default'
      'DefaultPosOnly'
      'DefaultSizeOnly'
      'ScreenCenter'
      'MainFormCenter'
      'OwnerFormCenter')
    Caption = 'Form Position:'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ItemIndex = 0
    ParentFont = False
    TabOrder = 6
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 213
    Width = 566
    Height = 19
    Font.Color = clBlack
    Font.Height = 11
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    Panels = <
      item
        Text = 'Form Width: '
        Width = 100
      end
      item
        Text = 'Form Height: '
        Width = 100
      end
      item
        Text = 'Client Width: '
        Width = 100
      end
      item
        Text = 'Client Height: '
        Width = 100
      end
      item
        Text = 'Client Rect: '
      end>
    ParentFont = False
    SizeGrip = False
  end
  object BtnShow: TButton
    Left = 476
    Top = 84
    Width = 79
    Height = 25
    Caption = 'Show This'
    Font.Color = clBlack
    Font.Height = 13
    Font.Name = 'Helvetica'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = BtnShowClick
  end
  object MainMenu: TMainMenu
    Left = 144
    Top = 4
    object MnuFile: TMenuItem
      Caption = 'File'
    end
  end
end