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

LCL Carbon: implemented GetTextColor, fixes bug #0012166: TSpeedButton in carbon

Browse Source 
git-svn-id: trunk@16655 -
This commit is contained in:
tombo 2008-09-19 16:53:19 +00:00
parent b7bcb7ed2c
commit ddeee54b5c
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -1774,7 +1774,19 @@ end;
function TCarbonWidgetSet.GetTextColor(DC: HDC): TColorRef;
begin
Result:=inherited GetTextColor(DC);
Result := clNone;
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.GetTextColor DC: ' + DbgS(HDC));
{$ENDIF}
if not CheckDC(DC, 'GetTextColor') then Exit;
Result := TCarbonDeviceContext(DC).TextColor;
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.GetTextColor Result: ' + DbgS(Result));
{$ENDIF}
end;
{------------------------------------------------------------------------------