unit1.dfm

我自己写的动态改变显示器分辨率的工具

      Width = 249
      Height = 145
      UIStyle = MacOS
      Caption = #26174#31034#22120#25511#21046
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Transparent = True
      ParentColor = True
      ParentFont = False
      TabOrder = 3
      BorderColor = 8355711
      object Label1: TLabel
        Left = 16
        Top = 92
        Width = 21
        Height = 13
        Caption = #23567'   '
        Transparent = True
      end
      object Label2: TLabel
        Left = 220
        Top = 92
        Width = 21
        Height = 13
        Caption = #22823'   '
        Transparent = True
      end
      object Label3: TLabel
        Left = 92
        Top = 116
        Width = 76
        Height = 13
        Caption = '640 X 480 '#35937#32032
        Transparent = True
      end
      object Label4: TLabel
        Left = 88
        Top = 64
        Width = 69
        Height = 13
        Caption = #35774#32622#20998#36776#29575'   '
        Transparent = True
      end
      object suiTrackBar1: TsuiTrackBar
        Left = 40
        Top = 88
        Width = 169
        Height = 20
        Orientation = suiHorizontal
        UIStyle = MacOS
        BarImage.Data = {
          07544269746D6170DE020000424DDE0200000000000036000000280000002D00
          0000050000000100180000000000A8020000120B0000120B0000000000000000
          0000E8E8E8999C9DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFE8E8E8E8E8E800999C9DE6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6
          E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6
          E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6
          E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6
          E6E6E6E6E6E6E6E6E6E6E6E6E6E6FFFFFF00999C9DCFCFCECFCFCFCFCFCECECF
          CFCFCECFCECFCECECECFCFCFCFCFCECFCECFCECFCECECFCECECECECECECECFCF
          CFCECECFCECFCECECFCECFCECFCECFCFCECFCECFCFCECECECFCECFCFCFCECECE
          CECECECECECFCECECECECECECFCFCECECECECFCFCFCFCECFCECECFCFCECECFCF
          CECECFCECFCECECECFCFCFCFCECECFCECECFCECECECFFFFFFF00999C9DB7B7B7
          B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7
          B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7
          B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7
          B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7B7FFFF
          FF00E8E8E8999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D
          999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C
          9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D99
          9C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D999C9D
          999C9DFFFFFFE8E8E800}
        SliderImage.Data = {
          07544269746D617006030000424D060300000000000036000000280000000B00
          0000140000000100180000000000D0020000120B0000120B0000000000000000
          0000FF00FFFF00FFFF00FFFF00FFFF00FFBE9A63FF00FFFF00FFFF00FFFF00FF
          FF00FF000000FF00FFFF00FFFF00FFFF00FFCDAB72D3B175CDAB72FF00FFFF00
          FFFF00FFFF00FF000000FF00FFFF00FFFF00FFD2B379E3C283EBC987E3C283D2
          B379FF00FFFF00FFFF00FF000000FF00FFFF00FFD0AD73E2BD7CF5CD88F5CD88
          F5CD88E2BD7CD0AD73FF00FFFF00FF000000FF00FFCBA46ADEB373EDBF7BF4C6
          7FF6C87FF4C67FEDBF7BDEB373CBA46AFF00FF000000BF945CD4A566E6B26EF3
          BC74F3BC74F3BC74F3BC74EFBA72E6B26ED4A566BF945C000000BE8C53D69E5C
          E7AA64ECAE66ECAE66ECAE66ECAE66ECAE66E7AA64D69E5CBE8C53000000BB83
          48D39451E39D57E6A259E8A259E6A259E8A259E6A259E39D57D39451BB834800
          0000B7793ECE8845DD934AE3964CE3964CE3964CE3964CE3964CDD934ACE8845
          B8793E000000B37035CB803BDE8B42DE8B42DE8B42DE8B42DE8B42DE8B42DE8B
          42CB7F3BB37035000000B16B2FC87835D68139DB843ADB843ADB843ADB843ADB
          843AD68139C87835B16B2F000000B16B2FC87835D68139DB843ADB843ADB843A
          DB843ADB843AD68139C87835B16B2F000000B16B2FC87835D68139DB843ADB84
          3ADB843ADB843ADB843AD68139C87835B16B2F000000B16B2FC87835D68139DB
          843ADB843ADB843ADB843ADB843AD68139C87835B16B2F000000B47842CC874B
          DF9452DF9452E09452DF9452DF9452DF9452DF9452CC874BB47842000000BA8A
          5DD39A6AE2A670E5AA74E5AA74E5AA74E5AA74E5AA74E2A670D39A6ABA8A5D00
          0000C09E7CDAB38CE9BF96EDC49AEDC49AEDC49AEDC49AEDC49AE9BF96DAB38C
          C09E7C000000C1AA93DCC3A9ECD1B4F1D4B9F1D4B9F1D4B9F1D4B9F1D4B9ECD1
          B4DCC3A9C1AA93000000C3B6A5D5C7B4E4D4C0E4D4C0E4D4C0E4D4C0E4D4C0E4
          D4C0E4D4C0D5C7B4C3B6A5000000FF00FFC1AA93C1AA93C7B099C7B099C7B099
          C7B099C7B099C1AA93C1AA93FF00FF000000}
        Max = 13
        Min = 0
        Position = 0
        PageSize = 2
        LineSize = 1
        ShowTick = True
        Transparent = True
        Frequency = 1
        ParentColor = True
        TabOrder = 0
        TabStop = True
        OnChange = suiTrackBar1Change
      end
    end
    object suiButton3: TsuiButton
      Left = 304
      Top = 40
      Width = 80
      Height = 27
      Caption = #28909#38190#35774#32622
      AutoSize = False
      UIStyle = MacOS
      TabOrder = 4
      Transparent = True
      ModalResult = 0
      FocusedRectMargin = 2
      Layout = blGlyphLeft
      Spacing = 4
      MouseContinuouslyDownInterval = 100
      OnClick = suiButton3Click
      ResHandle = 0
    end
  end
  object suiPopupMenu1: TsuiPopupMenu
    OwnerDraw = True
    UIStyle = WinXP
    MenuItemHeight = 21
    SeparatorHeight = 5
    BarWidth = 26
    BarColor = 13554646
    Color = clWhite
    SeparatorColor = 8684164
    SelectedBorderColor = 13003057
    SelectedColor = 15717318
    SelectedFontColor = clBlack
    FontColor = clBlack
    BorderColor = clBlack
    FlatMenu = False
    FontName = 'MS Sans Serif'
    FontSize = 8
    FontCharset = DEFAULT_CHARSET
    UseSystemFont = True
    Left = 264
    object N1: TMenuItem
      Caption = #31995#32479#35774#32622
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #36864#20986#31995#32479
      OnClick = N2Click
    end
  end
  object suiMessageDialog1: TsuiMessageDialog
    Position = poScreenCenter
    Caption = 'suiDialog'
    UIStyle = MacOS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    CaptionFont.Charset = DEFAULT_CHARSET
    CaptionFont.Color = clBlack
    CaptionFont.Height = -11
    CaptionFont.Name = 'Tahoma'
    CaptionFont.Style = [fsBold]
    ButtonCursor = crHandPoint
    ButtonCount = 1
    Button1Caption = #30830'  '#23450
    Button2Caption = 'Cancel'
    Button3Caption = 'Cancel'
    Button1ModalResult = 1
    Button2ModalResult = 0
    Button3ModalResult = 0
    IconType = suiNone
    Text = 'Hello world!'
    Left = 216
  end
end