forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix - options, floating widget on top does not work

This commit is contained in:
Basile Burg 2020-04-09 09:10:42 +02:00
parent 97f569b5b4
commit ef80f677c9
1 changed files with 1 additions and 7 deletions

8
src/u_main.pas
View File

@ -3706,13 +3706,7 @@ const
begin
for widg in fWidgList do if widg.Parent.isNotNil and
widg.Parent.Parent.isNil and widg.isDockable then
begin
TForm(widg.Parent).FormStyle := fstyle[onTop];
//TODO-cbugfix: floating widg on top from true to false, widg remains on top
// OK on linux (LCL 1.6.0), initially observed on win & LCL 1.4.2
if TForm(widg.Parent).Visible and not onTop then
TForm(widg.Parent).SendToBack;
end;
TForm(widg.Parent).FormStyle := fstyle[onTop];
end;
procedure TMainForm.snapTopSplitterToMenu;