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 const
DEFAULT_SMALLFONT_SIZE = 67; DEFAULT_SMALLFONT_SIZE = 67;
DEFAULT_SUBSCRIPT_OFFSET = 50; DEFAULT_SUBSCRIPT_OFFSET = 50;
DEFAULT_SUPERSCRIPT_OFFSET = 25; DEFAULT_SUPERSCRIPT_OFFSET = 12;
var var
SmallFontSizePercent: Integer = DEFAULT_SMALLFONT_SIZE; SmallFontSizePercent: Integer = DEFAULT_SMALLFONT_SIZE;
@ -207,7 +207,7 @@ var
ACanvas.Font.Height := MulDiv(h, SmallFontSizePercent, 100); ACanvas.Font.Height := MulDiv(h, SmallFontSizePercent, 100);
yoff := abs(MulDiv(h, SuperscriptFontOffsetPercent, 100)); yoff := abs(MulDiv(h, SuperscriptFontOffsetPercent, 100));
if not Measure then if not Measure then
ACanvas.TextOut(x, y - yoff div 2, s); ACanvas.TextOut(x, y - yoff, s);
inc(x, ACanvas.TextWidth(s)); inc(x, ACanvas.TextWidth(s));
finally finally
ACanvas.Font.Height := h; ACanvas.Font.Height := h;