testmain.dfm

《Delphi技术手册源码》原书佩戴的光盘

object TestForm: TTestForm
  Left = 190
  Top = 116
  Width = 560
  Height = 435
  Caption = 'Test'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 552
    Height = 389
    ActivePage = FloatSheet
    Align = alClient
    TabOrder = 0
    object FloatSheet: TTabSheet
      Caption = 'FPU'
      Constraints.MinHeight = 320
      Constraints.MinWidth = 544
      object Label1: TLabel
        Left = 16
        Top = 136
        Width = 135
        Height = 16
        Caption = '&Floating Point Number:'
        FocusControl = FloatValue
      end
      object Label2: TLabel
        Left = 16
        Top = 168
        Width = 111
        Height = 16
        Caption = 'FPU &Control Word:'
        FocusControl = FpuCW
      end
      object RoundingMode: TRadioGroup
        Left = 11
        Top = 10
        Width = 129
        Height = 103
        Caption = 'Rounding Mode'
        Items.Strings = (
          'Nearest'
          'Down'
          'Up'
          'To Zero')
        TabOrder = 0
        OnClick = RoundingModeClick
      end
      object PrecisionMode: TRadioGroup
        Left = 155
        Top = 10
        Width = 129
        Height = 103
        Caption = 'Precision Mode'
        Items.Strings = (
          'Single'
          '(Reserved)'
          'Double'
          'Extended')
        TabOrder = 1
        OnClick = PrecisionModeClick
      end
      object ExceptionMask: TGroupBox
        Left = 299
        Top = 10
        Width = 238
        Height = 103
        Caption = 'Exception Mask'
        TabOrder = 2
        object CheckBox1: TCheckBox
          Left = 10
          Top = 20
          Width = 109
          Height = 21
          Caption = 'Invalid'
          TabOrder = 0
          OnClick = SetExceptionMask
        end
        object CheckBox2: TCheckBox
          Tag = 1
          Left = 10
          Top = 39
          Width = 109
          Height = 21
          Caption = 'Denormalized'
          TabOrder = 1
          OnClick = SetExceptionMask
        end
        object CheckBox3: TCheckBox
          Tag = 2
          Left = 10
          Top = 59
          Width = 100
          Height = 21
          Caption = 'Zero Divide'
          TabOrder = 2
          OnClick = SetExceptionMask
        end
        object CheckBox4: TCheckBox
          Tag = 3
          Left = 138
          Top = 23
          Width = 87
          Height = 21
          Caption = 'Overflow'
          TabOrder = 3
          OnClick = SetExceptionMask
        end
        object CheckBox5: TCheckBox
          Tag = 4
          Left = 138
          Top = 42
          Width = 95
          Height = 21
          Caption = 'Underflow'
          TabOrder = 4
          OnClick = SetExceptionMask
        end
        object CheckBox6: TCheckBox
          Tag = 5
          Left = 138
          Top = 62
          Width = 90
          Height = 21
          Caption = 'Precision'
          TabOrder = 5
          OnClick = SetExceptionMask
        end
      end
      object FloatClass: TRadioGroup
        Left = 167
        Top = 202
        Width = 218
        Height = 103
        Caption = 'Class'
        Columns = 3
        Items.Strings = (
          '+Nrm'
          '-Nrm'
          '+Den'
          '-Den'
          '+0'
          '-0'
          '+Inf'
          '-Inf'
          'QNaN'
          'SNan')
        TabOrder = 3
      end
      object FloatValue: TEdit
        Left = 168
        Top = 134
        Width = 225
        Height = 24
        TabOrder = 4
        OnExit = GetFloatClassClick
      end
      object FpuCW: TEdit
        Left = 168
        Top = 166
        Width = 121
        Height = 24
        TabOrder = 5
      end
      object GetFloatClass: TButton
        Left = 400
        Top = 133
        Width = 25
        Height = 25
        Caption = '?'
        Default = True
        TabOrder = 6
        OnClick = GetFloatClassClick
      end
      object SetFpu: TButton
        Left = 296
        Top = 166
        Width = 41
        Height = 25
        Caption = '&Set'
        TabOrder = 7
        OnClick = SetFpuClick
      end
      object GetFpu: TButton
        Left = 344
        Top = 166
        Width = 41
        Height = 25
        Caption = '&Get'
        TabOrder = 8
        OnClick = GetFpuClick
      end
      object Button1: TButton
        Left = 432
        Top = 133
        Width = 41
        Height = 25
        Caption = 'He&x'
        TabOrder = 9
        OnClick = Button1Click
      end
    end
    object Curr64Sheet: TTabSheet
      Caption = 'Curr64'
      ImageIndex = 1
      object Label3: TLabel
        Left = 8
        Top = 24
        Width = 70
        Height = 16
        Caption = '&Currency64:'
        FocusControl = Curr64Value
      end
      object Curr64Value: TEdit
        Left = 96
        Top = 22
        Width = 233
        Height = 24
        TabOrder = 0
      end
      object TestCurr64: TButton
        Left = 336
        Top = 22
        Width = 75
        Height = 25
        Caption = '&Test'
        TabOrder = 1
        OnClick = TestCurr64Click
      end
    end
    object MatrixSheet: TTabSheet
      Caption = 'Matrix'
      ImageIndex = 2
      object Grid: TStringGrid
        Left = 0
        Top = 30
        Width = 544
        Height = 328
        Align = alClient
        ColCount = 3
        FixedCols = 0
        RowCount = 3
        FixedRows = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goEditing, goTabs]
        TabOrder = 0
      end
      object ToolBar1: TToolBar
        Left = 0
        Top = 0
        Width = 544
        Height = 30
        ButtonHeight = 24
        ButtonWidth = 89
        Caption = 'ToolBar1'
        ShowCaptions = True
        TabOrder = 1
        object Transpose1Matrix: TToolButton
          Left = 0
          Top = 2
          Caption = 'Transpose&1'
          ImageIndex = 0
          OnClick = Transpose1MatrixClick
        end
        object Transpose2Matrix: TToolButton
          Left = 89
          Top = 2
          Caption = 'Transpose&2'
          ImageIndex = 3
          OnClick = Transpose2MatrixClick
        end
        object ToolButton3: TToolButton
          Left = 178
          Top = 2
          Width = 8
          Caption = 'ToolButton3'
          ImageIndex = 2
          Style = tbsSeparator
        end
        object GrowMatrix: TToolButton
          Left = 186
          Top = 2
          Caption = '&Grow'
          ImageIndex = 1
          OnClick = GrowMatrixClick
        end
        object ShrinkMatrix: TToolButton
          Left = 275
          Top = 2
          Caption = '&Shrink'
          ImageIndex = 2
          OnClick = ShrinkMatrixClick
        end
      end
    end
    object TileSheet: TTabSheet
      Caption = 'Tile'
      ImageIndex = 3
      object Tile1: TTile
        Left = 0
        Top = 0
        Width = 544
        Height = 358
        About = 'Copyright