Скролинг в Pr_view

const

Скролинг не растянут по высоте и ширине панели при первом запуске:

1. Необходимо подправить процедуру в модуле Pr_view.pas

//

---

procedure TfrPreviewForm.FormActivate(Sender: TObject);
begin
Application.HelpFile := 'FRuser.hlp';
//-scrol
PgDown.Top := RPanel.Height - 16;
PgUp.Top := PgDown.Top - 16;
VScrollBar.Height := PgUp.Top - 1;
if RPanel.Visible then
HScrollBar.Width := BPanel.Width - HScrollBar.Left - VScrollBar.Width else
HScrollBar.Width := BPanel.Width - HScrollBar.Left;
//-

ActiveControl := ScrollBox1;
end;

//

---