From: Maël Hörz <ma...@us...> - 2008-10-25 23:15:56
|
Update of /cvsroot/synedit/SynEdit/Demos/HighlighterDemo In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv9391/Demos/HighlighterDemo Modified Files: Tag: Unicode_2004_08_31 SynHighlighterSample.pas uMain.dfm Added Files: Tag: Unicode_2004_08_31 HighlighterDemo.dproj Log Message: - SynGenUnit.pas: Use UnicodeString instead of MemoryStream to load the flle contents of a .msg-file , since now the assumption that one Char = one Byte doesn't hold anymore. It was very dangerous to use MemoryStream anyway. - Fix other small issues and warnings for Delphi 2009 --- NEW FILE: HighlighterDemo.dproj --- (This appears to be a binary file; contents omitted.) Index: uMain.dfm =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/HighlighterDemo/uMain.dfm,v retrieving revision 1.2.2.2 retrieving revision 1.2.2.3 diff -u -d -r1.2.2.2 -r1.2.2.3 --- uMain.dfm 10 Nov 2004 21:33:49 -0000 1.2.2.2 +++ uMain.dfm 25 Oct 2008 23:15:48 -0000 1.2.2.3 @@ -1,126 +1,125 @@ -object Form1: TForm1 - Left = 268 - Top = 107 - Width = 696 - Height = 480 - Caption = 'Highlighter demo' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - OldCreateOrder = True - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object SynEdit1: TSynEdit - Left = 0 - Top = 0 - Width = 688 - Height = 446 - Align = alClient - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Courier New' - Font.Style = [] - TabOrder = 0 - Gutter.Font.Charset = DEFAULT_CHARSET - Gutter.Font.Color = clWindowText - Gutter.Font.Height = -11 - Gutter.Font.Name = 'Terminal' - Gutter.Font.Style = [] - Lines.WideStrings = 'SynEdit1' - RemovedKeystrokes = < - item - Command = ecCut - ShortCut = 8238 - end - item - Command = ecPaste - ShortCut = 8237 - end - item - Command = ecDeleteChar - ShortCut = 46 - end - item - Command = ecContextHelp - ShortCut = 112 - end - item - Command = ecPaste - ShortCut = 16470 - end - item - Command = ecCut - ShortCut = 16472 - end - item - Command = ecBlockIndent - ShortCut = 24649 - end - item - Command = ecBlockUnindent - ShortCut = 24661 - end - item - Command = ecLineBreak - ShortCut = 16461 - end - item - Command = ecInsertLine - ShortCut = 16462 - end - item - Command = ecDeleteWord - ShortCut = 16468 - end> - AddedKeystrokes = < - item - Command = ecPaste - ShortCut = 8238 - end - item - Command = ecDeleteChar - ShortCut = 8237 - end - item - Command = ecCut - ShortCut = 46 - end - item - Command = ecContextHelp - ShortCut = 16496 - end - item - Command = ecBlockIndent - ShortCut = 16470 - end - item - Command = ecLineBreak - ShortCut = 16472 - end - item - Command = ecInsertLine - ShortCut = 24649 - end - item - Command = ecDeleteWord - ShortCut = 24661 - end - item - Command = ecBlockUnindent - ShortCut = 16461 - end - item - Command = ecPaste - ShortCut = 16462 - end - item - Command = ecCut - ShortCut = 16468 - end> - end -end +object Form1: TForm1 + Left = 268 + Top = 107 + Caption = 'Highlighter demo' + ClientHeight = 446 + ClientWidth = 688 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = True + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object SynEdit1: TSynEdit + Left = 0 + Top = 0 + Width = 688 + Height = 446 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Courier New' + Font.Style = [] + TabOrder = 0 + Gutter.Font.Charset = DEFAULT_CHARSET + Gutter.Font.Color = clWindowText + Gutter.Font.Height = -11 + Gutter.Font.Name = 'Terminal' + Gutter.Font.Style = [] + RemovedKeystrokes = < + item + Command = ecCut + ShortCut = 8238 + end + item + Command = ecPaste + ShortCut = 8237 + end + item + Command = ecDeleteChar + ShortCut = 46 + end + item + Command = ecContextHelp + ShortCut = 112 + end + item + Command = ecPaste + ShortCut = 16470 + end + item + Command = ecCut + ShortCut = 16472 + end + item + Command = ecBlockIndent + ShortCut = 24649 + end + item + Command = ecBlockUnindent + ShortCut = 24661 + end + item + Command = ecLineBreak + ShortCut = 16461 + end + item + Command = ecInsertLine + ShortCut = 16462 + end + item + Command = ecDeleteWord + ShortCut = 16468 + end> + AddedKeystrokes = < + item + Command = ecPaste + ShortCut = 8238 + end + item + Command = ecDeleteChar + ShortCut = 8237 + end + item + Command = ecCut + ShortCut = 46 + end + item + Command = ecContextHelp + ShortCut = 16496 + end + item + Command = ecBlockIndent + ShortCut = 16470 + end + item + Command = ecLineBreak + ShortCut = 16472 + end + item + Command = ecInsertLine + ShortCut = 24649 + end + item + Command = ecDeleteWord + ShortCut = 24661 + end + item + Command = ecBlockUnindent + ShortCut = 16461 + end + item + Command = ecPaste + ShortCut = 16462 + end + item + Command = ecCut + ShortCut = 16468 + end> + end +end Index: SynHighlighterSample.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Demos/HighlighterDemo/SynHighlighterSample.pas,v retrieving revision 1.6.2.11 retrieving revision 1.6.2.12 diff -u -d -r1.6.2.11 -r1.6.2.12 --- SynHighlighterSample.pas 14 Sep 2008 16:24:57 -0000 1.6.2.11 +++ SynHighlighterSample.pas 25 Oct 2008 23:15:48 -0000 1.6.2.12 @@ -9,10 +9,10 @@ the specific language governing rights and limitations under the License. Code template generated with SynGen. -The original code is: D:\Quellen\Komponenten\SynEdit\Demos\HighlighterDemo\SynHighlighterSample.pas, released 2005-07-01. +The original code is: D:\Quellen\Komponenten\SynEdit\Demos\HighlighterDemo\SynHighlighterSample.pas, released 2008-10-25. Description: The initial author of this file is Maël Hörz. -Copyright (c) 2005, all rights reserved. +Copyright (c) 2008, all rights reserved. Contributors to the SynEdit and mwEdit projects are listed in the Contributors.txt file. @@ -287,7 +287,7 @@ Inc(Run); if (fLine[Run] = '*') then begin - Inc(Run); + Inc(Run, 1); fRange := rsCStyleComment; fTokenID := tkComment; end |