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

Reverted accidentally committed unit

Browse Source 
git-svn-id: trunk@13247 -
This commit is contained in:
tombo 2007-12-09 11:06:36 +00:00
parent 4a1d394e7e
commit 2f1dae25aa
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -4111,7 +4111,6 @@ begin
rcToken := AClip; rcToken := AClip;
rcToken.Top := (RowToScreenRow(LastLine)+1) * fTextHeight; rcToken.Top := (RowToScreenRow(LastLine)+1) * fTextHeight;
if (rcToken.Top < rcToken.Bottom) then begin if (rcToken.Top < rcToken.Bottom) then begin
DebugLn('Draw To clip ' + ColorToString(colEditorBG));
SetBkColor(dc, ColorToRGB(colEditorBG)); SetBkColor(dc, ColorToRGB(colEditorBG));
InternalFillRect(dc, rcToken); InternalFillRect(dc, rcToken);
// Draw the right edge if necessary. // Draw the right edge if necessary.