z_add.dfm

一个浏览器 比较简单的程序,适合处学者使用和学习.有意见联系我 .

object Form3: TForm3
  Left = 411
  Top = 150
  AutoSize = True
  Caption = #36164#26009#39302'_'#23383#31867#28155#21152
  ClientHeight = 441
  ClientWidth = 649
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mm1
  OldCreateOrder = False
  Position = poDesigned
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 649
    Height = 441
    Caption = 'Panel1'
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 52
      Height = 13
      Caption = #25991#31456#39064#30446':'
    end
    object Label2: TLabel
      Left = 16
      Top = 88
      Width = 52
      Height = 13
      Caption = #25991#31456#20869#23481':'
    end
    object Edit1: TEdit
      Left = 82
      Top = 13
      Width = 399
      Height = 21
      TabOrder = 0
    end
    object SynMemo1: TSynMemo
      Left = 74
      Top = 88
      Width = 567
      Height = 305
      CodeFolding.CaseSensitive = False
      CodeFolding.FolderBarLinesColor = 9617866
      ActiveLine.Background = clYellow
      ActiveLine.Foreground = clNavy
      ActiveLine.Visible = True
      LineDivider.Visible = False
      LineDivider.Color = clRed
      LineDivider.Style = psSolid
      RightEdge.MouseMove = False
      RightEdge.Visible = True
      RightEdge.Position = 80
      RightEdge.Color = clSilver
      RightEdge.Style = psSolid
      LineSpacing = 0
      LineSpacingRule = lsSingle
      ScrollBars.Style = sbsRegular
      Background.Visible = False
      Background.RepeatMode = brmNone
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      TabOrder = 1
      Gutter.ShowLineModified = False
      Gutter.LineModifiedColor = clYellow
      Gutter.LineNormalColor = clLime
      Gutter.Font.Charset = DEFAULT_CHARSET
      Gutter.Font.Color = clWindowText
      Gutter.Font.Height = -11
      Gutter.Font.Name = 'Courier New'
      Gutter.Font.Style = []
      Gutter.LeftOffsetColor = clNone
      Gutter.RightOffsetColor = clNone
      WordWrap.Enabled = False
      WordWrap.Position = 80
      WordWrap.Style = wwsClientWidth
    end
    object Button1: TButton
      Left = 96
      Top = 399
      Width = 75
      Height = 25
      Caption = #25552#20132
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 208
      Top = 399
      Width = 75
      Height = 25
      Caption = #32534#36753
      TabOrder = 3
      OnClick = Button2Click
    end
    object ComboBox1: TComboBox
      Left = 82
      Top = 53
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = #36873#25321#29238#31867
      Visible = False
      OnChange = ComboBox1Change
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 8
    Top = 112
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=LIB.mdb;Persist Sec' +
      'urity Info=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 112
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 144
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 112
  end
  object actlst1: TActionList
    Left = 16
    Top = 16
    object aSynReadOnly1: TaSynReadOnly
      Category = 'SynEdit'
      Caption = #21482#35835
    end
    object aSynNormalSelect1: TaSynNormalSelect
      Category = 'SynEdit'
      Caption = #27491#24120#36873#25321#27169#24335
    end
    object aSynColumnSelect1: TaSynColumnSelect
      Category = 'SynEdit'
      Caption = #21015#36873#25321#27169#24335
    end
    object aSynLineSelect1: TaSynLineSelect
      Category = 'SynEdit'
      Caption = #34892#36873#25321#27169#24335
    end
    object aSynUndo1: TaSynUndo
      Category = 'SynEdit'
      Caption = #25746#28040'(&U)'
      ShortCut = 16474
    end
    object aSynRedo1: TaSynRedo
      Category = 'SynEdit'
      Caption = #37325#20570'(&R)'
      ShortCut = 16473
    end
    object aSynCut1: TaSynCut
      Category = 'SynEdit'
      Caption = #21098#20999'(&X)'
      ShortCut = 16472
    end
    object aSynAppendCut1: TaSynAppendCut
      Category = 'SynEdit'
      Caption = #21098#20999#24182#38468#21152
    end
    object aSynCopy1: TaSynCopy
      Category = 'SynEdit'
      Caption = #22797#21046'(&C)'
      ShortCut = 16451
    end
    object aSynAppendCopy1: TaSynAppendCopy
      Category = 'SynEdit'
      Caption = #22797#21046#24182#38468#21152
    end
    object aSynPaste1: TaSynPaste
      Category = 'SynEdit'
      Caption = #31896#36148'(&P)'
      ShortCut = 16470
    end
    object aSynDeleteNextchar1: TaSynDeleteNextchar
      Category = 'SynEdit'
      Caption = #21024#38500'(&D)'
      ShortCut = 46
    end
    object aSynDeleteLastChar1: TaSynDeleteLastChar
      Category = 'SynEdit'
      Caption = 'aSynDeleteLastChar1'
    end
    object aSynDeleteWordToEnd1: TaSynDeleteWordToEnd
      Category = 'SynEdit'
      Caption = #21024#38500#33267#35789#23614
    end
    object aSynDeleteWordToStart1: TaSynDeleteWordToStart
      Category = 'SynEdit'
      Caption = #21024#38500#33267#35789#39318
    end
    object aSynDeleteWord1: TaSynDeleteWord
      Category = 'SynEdit'
      Caption = #21024#38500#20809#26631#22788#35789
    end
    object aSynDeleteLineToEnd1: TaSynDeleteLineToEnd
      Category = 'SynEdit'
      Caption = #21024#38500#33267#34892#23614
    end
    object aSynDeleteLineToStart1: TaSynDeleteLineToStart
      Category = 'SynEdit'
      Caption = #21024#38500#33267#34892#39318
    end
    object aSynDeleteLine1: TaSynDeleteLine
      Category = 'SynEdit'
      Caption = #21024#38500#20809#26631#22788#34892
    end
    object aSynClearAll1: TaSynClearAll
      Category = 'SynEdit'
      Caption = #28165#38500#20840#37096
    end
    object aSynSelectAll1: TaSynSelectAll
      Category = 'SynEdit'
      Caption = #20840#37096#36873#25321'(&A)'
      ShortCut = 16449
    end
    object aSynSelectLine1: TaSynSelectLine
      Category = 'SynEdit'
      Caption = #36873#25321#24403#21069#34892
    end
    object aSynSelectNextLine1: TaSynSelectNextLine
      Category = 'SynEdit'
      Caption = #36873#25321#19979#19968#34892
    end
    object aSynSelectLastLine1: TaSynSelectLastLine
      Category = 'SynEdit'
      Caption = #36873#25321#19978#19968#34892
    end
    object aSynSelectWrod1: TaSynSelectWrod
      Category = 'SynEdit'
      Caption = #36873#25321#24403#21069#35789
    end
    object aSynSelectNextWord1: TaSynSelectNextWord
      Category = 'SynEdit'
      Caption = #36873#25321#19979#19968#35789
      ShortCut = 40999
    end
    object aSynSelectLastWord1: TaSynSelectLastWord
      Category = 'SynEdit'
      Caption = #36873#25321#19978#19968#35789
      ShortCut = 40997
    end
    object aSynGotoBookmark1: TaSynGotoBookmark
      Category = 'SynEdit'
      Caption = #20070#31614'0'
      ShortCut = 16432
      Bookmark = 0
    end
    object aSynSetBookmark1: TaSynSetBookmark
      Category = 'SynEdit'
      Caption = #20070#31614'0'
      ShortCut = 24624
      Bookmark = 0
    end
    object aSynClearBookmark1: TaSynClearBookmark
      Category = 'SynEdit'
      Caption = #28165#38500#25152#26377#20070#31614
      Bookmark = -1
    end
    object aSynGotoLastChange1: TaSynGotoLastChange
      Category = 'SynEdit'
      Caption = #36339#36716#21040#19978#27425#20462#25913#22788
      ShortCut = 49223
    end
    object aSynMatchBracket1: TaSynMatchBracket
      Category = 'SynEdit'
      Caption = #21305#37197#36339#36716
    end
    object aSynCommentBlock1: TaSynCommentBlock
      Category = 'SynEdit'
      Caption = #27880#37322#22359
    end
    object aSynFind1: TaSynFind
      Category = 'SynEdit'
      Caption = #26597#25214'(&F)...'
      ShortCut = 16454
    end
    object aSynFindNext1: TaSynFindNext
      Category = 'SynEdit'
      Caption = #26597#25214#19979#19968#20010
      ShortCut = 114
    end
    object aSynFindLast1: TaSynFindLast
      Category = 'SynEdit'
      Caption = #26597#25214#19978#19968#20010
    end
    object aSynFindNextWord1: TaSynFindNextWord
      Category = 'SynEdit'
      Caption = #26597#25214#19979#19968#20010#21333#35789
    end
    object aSynFindLastWord1: TaSynFindLastWord
      Category = 'SynEdit'
      Caption = #26597#25214#19978#19968#20010#21333#35789
    end
    object aSynReplace1: TaSynReplace
      Category = 'SynEdit'
      Caption = #26367#25442'(&R)...'
      ShortCut = 16466
    end
    object aSynReplaceNext1: TaSynReplaceNext
      Category = 'SynEdit'
      Caption = #26367#25442#19979#19968#20010
      ShortCut = 115
    end
    object aSynReplaceLast1: TaSynReplaceLast
      Category = 'SynEdit'
      Caption = #26367#25442#19978#19968#20010
    end
    object aSynUpperCase1: TaSynUpperCase
      Category = 'SynEdit'
      Caption = 'aSynUpperCase1'
    end
    object aSynLowerCase1: TaSynLowerCase
      Category = 'SynEdit'
      Caption = 'aSynLowerCase1'
    end
    object aSynToggleCase1: TaSynToggleCase
      Category = 'SynEdit'
      Caption = 'aSynToggleCase1'
    end
    object aSynTitleCase1: TaSynTitleCase
      Category = 'SynEdit'
      Caption = 'aSynTitleCase1'
    end
    object aSynBlockIndent1: TaSynBlockIndent
      Category = 'SynEdit'
      Caption = 'aSynBlockIndent1'
    end
    object aSynBlockUnindent1: TaSynBlockUnindent
      Category = 'SynEdit'
      Caption = 'aSynBlockUnindent1'
    end
    object aSynInsertLine1: TaSynInsertLine
      Category = 'SynEdit'
      Caption = 'aSynInsertLine1'
    end
    object aSynLineBreak1: TaSynLineBreak
      Category = 'SynEdit'
      Caption = 'aSynLineBreak1'
    end
    object aSynFileFormatDos1: TaSynFileFormatDos
      Category = 'SynEdit'
      Caption = 'aSynFileFormatDos1'
    end
    object aSynFileFormatMac1: TaSynFileFormatMac
      Category = 'SynEdit'
      Caption = 'aSynFileFormatMac1'
    end
    object aSynFileFormatUnix1: TaSynFileFormatUnix
      Category = 'SynEdit'
      Caption = 'aSynFileFormatUnix1'
    end
    object aSynPrint1: TaSynPrint
      Category = 'SynEdit'
      Caption = #25171#21360'(&P)...'
      ShortCut = 16464
    end
    object aSynQuickPrint1: TaSynQuickPrint
      Category = 'SynEdit'
      Caption = #24555#36895#25171#21360
    end
    object aSynExporter1: TaSynExporter
      Category = 'SynEdit'
      Caption = #23548#20986#21040'RTF...'
    end
    object aSynExporter2: TaSynExporter
      Category = 'SynEdit'
      Caption = #23548#20986#21040'HTML...'
    end
    object aSynExporter3: TaSynExporter
      Category = 'SynEdit'
      Caption = #23548#20986#21040'TEX...'
    end
    object aSynSave1: TaSynSave
      Category = 'SynEdit'
      Caption = #20445#23384'(&S)'
      ShortCut = 16467
      SaveDialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    end
    object aSynSaveAs1: TaSynSaveAs
      Category = 'SynEdit'
      Caption = #21478#23384#20026'(&A)...'
      SaveDialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    end
    object aSynSaveSel1: TaSynSaveSel
      Category = 'SynEdit'
      Caption = #20445#23384#36873#25321#21306#22495'...'
      SaveDialogOptions = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    end
    object aSynNew1: TaSynNew
      Category = 'SynEdit'
      Caption = #26032#24314'(&N)'
      ShortCut = 16462
      DocumentName = #26032#24314#25991#26723
    end
    object aSynGotoBookmark2: TaSynGotoBookmark
      Category = 'SynEdit'
      Caption = #20070#31614'1'
      ShortCut = 16433
      Bookmark = 1
    end
    object aSynSetBookmark2: TaSynSetBookmark
      Category = 'SynEdit'
      Caption = #20070#31614'1'
      ShortCut = 24625
      Bookmark = 1
    end
    object aSynGotoBookmark3: TaSynGotoBookmark
      Category = 'SynEdit'
      Caption = #20070#31614'2'
      ShortCut = 16434
      Bookmark = 2