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

Sparta mdi: Send pBG panel back instead of hiding it. Affects Sparta form designer with TMainMenu. Issue #32200, patch from Anthony Walter.

Browse Source 
git-svn-id: trunk@55999 -
This commit is contained in:
juha 2017-10-08 16:58:36 +00:00
parent b0ad9479d1
commit b36128e0a4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/sparta/mdi/source/sparta_basicresizeframe.pas
View File

@ -211,7 +211,7 @@ end;
procedure TBasicResizeFrame.pBGPaint(Sender: TObject);
begin
pBG.Visible := False;
pBG.SendToBack;
end;
procedure TBasicResizeFrame.sbVerticalScroll(Sender: TObject;
@ -345,7 +345,7 @@ begin
pB.Repaint;
HideSizeRects;
pBG.Visible := False;
pBG.SendToBack;
end;
procedure TBasicResizeFrame.ShowSizeRects;
@ -370,7 +370,7 @@ begin
pB.Repaint;
ShowSizeRects;
pBG.Visible := True;
//pBG.Visible := True;
end;
procedure TBasicResizeFrame.CreateNodes;
@ -846,7 +846,7 @@ begin
FLastDesignedWidthToScroll:=DesignedWidthToScroll;
FLastDesignedHeightToScroll:=DesignedHeightToScroll;
pBG.OnPaint := nil;
pBG.Visible := True;
pBG.SendToBack;
end;
procedure TBasicResizeFrame.EndFormSizeUpdate(Sender: TObject);