asciichart.dfm

大家是不是为不知道如何在VB学到绝地程序

object fmAsciiChart: TfmAsciiChart
  Left = 261
  Top = 177
  Width = 416
  Height = 358
  Caption = 'ASCII Chart'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
    FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
    FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
    FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
    FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
    CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
    CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
    CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
    CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
    990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
    990033CC990000CC9900FF999900CC9999009999990066999900339999000099
    9900FF669900CC66990099669900666699003366990000669900FF339900CC33
    990099339900663399003333990000339900FF009900CC009900990099006600
    99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
    6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
    660099996600669966003399660000996600FF666600CC666600996666006666
    66003366660000666600FF336600CC3366009933660066336600333366000033
    6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
    330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
    330033CC330000CC3300FF993300CC9933009999330066993300339933000099
    3300FF663300CC66330099663300666633003366330000663300FF333300CC33
    330099333300663333003333330000333300FF003300CC003300990033006600
    33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
    000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
    00003399000000990000FF660000CC6600009966000066660000006600003366
    0000FF330000CC33000099330000663300003333000000330000CC0000009900
    000066000000330000000000DD000000BB000000AA0000008800000077000000
    5500000044000000220000DD000000BB000000AA000000880000007700000055
    00000044000000220000DDDDDD00555555007777770077777700444444002222
    22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000000000000000000000000000000EDEDEDEDEDED00000000000000
    00000000000000000000000000000000A97FD700EDEDEDEDEDED000000000000
    0000000000000000000000000000A9A9A97FD7D7F5EDEDEDEDEDED0000000000
    00000000000000000000000000A9A9A97FD7D7FCD700EDEDEDEDEDED00000000
    00000000000000000000000000A9A9A97FD7D7FCD7D7F5EDEDEDEDEDED000000
    00000000000000000000000000A9A9A97FD7D7FCD7D7FC00EDEDEDEDED000000
    0000000000EDEDEDEDEDEDED00A9A97FD7D7FCD7D7FCD700EDEDED0000000000
    00000000D700EDEDEDEDED00A9A9A97FD7D7FCD7D7FCD700ED00000000000000
    A9A9A900D7D7F5EDEDEDED00A9A9A97FD7D7FCD7D7FC000000000000000000A9
    A9A9A900D7D7FC00EDED0000A9A9A97FD7D7FCD7D7FC00000000000000000000
    A9A9A9A900D7D7FC0000A9A9A9A97FD7D7FCD7D7FCD700000000000000000000
    A9A9A9A900D70000A9A9A9A9A9A97FD7D7FCD7D7FC0000000000000000000000
    00A9A9A90000A9A9A9A9A9A9A9A97FD7D7FCD7D7FC0000000000000000000000
    00A9A9A9A9A9A9A9A9A900A9A9A97FD7D7FCD7D7FC0000000000000000000000
    00A9A9A9A9A9A9A9000000A9A97FD7D7FCD7D7FCD70000000000000000000000
    0000A9A9A9A900007F7F00A9A97FD7D7FCD7D7FC000000000000000000000000
    0000A9A9A9A900D7D77F00A9A97FD7D7FCD7D7FC000000000000000000000000
    000000A9A9A9A900D700A9A9A97FD7D7FCD7D7FC000000000000000000000000
    000000A9A9A9A900D700A9A97FD7D7FCD7D7FCD7000000000000000000000000
    00000000A9A9A9A90000A9A97FD7D7FCD7D7FC00000000000000000000000000
    00000000A9A9A9A90000A9A97FD7D7FCD7D7FC00000000000000000000000000
    0000000000A9A9A9A9A9A9A97FD7D7FCD7D7FC00000000000000000000000000
    0000000000A9A9A9A9A9A97FD7D7FCD7D7FCD700000000000000000000000000
    0000000000A9A9A9A9A95555D7D7FCD7D7FC0000000000000000000000000000
    000000000000A9A955557F7F55D7D7FCD7D7F500000000000000000000000000
    00000000000055557F7F7F7F7F55D7D7FCD70000000000000000000000000000
    000000000000007F7F7F7F7F7F7F55D7D7FC0000000000000000000000000000
    00000000000000007F7F7F7F7F7F7F55D7000000000000000000000000000000
    0000000000000000007F7F7F7F7F7F7F55000000000000000000000000000000
    000000000000000000007F7F7F7F7F0000000000000000000000000000000000
    00000000000000000000007F7F0000000000000000000000000000000000FFFF
    FFFFFFFFC01FFFFF000FFFFE0007FFFC0003FFFC0001FFFC0001F0000007C000
    001F0000007F0000007F8000007F800000FFC00000FFC00000FFC00000FFE000
    01FFE00001FFF00001FFF00001FFF80003FFF80003FFFC0003FFFC0003FFFC00
    07FFFE0007FFFE0007FFFF0007FFFF800FFFFFC00FFFFFE01FFFFFF07FFF}
  KeyPreview = True
  OldCreateOrder = True
  Position = poDefault
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnDeactivate = FormDeactivate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 21
    Width = 408
    Height = 11
    Align = alTop
    Shape = bsTopLine
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 408
    Height = 21
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object btnCharHigh: TSpeedButton
      Left = 30
      Top = 0
      Width = 30
      Height = 21
      Hint = 'Toggles display of High/Low ASCII Characters'
      GroupIndex = 1
      Caption = '&High'
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = btnCharHighClick
    end
    object btnCharInt: TSpeedButton
      Left = 62
      Top = 0
      Width = 30
      Height = 21
      Hint = 'Toggles character values between Hex and Int'
      GroupIndex = 2
      Caption = '&Dec'
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = btnCharIntClick
    end
    object btnCharLow: TSpeedButton
      Left = 0
      Top = 0
      Width = 30
      Height = 21
      Hint = 'Toggles display of High/Low ASCII Characters'
      GroupIndex = 1
      Caption = '&Low'
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = btnCharHighClick
    end
    object btnCharHex: TSpeedButton
      Left = 92
      Top = 0
      Width = 30
      Height = 21
      Hint = 'Toggles character values between Hex and Int'
      GroupIndex = 2
      Caption = 'He&x'
      ParentShowHint = False
      ShowHint = True
      Spacing = -1
      OnClick = btnCharIntClick
    end
    object FontComboName: TComboBox
      Left = 124
      Top = 0
      Width = 116
      Height = 21
      Hint = 'Character Font'
      Style = csDropDownList
      Ctl3D = True
      DropDownCount = 15
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = FontComboNameChange
      OnEnter = FontComboNameEnter
    end
    object txtChars: TEdit
      Left = 284
      Top = 0
      Width = 122
      Height = 21
      Hint = 'Selected Characters'
      AutoSize = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object FontSizeEdit: TEdit
      Left = 240
      Top = 0
      Width = 25
      Height = 21
      MaxLength = 2
      TabOrder = 1
      Text = '6'
      OnChange = FontSizeEditChange
    end
    object FontSizeUpDown: TUpDown
      Left = 265
      Top = 0
      Width = 15
      Height = 21
      Associate = FontSizeEdit
      Min = 6
      Max = 20
      Position = 6
      TabOrder = 3
      Wrap = False
      OnClick = FontSizeUpDownClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 312
    Width = 408
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenu1Popup
    Left = 64
    Top = 32
    object ShowLowCharacters1: TMenuItem
      Caption = 'Show Characters 0-127'
      GroupIndex = 1
      RadioItem = True
      OnClick = btnCharHighClick
    end
    object ShowHighCharacters1: TMenuItem
      Caption = 'Show Characters 128-255'
      GroupIndex = 1
      RadioItem = True
      OnClick = btnCharHighClick
    end
    object N3: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object CVInt: TMenuItem
      Caption = 'Character Values as Integer'
      GroupIndex = 2
      RadioItem = True
      OnClick = btnCharIntClick
    end
    object CVHex: TMenuItem
      Caption = 'Character Values as Hex'
      GroupIndex = 2
      RadioItem = True
      OnClick = btnCharIntClick
    end
    object N4: TMenuItem
      Caption = '-'
      GroupIndex = 2
    end
    object FontSize8: TMenuItem
      Tag = 8
      Caption = 'Font Size := 8'
      GroupIndex = 3
      RadioItem = True
      OnClick = btnSizeClick
    end
    object FontSize10: TMenuItem
      Tag = 10
      Caption = 'Font Size := 10'
      GroupIndex = 3
      RadioItem = True
      OnClick = btnSizeClick
    end
    object FontSize12: TMenuItem
      Tag = 12
      Caption = 'Font Size := 12'
      GroupIndex = 3
      RadioItem = True
      OnClick = btnSizeClick
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 3
    end
    object ShowFontPalette1: TMenuItem
      Caption = 'Show Font Palette'
      GroupIndex = 3
      OnClick = ShowFontPalette1Click
    end
    object HintActive1: TMenuItem
      Caption = 'Show Hint'
      Checked = True
      GroupIndex = 3
      OnClick = HintActive1Click
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 3
    end
    object Help: TMenuItem
      Caption = 'Help'
      GroupIndex = 3
      ShortCut = 112
    end
  end
  object HintTimer: TTimer
    Interval = 3000
    OnTimer = HintTimerTimer
    Left = 8
    Top = 32
  end
end