From 785ff4bab5f9f82025491fd0ee1443c92bb92cad Mon Sep 17 00:00:00 2001 From: graemeg Date: Tue, 13 May 2008 08:11:02 +0000 Subject: * Added a overloaded ShowAt() method so we do not have to pass in the first parameter as nil. --- src/corelib/gfx_popupwindow.pas | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/corelib') 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; -- cgit v1.2.3-70-g09d2