From 44b49b960a6e69f9060c8273fc1c37503c718997 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 12 Mar 2021 21:31:31 +0000
Subject: [PATCH] ChemText: Simplify superscript character offset calculation.

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

diff --git a/components/chemtext/source/chemtext.pas b/components/chemtext/source/chemtext.pas
index ffae3faf4..624f0a756 100644
--- a/components/chemtext/source/chemtext.pas
+++ b/components/chemtext/source/chemtext.pas
@@ -27,7 +27,7 @@ uses
 const
   DEFAULT_SMALLFONT_SIZE = 67;
   DEFAULT_SUBSCRIPT_OFFSET = 50;
-  DEFAULT_SUPERSCRIPT_OFFSET = 25;
+  DEFAULT_SUPERSCRIPT_OFFSET = 12;
 
 var
   SmallFontSizePercent: Integer = DEFAULT_SMALLFONT_SIZE;
@@ -207,7 +207,7 @@ var
       ACanvas.Font.Height := MulDiv(h, SmallFontSizePercent, 100);
       yoff := abs(MulDiv(h, SuperscriptFontOffsetPercent, 100));
       if not Measure then
-        ACanvas.TextOut(x, y - yoff div 2, s);
+        ACanvas.TextOut(x, y - yoff, s);
       inc(x, ACanvas.TextWidth(s));
     finally
       ACanvas.Font.Height := h;