From 55159c505e550cc25329188986027e57be7f42b1 Mon Sep 17 00:00:00 2001
From: skalogryz <skalogryz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 10 Nov 2018 02:54:29 +0000
Subject: [PATCH] richmemo: fix the superscript detection on Win32. Patch by
 Vladimir Rybant

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6722 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/richmemo/win32/win32richmemoproc.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas
index 5609ff0ae..416569aaa 100644
--- a/components/richmemo/win32/win32richmemoproc.pas
+++ b/components/richmemo/win32/win32richmemoproc.pas
@@ -324,7 +324,7 @@ end;
 function EffectsToVScriptPost(Effects: LongWord): TVScriptPos;
 begin
   if Effects and CFE_SUBSCRIPT > 0 then Result:=vpSubScript
-  else if Effects and CFE_SUBSCRIPT > 0 then Result:=vpSuperScript
+  else if Effects and CFE_SUPERSCRIPT > 0 then Result:=vpSuperScript
   else Result:=vpNormal;
 end;