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

added support for higher richedit controls

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@854 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-06-18 10:28:24 +00:00
parent 9e63e46c6c
commit 2738707f90
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/richmemo/win32/win32richmemoproc.pas
View File

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