diff options
| -rw-r--r-- | src/corelib/fpg_base.pas | 1 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 9 | ||||
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 9 |
3 files changed, 17 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 6d0eb771..c982e019 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -497,6 +497,7 @@ type procedure ActivateWindow; virtual; abstract; procedure CaptureMouse; virtual; abstract; procedure ReleaseMouse; virtual; abstract; + procedure BringToFront; virtual; abstract; procedure SetFullscreen(AValue: Boolean); virtual; property HasHandle: boolean read HandleIsValid; property WindowType: TWindowType read FWindowType write FWindowType; diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index 77d476ab..9f8abfbc 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -197,6 +197,7 @@ type procedure CaptureMouse; override; procedure ReleaseMouse; override; procedure SetFullscreen(AValue: Boolean); override; + procedure BringToFront; override; end; @@ -2015,6 +2016,12 @@ begin WindowSetFullscreen(AValue, True); end; +procedure TfpgGDIWindow.BringToFront; +begin + if HasHandle then + BringWindowToTop(FWinHandle); +end; + function TfpgGDIWindow.HandleIsValid: boolean; begin Result := FWinHandle > 0; diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index da169246..ccfdf95d 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -1,7 +1,7 @@ { fpGUI - Free Pascal GUI Toolkit - Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this + Copyright (C) 2006 - 2011 See the file AUTHORS.txt, included in this distribution, for details of the copyright. See the file COPYING.modifiedLGPL, included in this distribution, @@ -242,6 +242,7 @@ type procedure CaptureMouse; override; procedure ReleaseMouse; override; procedure SetFullscreen(AValue: Boolean); override; + procedure BringToFront; override; end; @@ -2616,6 +2617,12 @@ begin fpgApplication.netlayer.WindowSetFullscreen(FWinHandle, AValue); end; +procedure TfpgX11Window.BringToFront; +begin + if HasHandle then + XRaiseWindow(xapplication.display, FWinHandle); +end; + { TfpgX11FontResource } function TfpgX11FontResource.DoGetTextWidthClassic(const txt: string): integer; |