paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 18:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix right-border-line on Windows. Lines longer than the right border, would cause gaps in the line

Browse Source 
git-svn-id: trunk@19223 -
This commit is contained in:
martin 2009-04-04 21:37:27 +00:00
parent 9c3c06ecf8
commit 186237311f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -3429,6 +3429,7 @@ begin
Canvas.Pen.Width := 1; Canvas.Pen.Width := 1;
// Do everything else with API calls. This (maybe) realizes the new pen color. // Do everything else with API calls. This (maybe) realizes the new pen color.
dc := Canvas.Handle; dc := Canvas.Handle;
SetBkMode(dc, TRANSPARENT);
// If anything of the two pixel space before the text area is visible, then // If anything of the two pixel space before the text area is visible, then
// fill it with the component background color. // fill it with the component background color.