diff options
| -rw-r--r-- | src/corelib/gfx_popupwindow.pas | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/corelib/gfx_popupwindow.pas b/src/corelib/gfx_popupwindow.pas index 5cc270b1..e19b8642 100644 --- a/src/corelib/gfx_popupwindow.pas +++ b/src/corelib/gfx_popupwindow.pas @@ -49,7 +49,8 @@ type procedure DoOnClose; virtual; public constructor Create(AOwner: TComponent); override; - procedure ShowAt(AWidget: TfpgWidget; x, y: TfpgCoord); + procedure ShowAt(AWidget: TfpgWidget; x, y: TfpgCoord); overload; + procedure ShowAt(x, y: TfpgCoord); overload; procedure Close; virtual; property DontCloseWidget: TfpgWidget read FDontCloseWidget write FDontCloseWidget; property PopupFrame: boolean read FPopupFrame write SetPopupFrame; @@ -310,6 +311,11 @@ begin HandleShow; end; +procedure TfpgPopupWindow.ShowAt(x, y: TfpgCoord); +begin + ShowAt(nil, x, y); +end; + procedure TfpgPopupWindow.Close; begin HandleClose; |