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

fixed painting client grid on csOpaque controls

Browse Source 
git-svn-id: trunk@5175 -
This commit is contained in:
mattias 2004-02-05 14:22:26 +00:00
parent e06d1ce300
commit 0392591fb0
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
designer/designer.pp
View File

@ -1762,7 +1762,6 @@ begin
with AWinControl.Controls[I] do begin with AWinControl.Controls[I] do begin
if (Visible or ((csDesigning in ComponentState) if (Visible or ((csDesigning in ComponentState)
and not (csNoDesignVisible in ControlStyle))) and not (csNoDesignVisible in ControlStyle)))
and (csOpaque in ControlStyle)
then begin then begin
Clip := ExcludeClipRect(aDDC.DC, Left, Top, Left + Width, Top + Height); Clip := ExcludeClipRect(aDDC.DC, Left, Top, Left + Width, Top + Height);
if Clip = NullRegion then exit; if Clip = NullRegion then exit;