paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 15:56:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed selection painting of non highlighter

Browse Source 
git-svn-id: trunk@1689 -
This commit is contained in:
lazarus 2002-05-16 18:26:08 +00:00
parent 661e18eb9f
commit 906da1f20d
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -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);

6
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -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