paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

debugserver: fix stayontop setting

Browse Source 
git-svn-id: trunk@21454 -
This commit is contained in:
paul 2009-08-26 15:11:57 +00:00
parent 28957ba8b8
commit f7e635d26e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tools/debugserver/frmmain.pp
View File

@ -484,7 +484,10 @@ end;
procedure TMainForm.SetStayOnTop(const AValue: Boolean);
begin
FormStyle:=fsStayOnTop;
if AValue then
FormStyle:=fsStayOnTop
else
FormStyle:=fsNormal;
end;
Const