Fit ImageViewer content on form resize.

Kisspeace · May 8, 2023 · 707762c · 707762c
1 parent f821336
commit 707762c
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/source/Unit1.pas b/source/Unit1.pas
@@ -2953,6 +2953,8 @@ procedure TForm1.FormResize(Sender: TObject);
     W := MAX_STATUS_BAR_WIDTH;
   BtnStatus.width := W;
   BtnStatusImageView.Width := W;
+  if MenuImageViewer.Visible then
+    ImageViewer.BestFit;
 end;
 
 procedure TForm1.FormShow(Sender: TObject);