diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-12 17:20:40 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-10-28 10:57:21 +0200 |
| commit | 295242c96cf0c0f791fcc4aeea7555269d493503 (patch) | |
| tree | b8bcaca64f5260fec6134a8c91b6f99ee84e4e43 /src/corelib/x11/fpg_x11.pas | |
| parent | 8c7e0c3444a9746fbff7caecbc2014e114b837c6 (diff) | |
| download | fpGUI-295242c96cf0c0f791fcc4aeea7555269d493503.tar.xz | |
TfpgWindowBase introduced a new abstract method
* This abstract method is called from TfpgWidget's AcceptDrops setter function
* Template implementation in X11
* Actual implementation in GDI
Diffstat (limited to 'src/corelib/x11/fpg_x11.pas')
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index f56a4851..4f9c4ce8 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -231,6 +231,7 @@ type procedure DoUpdateWindowPosition; override; procedure DoSetMouseCursor; override; procedure DoDNDEnabled(const AValue: boolean); override; + procedure DoAcceptDrops(const AValue: boolean); override; property WinHandle: TfpgWinHandle read FWinHandle; public constructor Create(AOwner: TComponent); override; @@ -2396,6 +2397,11 @@ begin XDeleteProperty(xapplication.Display, WinHandle, xapplication.XdndAware); end; +procedure TfpgX11Window.DoAcceptDrops(const AValue: boolean); +begin + { TODO : Remove EnableDrops, then recurse from here to parent top level from, and set XDNDAware property for form. } +end; + procedure TfpgX11Window.DoSetWindowTitle(const ATitle: string); var tp: TXTextProperty; |