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

LCL-CustomDrawn: Implements FrameRect

Browse Source 
git-svn-id: trunk@36600 -
This commit is contained in:
sekelsenmat 2012-04-06 10:16:42 +00:00
parent 1cdd557bba
commit 2c6aed50c6
2 changed files with 37 additions and 9 deletions

42
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -2391,25 +2391,53 @@ begin
Result := True;
end;
(*{------------------------------------------------------------------------------
{------------------------------------------------------------------------------
Function: FrameRect
Params: none
Returns: Nothing
------------------------------------------------------------------------------}
function TQtWidgetSet.FrameRect(DC: HDC; const ARect: TRect;
hBr: HBRUSH): Integer;
function TCDWidgetSet.FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer;
var
LazDC: TLazCanvas absolute DC;
lOldBrush, lOldPen, lFramePen, lFrameBrush: HGDIOBJ;
lLogPen: TLogPen;
lLogBrush: TLogBrush;
begin
Result := 0;
if not IsValidDC(DC) then Exit;
{$ifdef VerboseCDDrawing}
DebugLn('[WinAPI FillRect Rect=', dbgs(ARect),' Brush=', dbghex(hBr));
{$endif}
TQtDeviceContext(DC).qDrawPLainRect(ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
if not IsValidDC(DC) then
exit;
if not IsValidGdiObject(hBr) then
exit;
// Creates temporary pen and brush to help the drawing
lLogPen.lopnStyle := PS_SOLID;
lLogPen.lopnWidth := Point(1, 1);
lLogPen.lopnColor := FPColorToTColor(TFPCustomBrush(hBR).FPColor);
lFramePen := CreatePenIndirect(lLogPen);
lLogBrush.lbStyle := BS_NULL;
lFrameBrush := CreateBrushIndirect(lLogBrush);
// Do the drawing
lOldBrush := SelectObject(DC, lFrameBrush);
lOldPen := SelectObject(DC, lFramePen);
LazDC.Rectangle(ARect);
SelectObject(DC, lOldBrush);
SelectObject(DC, lOldPen);
// Delete the helper objects
DeleteObject(lFramePen);
DeleteObject(lFrameBrush);
Result := 1;
end;
function TQtWidgetSet.GetActiveWindow: HWND;
(*function TQtWidgetSet.GetActiveWindow: HWND;
var
Widget: QWidgetH;
W: TQtWidget;

4
lcl/interfaces/customdrawn/customdrawnwinapih.inc
View File

@ -99,9 +99,9 @@ function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str:
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
//function FillRgn(DC: HDC; RegionHnd: HRGN; hbr: HBRUSH): Bool; override;
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
(*function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
function GetActiveWindow : HWND; 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;