paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 18:20:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed restoring/showing of minimized+hidden form. issue #20670

Browse Source 
git-svn-id: trunk@34004 -
This commit is contained in:
zeljko 2011-12-06 18:18:40 +00:00
parent 2ce9d7f56a
commit b211b79b0b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customform.inc
View File

@ -2113,9 +2113,9 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.ShowOnTop;
begin
Visible := True;
if WindowState = wsMinimized then
WindowState := wsNormal;
Visible := True;
BringToFront;
//DebugLn(['TCustomForm.ShowOnTop ',Name,':',ClassName,' ',Visible,' ',HandleAllocated,' ',csDesigning in ComponentState]);
end;