history.txt

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

{***************************************************************
 * Initialization Date : 99-12-15 8:55:49
 *
 * Unit Name   : MainEdit
 * Version     : V1.0.1.3
 * Date        : 2000-7-23
 * Purpose     :
 * Author      : riceball ([e-mail])
 * Copyright(C): 1999, 2000 by riceball
 * History     :
 *        Stolen from  ADV_DEMO(Willo van der Merwe) and EditU2.pas
 *        1999-12-15
 *           + Most Recently File List
 *           + Tabs File
 *           + Selection Mode
 *           + Insert DateTime
 *           + ShowLineNo
 *           + Beatiful Icons
 *           + Code Template
 *        1999-12-16
 *           + StatusBar Prompt
 *        1999-12-17
 *           + Export To...
 *           + Goto Line
 *           + Show Current Line with Special Color
 *           + F3 FindNext Enhanced:
 *                if SelText <> '' then Search SelText
 *           + Replace and Replace All Process
 *               + Replace Dialog
 *               + ReplacePrompt Dialog
 *       1999-12-18
 *           + ViewStatusbar and ViewToolbar
 *           * some Update Events
 *           + Options Menu Icon
 *           * About Dialog
 *           * Statusbar: Selection Mode Update
 *           + Can Undo after Saved option
 *       1999-12-19    TurboEdit V1.0.0.0
 *           * Modified property work now
 *           * Caption Update(When File Close)
 *           * the Text to Find or replace can not be in the ComboBox MRU List
 *           * Cut action
 *           * Save As prompt whether overwrite
 *       1999-12-20    TurboEdit V1.0.0.1 Release
 *           + International Resource
 *           * Exectute Open with params
 *           + Bug Rport Menu
 *           + Repalce and Find Options save to INI file.
 *       1999-12-21
 *           !found FileUtil.ShortToLongPath func bug:
 *                 After call it, the OpenFileDialog can not open!!!
 *                 So I have to give up. I export to EditModule
 *                 any body can solve it?
 *           + function CloseFile()
 *           * AddFileToMRL();
 *       1999-12-24
 *           * rename TurboEdit to JediEdit
 *           * Find Next
 *           # Support Dock Site Now [But new problem occus, bug Fully]
 *       1999-12-30
 *           + Hex Edit
 *
 *       2000-01-05 V1.0.0.2
 *           + homepage info in About Dlg
 *               ChenFei([e-mail]) suggest it
 *           + JediLocalStr Unit
 *           - Most Recently File List Count
 *           + Set/Goto Bookmark to popup menu
 *             and click on bookmark Gutter set to bookmark 0
 *               ChenFei([e-mail]) suggest it
 *           + Backup file Option before save
 *           * Delphi Form File Save: if DFM is BIN keep it as binary
 *           * Background Color setting:
 *                 Now it will change all elements' backcolor
 *                 It was suggested by ChenFei([e-mail])
 *       2000-01-06 11:50:46 星期四
 *           * Minor Bug on FileClose.
 *           * Forgot translate File|Recent Files Menu and some items on syntax highlighter combobox.
 *           * Smart Save Delphi From File (sorry I forget uncomment my debug use)
 *       2000-1-8 9:21 V1.0.0.3 Release
 *           + New Highlighter Added:
 *               + Foxpro Syntax highlighter
 *               + Fortran Syntax highlighter
 *               + Baan Syntax highlighter [Special for Max Belugin([e-mail]) :-)]
 *       2000-1-9 16:09
 *           * Forgot free AppVerInfo!!
 *           * find the reason Exporter can not work.<not modify highlitger, but foxpro highlighter>
 *       2000-1-10 9:46
 *           + WantTabs
 *           + RTF Exporter Support Background Color Now
 *           + HTML Exporter Support Background Color and Font BackColor Now
 *           * improve The Meothod of Show Current Line to reduce flick
 *           * All Highlighters to Support Exporter work now.
 *       2000-1-12 13:45
 *           + HTML Exporter MWE_MBCSSUPPORT
 *           + RTF Exporter MWE_MBCSSUPPORT
 *           * binary file save: because mwEdit delelte all control chars!
 *           + Menu Item : Open with binary...
 *               Martijn van der Kooij([e-mail]) suggest.
 *           + Menu Item : Windows
 *           + ADSP Syntax Highlighter
 *       2000-1-14 14:09 V1.0.0.4 Release
 *           * Reduce Windows flick
 *       2000-01-15
 *           + ASCII Chart Tools (Thanks GExperts)
 *             李中伟([e-mail]) suggest.
 *.      2000-1-16 15:12
 *           + Hex Goto
 *           + Hex Search
 *       2000-01-17
 *           * Toolbar View
 *              jinzhen([e-mail]) report
 *           ! mwEdit InvalidateLine:
 *               if upper line(CurrentLine-1) has bookmark pic, use InvalidateLine(CurrentLine)
 *               will erase a half of bookmark pic. If the bookmark pic's size bigger
 *               than the line height.
 *           # Configure Tools....
 *              + tsToolConfig Page on OptionDialog(Hide)
 *              + ToolProp Dialog(Chinese Interface finished)
 *           + Overwirte backup file Options
 *              When backup file option enable, you can choose do not overwrite backup file now.
 *       2000-1-18
 *           + MainForm DragDrop File Support
 *              writen by John Romedahl, Denmark([e-mail]). Thanks Joro.
 *           + Auto-sense of binary files(it checks the first 8 kilobytes of the file in order to see if it is binary)
 *              writen by John Romedahl, Denmark([e-mail]). Thanks Joro.
 *           * ShowSplash for faster load.
 *       2000-1-20 V1.0.0.5
 *           + Configure Tools....
 *           * Ascii Chart return ASCII Code now.
 *       2000-01-22
 *           # Print Function
 *       2000-01-24 12:53:38 星期一
 *           + Print Function
 *           * Show Current Line with Special Color
 *           ^ Task(Todo) List
 *           ! mwEdit Search Function Bug:
 *             the Searching is not work with Column or Line Selection.
 *             So when searching , switch to normal selection now.
 *           + procedure OpenFilePos(aFileName: string; const X, Y: Integer);
 *           - FileOpenBin Menu Item
 *      2000-01-25
 *           + Find in Files (Thanks GExperts)
 *           ^ File Associations
 *           * Baan 4GL Syntax Highlighter
 *           + Resource File Syntax Highlighter
 *      2000-01-27
 *           * Resource File Syntax Highlighter
 *           * MRUComboBox
 *      2000-1-28 V1.0.0.6
 *           * Minor bug fixed for Find in Files Dialog Docking
 *           ^ Convert all tab chars to spaces when load file...
 *      2000-02-06 v1.0.0.7
 *           + JediEdit Menu, right click on a file in File Explorer
 *           + Language Menu
 *      2000-02-13
 *           * In Hex Edit mode, press TAB key to let the Syntax Hilight ComboBox
 *             in the toolbar get the focus, then press any arrow key, I will get
 *             an error dialog "Can't focus on a disabled or invisible window".
 *             report by Seal([e-mail])
 *           + 68HC11 Assembler Syntax Highlighter
 *           + Javascript files Syntax Highlighter
 *           + Cascading Stylesheets Syntax Highlighter
 *           + Cache files Syntax Highlighter
 *           + Kix Scripts Syntax Highlighter
 *      2000-02-15 星期二
 *           * Ascii Chart can't resume font name and size
 *      2000-02-16 V1.0.0.8
 *           * Minor bugs fixed.
 *      2000-02-19 16:49:42
 *           + MBCS Supported for GrepSearchResultDialog
 *      2000-02-22
 *           + Replace in Files
 *      2000-02-28 V1.0.0.9
 *           * BAAN and RC Syntax Highlighters
 *           + remember last open files and pos.
 *              suggest by [e-mail]
 *           ^ Ctrl+PGUP or Ctrl+PGDN jump between proc or func
 *              suggest by [e-mail]
 *      2000-3-18 19:40
 *           ^ I would like to tell JediEdit to use .INI template to other extention(.CFG, ...).
 *              Suggest by Jean-Pierre Li閚ard.([e-mail])
 *       2000-04-03
 *             + mkRexxSyn
 *                writen and provide by Martijn van der Kooij
 *             + remember and restore bookmarks for last open files
 *       2000-4-4 15:21
 *             + ShowSplash or not switch in Options Dialog
 *             * change "Color" Page name in Options Dialog to "Languages" page name
 *             + can change the extention name for language at "Languages" page in Options Dialog
 *               Suggest by Jean-Pierre Li閚ard.([e-mail])
 *             + auto load borland help files to Tools Menu	
 *       2000-4-7 14:34
 *             + Navigate Keys Commands: Ctrl+PGUP, Ctrl+PGDN
 *                - Jump between Proc or func
 *               suggest by [e-mail]
 *             ^ Marco language:
 *                      'autorun.rbs'
 *                   Can enabled or diabled auto-run Marco script in Options Dialog.
 *             ^ Key recorder
 *             + if not found string ,show "data not found" message.
 *       2000-4-9 10:14 V1.0.1.0
 *             * auto load borland help files to Tools Menu	
 *             + Custom Tools can set Param and work dir now
 *               the Param and work dir support "variables" like:
 *                 %FileName%: the current file name.
 *                 %FilePath%: the current file path.
 *             + Italian Language
 *                 translated by Salvatore Meschini([e-mail])
 *       2000-4-13
 *             + Dutch Language
 *                 translated by Djek Eykhout([e-mail])
 *       2000-4-14 17:11
 *             * I encountered some problems with the replace dialog.On CTRL-R it doesn't load the selection but the complete word.the second time it loads the selection.
 *                 report by Djek Eykhout([e-mail])
 *       2000-4-25 17:08
 *             ^ Collaspe/Expand Lines
 *       2000-4-26 10:56
 *             # Navigate Keys Commands: Ctrl+Shift+C
 *               Procedure auto-complete: Just for Delphi(Pascal) Only.
 *               Enter the Procedure Header in Interface, Click Ctrl+Shift+C, it'll make the procedure protocol in implementation.
 *       2000-5-01
 *             + Inno Setup Script Highlighter support
 *               writen and provide by Satya([e-mail])
 *       2000-5-02
 *             + Collaspe/Expand,  Expand All, Collaspe All Actions for Popmenu and mainMenu
 *       2000-5-3 10:37
 *             + Store Current Language as default Language
 *             ^ Custom your own language highlighter with ini file.
 *             + Navigate Keys for Collaspe/Expand
 *                 Ctrl+[: prev; Ctrl+]: Next
 *       2000-5-4 9:52 <JediEdit V1.0.1.1 Release>
 *             + Simple Keyboard Macro Recorder
 *               Play: Play the last recorded macro
 *               Stop: Stop macro record or play
 *               Pause: Pause macro record
 *               Record: Record macro
 *               Manager: choose and confirm the macro play , shortcut manage, Add, del< not imp>
 *      2000-05-06 <JediEdit V1.0.1.2 Release>
 *            * Record Macro Display translation info Missed
 *            * Forget translatting Collapse inputbox info
 *            * Collapse/Expand ShortCut key F4 to F6
 *            * Hex Edit can not Undo
 *            * Show All Suported Files Extentions in Open Dialog
 *            + Icon for Click for Expanded Codes
 *              Now, you can click to expand and click again to collapse again.
 *              Suggest by Skyface
 *      2000-05-07
 *            ^ Custom your own language highlighters
 *              1. Create a New General highlighter :
 *                    I. Can Custom comments type.
 *                   II. Can custom Keywords type, such as: Proc, ident, key, asm.
 *                  III. Can support MBCS keywords switch.
 *                   IV. Can define own charset.
 *              2. remove General highlighter
 *              3. create General highlighter at runtime
 *              4. define own language highlighters ini file format.
 *      2000-05-21
 *            * MBCS display Bug in: SynEdit.pas
 *              当水平滚动条向左移动时，中文字符出现乱码。
 *      2000-7-23
 *            * About Dialog
 *            + the File Association Page of the options dialog, now you can freely add or delete File Association which you want.
 *            + German Language
 *                 translated by Thomas_D鰄ler([e-mail]) and Pascal Berger([e-mail])
 *            + Big 5 Language
 *                 translated by Cheng Yin Chun(maybe)
 *            ! Strange Bug: under the Win98 debug Kernel sometime compile it and run, it will report Win32 API call fail.
 *              I can not find the reason. Maybe ComControl error.
 *              I think maybe I fixed it, but maybe not.
 *              有可能是TAction的问题？(X) 我发现错误有时出现有时不出现，如果出现就会出现在打开多个文件的最后一个文件时候！
 *              至少找到问题的大概发生的地方。
 *              Now, I am sure this bug occur at EditModule.LoadSettings() open last_open files; 
 *              if comments these codes all ok, but I can not find the reason.
 *              Now I move these code to mainedit, it is wrong still.
 *              the bug found in OpenFile() Lines.LoadFromFile, I just adjust order. it seem to be OK.:(
 *              问题有可能处在 PageControl 上面！！——换一个非Win95的PageControl的试一试。
 *              也有可能是PageControl勾挂的时间不对。
 *            * 将FormShow的code move to FormCreate，it seem to be OK. Watch!!!
 *            + the description to the Shorcut name of Code Template
 *      2000-07-28 <1.0.1.3>
 *            * Fixed :MBCS Paint Error(Refresh)!!
 *            * It seems to be fixed the Strange Bug. They are OK at present.
 *               I think I have catched the foxy bug, but who knows...
 *     2000-08-05
 *            * I made a mistake: when I had fixed MBCS display Bug in: SynEdit.pas
 *_______________________________________________________________
 *legend:
 *  +  New Feature Added.
 *  #  New(Todo) Feature Added, but not work , just a start.
 *  -  Old Feature removed.
 *  *  Bug Fixed.
 *  !  Bug Found, Not Fixed.
 *  ^  My Todo Wish.
 ****************************************************************}