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

win32: replace default CreateRoundRectRGN with a winapi call (issue #0018125)

Browse Source 
git-svn-id: trunk@29849 -
This commit is contained in:
paul 2011-03-15 04:34:00 +00:00
parent 723143ddc3
commit cbb791a543
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -995,6 +995,13 @@ begin
Result := Windows.CreateRectRgn(X1, Y1, X2, Y2);
end;
function TWin32WidgetSet.CreateRoundRectRgn(X1, Y1, X2, Y2, nWidthEllipse,
nHeightEllipse: Integer): HRGN;
begin
Result := Windows.CreateRoundRectRgn(X1, Y1, X2, Y2, nWidthEllipse,
nHeightEllipse);
end;
{------------------------------------------------------------------------------
Method: DeleteDC
Params: HDC - handle to device context

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

@ -59,6 +59,7 @@ function CreatePatternBrush(ABitmap: HBITMAP): HBRUSH; override;
function CreatePenIndirect(const LogPen: TLogPen): HPEN; override;
function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; override;
function CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; override;
function CreateRoundRectRgn(X1, Y1, X2, Y2, nWidthEllipse, nHeightEllipse: Integer): HRGN; override;
function DeleteDC(HDC: HDC): Boolean; override;
function DeleteObject(GDIObject: HGDIOBJ): Boolean; override;