grepresultsdlg.dfm

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

        0400000000000001000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        333333333333333333333333333FF33333333333333FF3333333333333700F33
        3333333333700F3333333333370990F333333333370880F3333333337099990F
        333333337088880F3333333709999990F333333708888880F333333709999990
        F333333708888880F33333337099990F333333337088880F33333333370990F3
        33333333370880F33333333333700F333333333333700F333333333333377333
        3333333333377333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbAbortClick
    end
    object sbHelp: TSpeedButton
      Left = 361
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Help (F1)'
      Flat = True
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888888800008888888888888888888800008888888887778888888800008888
        8888600788888888000088888888E60788888888000088888888EE6888888888
        000088888888877788888888000088888888600788888888000088888888E607
        78888888000088888888E660778888880000888888888E660778888800008888
        888878E660778888000088888880778E660788880000888888660778E6078888
        0000888888E66077E608888800008888888E660066688888000088888888E666
        6E8888880000888888888EEEE888888800008888888888888888888800008888
        88888888888888880000}
      ParentShowHint = False
      ShowHint = True
    end
    object sbFont: TSpeedButton
      Left = 254
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Font (Ctrl+F)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFF33FFFFF33333300033000
        00333337773377777333333330333300033333337FF33777F333333330733300
        0333333377FFF777F33333333700000073333333777777773333333333033000
        3333333337FF777F333333333307300033333333377F777F3333333333703007
        33333333377F7773333333333330000333333333337777F33333333333300003
        33333333337777F3333333333337007333333333337777333333333333330033
        3333333333377333333333333333033333333333333733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbFontClick
    end
    object sbPrint: TSpeedButton
      Left = 162
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Print results (Ctrl+P)'
      Flat = True
      Glyph.Data = {
        4E010000424D4E01000000000000760000002800000012000000120000000100
        040000000000D800000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DDDDDD000000DDD00000000000DDDD000000DD0777777777070DDD000000D000
        000000000070DD000000D0777777FFF77000DD000000D077777799977070DD00
        0000D0000000000000770D000000D0777777777707070D000000DD0000000000
        70700D000000DDD0FFFFFFFF07070D000000DDDD0FCCCCCF0000DD000000DDDD
        0FFFFFFFF0DDDD000000DDDDD0FCCCCCF0DDDD000000DDDDD0FFFFFFFF0DDD00
        0000DDDDDD000000000DDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD
        DDDDDD000000DDDDDDDDDDDDDDDDDD000000}
      OnClick = sbPrintClick
    end
    object sbRefresh: TSpeedButton
      Left = 94
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Refresh search results (F5)'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00202222222222
        22222822222222222222000288822222222288827F72222222222008CCC22222
        22222887888222222222228CC44222222222227887722222222222CC40222222
        2222228878222222222222CC08B280008222228888727888722222CCFB008888
        80222288F788F7F7F82222CCFF0887F7F8022288FF8F77F7FF8222CC888CC87F
        7F882288F7F8877F7FF7224CC88CCC87F78022788F788877F7782224CCCCCCCF
        7F8022278888888F7FF822224CCCCC47F780222278888877F7782222288CC47F
        7F88222227F8877F7FF72222220C47F7F8022222228877F7FF82222222208888
        802222222228F7F7F82222222222800082222222222278887222}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = sbRefreshClick
    end
    object sbReplace: TSpeedButton
      Left = 29
      Top = 1
      Width = 25
      Height = 25
      Hint = 'Replace...'
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FF000000FF00FFFF00FFFF00FF808080808080808080FF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF00FF8080
        80FF00FFFF00FF808080FF00FFFF00FFFF00FFFF00FF000000FF00FF000000FF
        00FF000000000000000000FF00FF808080FF00FFFF00FF808080FF00FFFF00FF
        000000FF00FFFF00FFFF00FFFF00FFFF00FF000000000000FF00FFFF00FF8080
        80808080808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FF000000FF00FFFF00FFFF00FF808080FF00FFFF00FF808080FF00FF000000
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF8080
        80FF00FFFF00FF808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FF000000FF00FF808080808080808080FF00FFFF00FFFF00FF
        000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FF
        FF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FF000000FF00FFFF00FFFF
        00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF808080000000
        000000000000808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FF000000FF00FF000000FF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FF000000FF00FF000000FF00FFFF00FFFF00FFFF00FF808080
        000000808080FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0000000000
        00FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FF000000000000000000FF00FFFF00FFFF00FF}
      ParentShowHint = False
      ShowHint = True
      OnClick = sbReplaceClick
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 405
    Width = 389
    Height = 19
    Panels = <
      item
        Width = 250
      end
      item
        Width = 60
      end>
    SimplePanel = False
  end
  object lbResults: TListBox
    Left = 0
    Top = 28
    Width = 389
    Height = 377
    Align = alClient
    ItemHeight = 17
    Style = lbOwnerDrawFixed
    TabOrder = 2
    OnDblClick = sbGotoClick
    OnDrawItem = lbResultsDrawItem
    OnKeyPress = lbResultsKeyPress
    OnMouseDown = lbResultsMouseDown
    OnMouseMove = lbResultsMouseMove
    OnMouseUp = lbResultsMouseUp
  end
  object dlgGrepFont: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 8
    Top = 40
  end
  object MainMenu: TMainMenu
    Left = 40
    Top = 40
    object mnuFile: TMenuItem
      Caption = '&File'
      OnClick = mnuTopClick
      object mnuSearch: TMenuItem
        Caption = '&Search...'
        ShortCut = 16467
        OnClick = mnuSearchClick
      end
      object mnuRefresh: TMenuItem
        Caption = 'Refresh'
        ShortCut = 116
        OnClick = mnuRefreshClick
      end
      object mnuAbort: TMenuItem
        Caption = 'Abort'
        ShortCut = 16449
        OnClick = mnuAbortClick
      end
      object mnuPrint: TMenuItem
        Caption = '&Print...'
        ShortCut = 16464
        OnClick = mnuPrintClick
      end
      object mnuOnTop: TMenuItem
        Caption = '&Stay on Top'
        OnClick = mnuOnTopClick
      end
      object mnuFileSep: TMenuItem
        Caption = '-'
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
    object mnuList: TMenuItem
      Caption = '&List'
      OnClick = mnuTopClick
      object mnuGotoSelected: TMenuItem
        Caption = 'Goto Selected'
        OnClick = mnuGotoSelectedClick
      end
      object mnuContract: TMenuItem
        Caption = '&Contract'
        ShortCut = 16462
        OnClick = mnuContractClick
      end
      object mnuExpand: TMenuItem
        Caption = '&Expand'
        ShortCut = 16453
        OnClick = mnuExpandClick
      end
      object mnuFont: TMenuItem
        Caption = '&Font...'
        ShortCut = 16454
        OnClick = mnuFontClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuHelpHelp: TMenuItem
        Caption = '&Help'
        ShortCut = 112
      end
      object mnuHelpAbout: TMenuItem
        Caption = '&About...'
      end
    end
  end
end