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

Cocoa: Exlude clDefault from background painting

Browse Source 
git-svn-id: trunk@43853 -
This commit is contained in:
freq 2014-01-30 16:48:31 +00:00
parent ebcb804bf1
commit 9643a777c7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -886,7 +886,7 @@ begin
try
if FContext.InitDraw(Round(bounds.size.width), Round(bounds.size.height)) then
begin
if FIsOpaque then
if FIsOpaque and (Target.Color<>clDefault) then
begin
FContext.BkMode:=OPAQUE;
FContext.BkColor:=Target.Color;