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

richmemo: win32 - allow a custom richedit class to be specified

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5289 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-10-24 14:37:05 +00:00
parent 9315166222
commit 2b957acf3f
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/richmemo/win32/win32richmemo.pas
View File

@ -169,6 +169,7 @@ var
NCPaint : TNCPaintProc = nil; NCPaint : TNCPaintProc = nil;
AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback); AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
InsertInlineFlags : Integer = REO_OWNERDRAWSELECT; InsertInlineFlags : Integer = REO_OWNERDRAWSELECT;
RichEditClass : String = ''; // manually assigned by RichMemo user
function GetSelRTF(amemo: TCustomRichMemo): string; function GetSelRTF(amemo: TCustomRichMemo): string;
function GetRichEditOLE(amemo: TCustomRichMemo): IRichEditOle; overload; function GetRichEditOLE(amemo: TCustomRichMemo): IRichEditOle; overload;
@ -552,8 +553,12 @@ var
ACustomMemo : TCustomMemo; ACustomMemo : TCustomMemo;
eventmask : LPARAM; eventmask : LPARAM;
begin begin
InitRichEdit; if RichEditClass='' then begin
RichClass := GetRichEditClass; InitRichEdit;
RichClass := GetRichEditClass;
end else
RichClass := RichEditClass;
if RichClass = '' then begin if RichClass = '' then begin
Result := 0; Result := 0;
Exit; Exit;