diff options
| author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-05-31 14:54:39 +0000 |
|---|---|---|
| committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-05-31 14:54:39 +0000 |
| commit | 5c84b5c66c967254400370c991170a61533a8014 (patch) | |
| tree | 02b3da868e266eadfe275e2cc6b7fbb591e4a56f /gfx/gdi/gfx_gdi.pas | |
| parent | 59ae98e700b4774a123e62435b54c1141380fcaa (diff) | |
| download | fpGUI-5c84b5c66c967254400370c991170a61533a8014.tar.xz | |
Moved the handle internal field to platform specific area. Added GetHandle function. Improved carbon interface
Diffstat (limited to 'gfx/gdi/gfx_gdi.pas')
| -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 |