FIX: Recalculate tab height when change visible

This commit is contained in:
Alexander Koblov 2018-09-02 15:28:50 +00:00
commit beba076461

View file

@ -1016,7 +1016,12 @@ end;
procedure TFileViewNotebook.SetShowTabs(AValue: Boolean);
begin
FPageControl.Visible:= AValue;
if (FPageControl.Visible <> AValue) then
begin
FPageControl.Visible:= AValue;
Application.ProcessMessages;
FPageControl.TabControlBoundsChange;
end;
end;
procedure TFileViewNotebook.SetPageIndex(AValue: Integer);