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

custom controls now support child wincontrols

Browse Source 
git-svn-id: trunk@2410 -
This commit is contained in:
mattias 2002-08-17 23:41:20 +00:00
parent a7d3d137c8
commit 171619dd1d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -3070,7 +3070,8 @@ begin
rcToken := AClip; rcToken := AClip;
rcToken.Left := Max(AClip.Left, fGutterWidth); rcToken.Left := Max(AClip.Left, fGutterWidth);
rcToken.Right := fGutterWidth + 2; rcToken.Right := fGutterWidth + 2;
SetBkColor(dc, ColorToRGB(colEditorBG)); SetBkColor(dc,
{$IFDEF SYN_LAZARUS}colEditorBG{$ELSE}ColorToRGB(colEditorBG){$ENDIF});
InternalFillRect(dc, rcToken); InternalFillRect(dc, rcToken);
// Adjust the invalid area to not include this area. // Adjust the invalid area to not include this area.
AClip.Left := rcToken.Right; AClip.Left := rcToken.Right;