pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

ChemText: Simplify superscript character offset calculation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7977 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-03-12 21:31:31 +00:00
parent b8e2cac824
commit 44b49b960a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/chemtext/source/chemtext.pas
View File

@ -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;