From 5704686e09a573cfbb95f52853a80231137dade1 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 11 Sep 2022 17:25:36 +0000
Subject: [PATCH] tvplanit: Fix LCL scaling of toolbar in print preview dialog.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8471 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpprtprvdlg.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/tvplanit/source/vpprtprvdlg.pas b/components/tvplanit/source/vpprtprvdlg.pas
index a77d585cc..717b6ccb0 100644
--- a/components/tvplanit/source/vpprtprvdlg.pas
+++ b/components/tvplanit/source/vpprtprvdlg.pas
@@ -173,7 +173,9 @@ begin
   ReturnCode := rtAbandon;
   SetCaptions;
   PopulateImageList;
+  {$IF VP_LCL_SCALING = 0}
   Toolbar1.ButtonHeight := ScaleY(Toolbar1.ButtonHeight, DesignTimeDPI);
+  {$IFEND}
   Toolbar1.ButtonWidth := Toolbar1.ButtonHeight;
 end;