diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-13 08:11:02 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-05-13 08:11:02 +0000 |
| commit | 785ff4bab5f9f82025491fd0ee1443c92bb92cad (patch) | |
| tree | 475a01123272407691fd6088939757d7319cc5fb /src/corelib | |
| parent | eb0a263bf7868be6d25c814565c945f67381df86 (diff) | |
| download | fpGUI-785ff4bab5f9f82025491fd0ee1443c92bb92cad.tar.xz | |
* Added a overloaded ShowAt() method so we do not have to pass in the first parameter as nil.
Diffstat (limited to 'src/corelib')
| -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; |