paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-28 01:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

implement TWidgetSet.FrameRect for win32

Browse Source 
git-svn-id: trunk@8280 -
This commit is contained in:
micha 2005-12-08 13:19:39 +00:00
parent 683d87d655
commit e90ca7f263
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1339,6 +1339,16 @@ Begin
Result := Boolean(DrawEdge(DC, Rect, Edge[Style], BF_RECT));
End;
function TWin32WidgetSet.FrameRect(DC: HDC; const ARect: TRect;
hBr: HBRUSH) : integer;
var
lRect: Windows.RECT;
begin
{$message warn TWin32WidgetSet.FrameRect TODO: optimize ARect copying}
lRect := ARect;
Result := Windows.FrameRect(DC, lRect, hBr);
end;
{------------------------------------------------------------------------------
Method: GetActiveWindow
Params: none

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

@ -80,7 +80,8 @@ function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; overri
function FillRect(DC: HDC; Const Rect: TRect; Brush: HBRUSH): Boolean; Override;
{ Draws a 3D border in GTK native style. }
function Frame3D(DC: HDC; var Rect: TRect; Const FrameWidth: Integer; Const Style: TBevelCut): Boolean; Override;
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH) : integer; override;
function GetBitmapRawImageDescription(Bitmap: HBITMAP; Desc: PRawImageDescription): Boolean; Override;
function GetDeviceRawImageDescription(DC: HDC; Desc: PRawImageDescription): boolean; Override;
function GetRawImageFromDevice(SrcDC: HDC; const SrcRect: TRect; var NewRawImage: TRawImage): boolean; Override;