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

Adds CreateEllipticRgn to win32

Browse Source 
git-svn-id: trunk@18697 -
This commit is contained in:
sekelsenmat 2009-02-15 11:24:29 +00:00
parent 3ef10c5da2
commit 3366947be6
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1795,6 +1795,19 @@ begin
Result := Windows.CreateDIBSection(DC, Windows.PBitmapInfo(@p2)^, p3, p4, p5, p6)
end;
{------------------------------------------------------------------------------
Method: CreateEllipticRgn
Params: p1, p2 = X1 and Y1 top-left position of the ellipse
Params: p3, p4 = X2 and Y2 bottom-right position of the ellipse
Returns: The handle of the region created
Creates an elliptic region.
------------------------------------------------------------------------------}
function TWin32WidgetSet.CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN;
begin
Result := Windows.CreateEllipticRgn(p1, p2, p3, p4);
end;
{------------------------------------------------------------------------------
Method: GetFocus
Params: none

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

@ -53,6 +53,7 @@ function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; overr
function CreateCompatibleDC(DC: HDC): HDC; override;
function CreateDIBSection(DC: HDC; const p2: tagBitmapInfo; p3: UINT;
var p4: Pointer; p5: THandle; p6: DWORD): HBITMAP; override;
function CreateEllipticRgn(p1, p2, p3, p4: Integer): HRGN; override;
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
function CreateIconIndirect(IconInfo: PIconInfo): HICON; override;
function CreatePatternBrush(ABitmap: HBITMAP): HBRUSH; override;