From 63098540b6e55412f3e62d7c23d649bac9406c4a Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Mon, 21 Nov 2011 10:57:25 +0200
Subject: TfpgWindowBase now introduces a BringToFront() method.

---
 src/corelib/gdi/fpg_gdi.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/corelib/gdi')

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;
-- 
cgit v1.2.3-70-g09d2