From 906da1f20d4c933e5986b88ef1c4398c29bf2605 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Thu, 16 May 2002 18:26:08 +0000
Subject: [PATCH] MG: fixed selection painting of non highlighter

git-svn-id: trunk@1689 -
---
 components/synedit/synedit.pp    | 6 ++++--
 lcl/interfaces/gtk/gtkwinapi.inc | 6 +++++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp
index 57a4f3113f..58e1425844 100644
--- a/components/synedit/synedit.pp
+++ b/components/synedit/synedit.pp
@@ -2576,14 +2576,16 @@ var
           SetDrawingColors(FALSE);
           rcToken.Left := Max(rcLine.Left, ColumnToXValue(FirstCol));
           rcToken.Right := Min(rcLine.Right, ColumnToXValue(nSelStart));
-          PaintToken(sLine, nTokenLen, 0, FirstCol, nSelStart);
+          PaintToken(sLine, nTokenLen, 0, FirstCol,
+                     nSelStart{$IFDEF SYN_LAZARUS}-1{$ENDIF});
           rcToken.Left := Max(rcLine.Left, ColumnToXValue(nSelEnd));
           rcToken.Right := Min(rcLine.Right, ColumnToXValue(LastCol));
           PaintToken(sLine, nTokenLen, 0, nSelEnd, LastCol);
           SetDrawingColors(TRUE);
           rcToken.Left := Max(rcLine.Left, ColumnToXValue(nSelStart));
           rcToken.Right := Min(rcLine.Right, ColumnToXValue(nSelEnd));
-          PaintToken(sLine, nTokenLen, 0, nSelStart, nSelEnd);
+          PaintToken(sLine, nTokenLen, 0, nSelStart,
+                     nSelEnd{$IFDEF SYN_LAZARUS}-1{$ENDIF});
         end else begin
           SetDrawingColors(bLineSelected);
           PaintToken(sLine, nTokenLen, 0, FirstCol, LastCol);
diff --git a/lcl/interfaces/gtk/gtkwinapi.inc b/lcl/interfaces/gtk/gtkwinapi.inc
index 645b419af8..43fadb3761 100644
--- a/lcl/interfaces/gtk/gtkwinapi.inc
+++ b/lcl/interfaces/gtk/gtkwinapi.inc
@@ -1703,7 +1703,8 @@ end;
 
 
  ------------------------------------------------------------------------------}
-function TgtkObject.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
+function TgtkObject.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
+  Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
 var
   pStr: PChar;
   Width, Height: Integer;
@@ -4455,6 +4456,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.69  2002/05/16 18:26:08  lazarus
+  MG: fixed selection painting of non highlighter
+
   Revision 1.68  2002/05/10 06:05:57  lazarus
   MG: changed license to LGPL