diff options
Diffstat (limited to 'gui/popupwindow.inc')
-rw-r--r-- | gui/popupwindow.inc | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/gui/popupwindow.inc b/gui/popupwindow.inc new file mode 100644 index 00000000..509d6962 --- /dev/null +++ b/gui/popupwindow.inc @@ -0,0 +1,60 @@ +{ + fpGUI - Free Pascal Graphical User Interface + Copyright (C) 2000 - 2001 by + Areca Systems GmbH / Sebastian Guenther + Copyright (C) 2006 by Graeme Geldenhuys + member of the fpGUI development team. + + PopupWindow class declaration + + See the file COPYING.fpGUI, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + + +{%mainunit fpgui.pp} + +{$IFDEF read_interface} + + TPopupWindow = class(TCustomForm) + public + constructor Create(AOwner: TComponent); override; + procedure Show; override; + procedure Close; override; + end; + +{$ENDIF read_interface} + + + +{$IFDEF read_implementation} + +constructor TPopupWindow.Create(AOwner: TComponent); +begin + inherited Create(AOwner); + FParent := nil; + FWindowOptions := [woBorderless, woPopup]; +end; + + +procedure TPopupWindow.Show; +begin + inherited Show; + LAYOUTTRACE('TPopupWindow.Show for %s:%s', [Name, ClassName]); + Wnd.CaptureMouse; +end; + + +procedure TPopupWindow.Close; +begin + Wnd.ReleaseMouse; + inherited Close; +end; + +{$ENDIF read_implementation} + |