From f7e635d26ea52bb85b4538c32034d94967912334 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 26 Aug 2009 15:11:57 +0000
Subject: [PATCH] debugserver: fix stayontop setting

git-svn-id: trunk@21454 -
---
 tools/debugserver/frmmain.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tools/debugserver/frmmain.pp b/tools/debugserver/frmmain.pp
index 680b435608..4980265b8e 100644
--- a/tools/debugserver/frmmain.pp
+++ b/tools/debugserver/frmmain.pp
@@ -484,7 +484,10 @@ end;
 
 procedure TMainForm.SetStayOnTop(const AValue: Boolean);
 begin
-  FormStyle:=fsStayOnTop;
+  if AValue then
+    FormStyle:=fsStayOnTop
+  else
+    FormStyle:=fsNormal;
 end;
 
 Const