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

lcl,win32: implement GetBkColor. Issue #14792

Browse Source 
git-svn-id: trunk@27388 -
This commit is contained in:
blikblum 2010-09-16 19:02:43 +00:00
parent 6c402161ed
commit d2ab60647a
5 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/intfbasewinapi.inc
View File

@ -906,6 +906,11 @@ begin
Result := 0;
end;
function TWidgetSet.GetBkColor(DC: HDC): TColorRef;
begin
Result := 0;
end;
function TWidgetSet.GetCapture : HWND;
begin
Result := 0;

5
lcl/include/winapi.inc
View File

@ -315,6 +315,11 @@ begin
Result := WidgetSet.GetBitmapBits(Bitmap, Count, Bits);
end;
function GetBkColor(DC: HDC): TColorRef;
begin
Result := WidgetSet.GetBkColor(DC);
end;
function GetCapture: HWND;
Begin
Result := WidgetSet.GetCapture;

1
lcl/include/winapih.inc
View File

@ -114,6 +114,7 @@ function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; {$IFDEF I
function GetActiveWindow : HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetBkColor(DC: HDC): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetCapture : HWND; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetCaretPos(var lpPoint: TPoint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
function GetClientRect(handle : HWND; var Rect: TRect) : Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}

5
lcl/interfaces/win32/win32winapi.inc
View File

@ -1762,6 +1762,11 @@ begin
Result := Windows.GetBitmapBits(Bitmap, Count, Bits);
end;
function TWin32WidgetSet.GetBkColor(DC: HDC): TColorRef;
begin
Result := TColorRef(Windows.GetBkColor(DC));
end;
function TWin32WidgetSet.CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT;
var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP;

1
lcl/interfaces/win32/win32winapih.inc
View File

@ -92,6 +92,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 GetCharABCWidths(DC: HDC; P2, P3: UINT; Const ABCStructs): Boolean; override;