FIX: Quick view - initial viewer size

This commit is contained in:
Alexander Koblov 2024-02-11 01:25:12 +03:00
commit c2804dc2cd

View file

@ -143,6 +143,7 @@ begin
FFileSource:= aFileView.FileSource;
FFileViewPage.FileView.Visible:= False;
FFileView.OnChangeActiveFile:= @FileViewChangeActiveFile;
with ClientRect do FViewer.SetBounds(Left, Top, Width, Height);
TFileViewPage(FFileView.NotebookPage).OnChangeFileView:= @OnChangeFileView;
end;