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

wince: added IsWindow()

Browse Source 
git-svn-id: trunk@24285 -
This commit is contained in:
zeljko 2010-03-29 12:48:19 +00:00
parent f8cb0875ea
commit 53edb14849
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/wince/wincewinapi.inc
View File

@ -2145,6 +2145,16 @@ begin
Result := Windows.IntersectClipRect(DC, Left, Top, Right, Bottom);
end;
{------------------------------------------------------------------------------
Method: IsWindow
Params: handle - window handle
Returns: true if handle is window , false otherwise
------------------------------------------------------------------------------}
function TWinCEWidgetSet.IsWindow(handle: HWND): boolean; override;
begin
Result := Boolean(Windows.IsWindow(handle));
end;
{------------------------------------------------------------------------------
Method: IsWindowEnabled
Params: handle - window handle

1
lcl/interfaces/wince/wincewinapih.inc
View File

@ -153,6 +153,7 @@ function HideCaret(hWnd: HWND): Boolean; override;
procedure InitializeCriticalSection(var CritSection: TCriticalSection); override;
function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;
function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
function IsWindow(handle: HWND): boolean; override;
function IsWindowEnabled(handle: HWND): boolean; override;
function IsWindowVisible(handle: HWND): boolean; override;