summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/corelib/gfx_popupwindow.pas8
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;