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

Qt: implemented GetBkColor(). part of #14792

Browse Source 
git-svn-id: trunk@27390 -
This commit is contained in:
zeljko 2010-09-17 06:33:19 +00:00
parent bea78b0370
commit bfc3350f00
3 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/qt/qtobjects.pas
View File

@ -403,9 +403,10 @@ type
function brush: TQtBrush;
procedure setBrush(ABrush: TQtBrush);
function BackgroundBrush: TQtBrush;
function GetBkColor: TColorRef;
function pen: TQtPen;
function setPen(APen: TQtPen): TQtPen;
function SetBkColor(Color: TcolorRef): TColorRef;
function SetBkColor(Color: TColorRef): TColorRef;
function SetBkMode(BkMode: Integer): Integer;
function getDepth: integer;
function getDeviceSize: TPoint;
@ -2744,6 +2745,16 @@ begin
result := vBackGroundBrush;
end;
function TQtDeviceContext.GetBkColor: TColorRef;
var
TheBrush: QBrushH;
TheColor: TQColor;
begin
TheBrush := QPainter_background(Widget);
TheColor := QBrush_color(TheBrush)^;
TQColorToColorRef(TheColor, Result);
end;
{------------------------------------------------------------------------------
Function: TQtDeviceContext.pen
Params: None
@ -2824,15 +2835,14 @@ begin
Result := FClipboard;
end;
function TQtDeviceContext.SetBkColor(Color: TcolorRef): TColorRef;
function TQtDeviceContext.SetBkColor(Color: TColorRef): TColorRef;
var
NColor: TQColor;
begin
{$ifdef VerboseQt}
Write('TQtDeviceContext.setBKColor() ');
{$endif}
NColor := BackgroundBrush.getColor^;
TQColorToColorRef(NColor, Result);
Result := GetBkColor;
ColorRefToTQColor(ColorToRGB(Color), NColor);
BackgroundBrush.setColor(@NColor);
end;

12
lcl/interfaces/qt/qtwinapi.inc
View File

@ -1913,6 +1913,16 @@ begin
end;
end;
function TQtWidgetSet.GetBkColor(DC: HDC): TColorRef;
var
QtDC: TQtDeviceContext;
begin
Result := CLR_INVALID;
if not IsValidDC(DC) then Exit;
QtDC := TQtDeviceContext(DC);
Result := QtDC.GetBkColor;
end;
function TQtWidgetSet.GetCapture: HWND;
var
w: QWidgetH;
@ -4699,7 +4709,7 @@ begin
Exit;
end;
result := TQtDeviceContext(DC).SetBkColor(Color);
Result := TQtDeviceContext(DC).SetBkColor(Color);
end;
{------------------------------------------------------------------------------

1
lcl/interfaces/qt/qtwinapih.inc
View File

@ -93,6 +93,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;