From 2738707f90cf06054569e0ef11fb75ecbfa021f1 Mon Sep 17 00:00:00 2001 From: skalogryz Date: Thu, 18 Jun 2009 10:28:24 +0000 Subject: [PATCH] added support for higher richedit controls git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@854 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- components/richmemo/win32/win32richmemoproc.pas | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/components/richmemo/win32/win32richmemoproc.pas b/components/richmemo/win32/win32richmemoproc.pas index b1f4daef8..d33bdcdc5 100644 --- a/components/richmemo/win32/win32richmemoproc.pas +++ b/components/richmemo/win32/win32richmemoproc.pas @@ -58,7 +58,9 @@ end; function InitRichEdit: Boolean; begin if GlobalRichClass = '' then begin - if LoadLibrary('RICHED20.DLL') <> 0 then begin + if LoadLibrary('Msftedit.dll') <> 0 then begin + GlobalRichClass := 'RichEdit50W' + end else if LoadLibrary('RICHED20.DLL') <> 0 then begin if UnicodeEnabledOS then GlobalRichClass := 'RichEdit20W' else GlobalRichClass := 'RichEdit20A' end else if LoadLibrary('RICHED32.DLL') <> 0 then