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

LCL, win, implemented GetRgnBox

Browse Source 
git-svn-id: trunk@11924 -
This commit is contained in:
jesus 2007-09-03 05:29:08 +00:00
parent ed062327ae
commit 02f5d81c2d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1964,6 +1964,11 @@ begin
Result := Windows.GetROP2(DC);
end;
function TWin32WidgetSet.GetRGNBox(Rgn: HRGN; lpRect: PRect): Longint;
begin
Result:= Windows.GetRgnBox(Rgn, Windows.LPRECT(lpRect));
end;
{------------------------------------------------------------------------------
Method: GetScrollInfo
Params: Handle - handle of window with scroll bar

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

@ -110,6 +110,7 @@ function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; Ov
function GetParent(Handle: HWND): HWND; Override;
function GetProp(Handle: HWND; Str: PChar): Pointer; Override;
function GetROP2(DC: HDC): Integer; override;
function GetRGNBox(Rgn: HRGN; lpRect : PRect) : Longint; override;
function GetScrollInfo(Handle: HWND; BarFlag: Integer; Var ScrollInfo: TScrollInfo): Boolean; Override;
function GetStockObject(Value: Integer): THandle; Override;
function GetSysColor(NIndex: Integer): DWORD; Override;