From d8deb18a7f90543c20455e80ad34c9331bafe9ef Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Fri, 5 Feb 2010 17:18:38 +0000
Subject: [PATCH] Issue #1656: Upscale status bar panels in non-96-DPI mode, so
 text is not cut off.

---
 source/main.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/source/main.pas b/source/main.pas
index 21183543..67e5d15b 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -1183,6 +1183,7 @@ var
   dwWnd: DWORD;         // Handle for the size call.
   FI: PVSFixedFileInfo; // Delphi structure; see WINDOWS.PAS
   ptrVerBuf, Translation, Info: Pointer;
+  DpiScaleFactor: Double;
 begin
   caption := APPNAME;
   setLocales;
@@ -1241,6 +1242,10 @@ begin
   InheritFont(tabsetQueryHelpers.Font);
   InheritFont(SynCompletionProposal.Font);
   StatusBar.Height := GetTextHeight(StatusBar.Font)+4;
+  // Upscale panels in non-96-DPI mode
+  DpiScaleFactor := Screen.PixelsPerInch / FORMS_DPI;
+  for i:=StatusBar.Panels.Count-1 downto 1 do
+    StatusBar.Panels[i].Width := Round(StatusBar.Panels[i].Width * DpiScaleFactor);
 
   // Enable auto completion in data tab, filter editor
   SynCompletionProposal.AddEditor(SynMemoFilter);