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

carbon: implemented GetBkColor.

Browse Source 
git-svn-id: trunk@27424 -
This commit is contained in:
zeljko 2010-09-21 07:04:32 +00:00
parent 216e7ca979
commit 5106674f1f
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1150,6 +1150,18 @@ begin
Result:=inherited GetBitmapBits(Bitmap, Count, Bits);
end;
function TCarbonWidgetSet.GetBkColor(DC: HDC): TColorRef;
begin
{$IFDEF VerboseWinAPI}
DebugLn('TCarbonWidgetSet.GetBkColor DC: ' + DbgS(DC));
{$ENDIF}
Result := CLR_INVALID;
if not CheckDC(DC, 'GetBkColor') then Exit;
Result := TCarbonDeviceContext(DC).BkColor;
end;
{------------------------------------------------------------------------------
Method: GetCapture
Returns: The handle of the capture window

1
lcl/interfaces/carbon/carbonwinapih.inc
View File

@ -97,6 +97,7 @@ function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
function GetActiveWindow : HWND; override;
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; override;
function GetBkColor(DC: HDC): TColorRef; override;
function GetCapture: HWND; override;
function GetCaretPos(var lpPoint: TPoint): Boolean; override;
function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boolean; override;