[Synedit-checkins] SynEdit/Demos/HighlighterDemo HighlighterDemo.dproj, NONE, 1.1.2.1 SynHighlighterSample.pas, 1.6.2.11, 1.6.2.12 uMain.dfm, 1.2.2.2, 1.2.2.3

[Maël Hörz <ma...@us...>]

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