paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

richmemo: win32 adding InsertInlineFlags to give control over how inline objects are inserted

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5163 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2016-09-15 03:21:46 +00:00
parent 7d3b69a48e
commit 9953b56cdf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -168,6 +168,7 @@ var
// or set it to whatever function desired
NCPaint : TNCPaintProc = nil;
AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
InsertInlineFlags : Integer = REO_OWNERDRAWSELECT;
function GetSelRTF(amemo: TCustomRichMemo): string;
function GetRichEditOLE(amemo: TCustomRichMemo): IRichEditOle; overload;
@ -1239,7 +1240,7 @@ begin
Obj.pstg := Storage;
Obj.polesite := ClientSite;
Obj.dvaspect := DVASPECT_CONTENT;
Obj.dwFlags := REO_OWNERDRAWSELECT;
Obj.dwFlags := InsertInlineFlags;
Obj.sizel.cx:=round(ASize.cx * SizeFactor);
Obj.sizel.cy:=round(ASize.cy * SizeFactor);