TfpgWindowBase now introduces a BringToFront() method.

1 files changed, 8 insertions, 1 deletions

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;