From 5866071deb4cb5bed5ae00f6b46fef0fc4ca30e9 Mon Sep 17 00:00:00 2001
From: ortegaalfredo <ortegaalfredo@gmail.com>
Date: Wed, 20 Dec 2023 18:57:34 -0300
Subject: [PATCH] Fixed ordered-list render bug

---
 source/HTMLSubs.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/HTMLSubs.pas b/source/HTMLSubs.pas
index 8f3c4915..f34f243d 100644
--- a/source/HTMLSubs.pas
+++ b/source/HTMLSubs.pas
@@ -7174,7 +7174,7 @@ function TBlockLI.Draw1(Canvas: TCanvas; const ARect: TRect; IMgr: TIndentManage
         NStr := NStr + '.';
         BkMode := SetBkMode(Canvas.Handle, Transparent);
         TAlign := SetTextAlign(Canvas.Handle, TA_BASELINE);
-        Canvas.TextOut(X - 10 - Canvas.TextWidth(NStr), YB, NStr);
+        Canvas.TextOut(X - 10 - Canvas.TextWidth(NStr), YB + Canvas.Font.Height , NStr);
         SetTextAlign(Canvas.Handle, TAlign);
         SetBkMode(Canvas.Handle, BkMode);
       end