diff options
Diffstat (limited to 'gfx/gdi')
-rw-r--r-- | gfx/gdi/gfx_gdi.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gfx/gdi/gfx_gdi.pas b/gfx/gdi/gfx_gdi.pas index a8196916..83955cdb 100644 --- a/gfx/gdi/gfx_gdi.pas +++ b/gfx/gdi/gfx_gdi.pas @@ -174,6 +174,7 @@ type TGDIWindow = class(TFCustomWindow) protected + FHandle: PtrUInt; WindowClass: TWndClass; WindowClassW: TWndClassW; FWindowStyle, FWindowStyleEx: LongWord; @@ -181,6 +182,7 @@ type function GetTitle: String; override; procedure SetTitle(const ATitle: String); override; procedure DoSetCursor; override; + function GetHandle: PtrUInt; override; procedure UpdateWindowButtons; function DoMouseEnterLeaveCheck(uMsg, wParam, lParam: Cardinal): Boolean; public @@ -1739,6 +1741,11 @@ begin end; end; +function TGDIWindow.GetHandle: PtrUInt; +begin + Result := FHandle; +end; + procedure TGDIWindow.UpdateWindowButtons; var |