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

richmemo: win32, assigning IRichMemoOLECallback object on RichMemo creation.

Browse Source 
The object would generate storages for incoming OLE object (needed for WinXP machines to load RTF embedded objects).
based on the sample by engkin

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5159 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2016-09-14 13:28:09 +00:00
parent e55cc71598
commit 052a7a2ad1
2 changed files with 112 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -167,6 +167,7 @@ var
// the value can be set to nil to use system-native drawing only.
// or set it to whatever function desired
NCPaint : TNCPaintProc = nil;
AllocOLEObject : procedure (ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
function GetSelRTF(amemo: TCustomRichMemo): string;
@@ -505,6 +506,16 @@ begin
Result:=Assigned(AWinControl) and (SendMessage(AWinControl.Handle, EM_CANPASTE, 0, 0)<>0);
end;
procedure AssignOLECallback(ARichMemo: TCustomRichMemo; ahandle: Windows.THandle);
var
cb : IRichEditOleCallback;
begin
if not Assigned(AllocOLEObject) then Exit;
AllocOLEObject(ARichMemo, ahandle, cb);
if Assigned(cb) then
Windows.SendMessage(ahandle, EM_SETOLECALLBACK, 0, LPARAM(cb));
end;
class function TWin32WSCustomRichMemo.CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND;
var
@@ -562,6 +573,11 @@ begin
// SetMaxLength call, see above.
SendMessage(AWincontrol.Handle, EM_EXLIMITTEXT, 0, LParam(-1));
// Setting OLE callback.
if AWinControl is TCustomRichMemo then // sanity checl
AssignOLECallback(TCustomRichMemo(AWincontrol), AWincontrol.Handle);
// memo is not a transparent control -> no need for parentpainting
Params.WindowInfo^.ParentMsgHandler := @RichEditNotifyProc;
Params.WindowInfo^.needParentPaint := false;
@@ -1393,8 +1409,6 @@ begin
end;
end;
type
TStreamText = record
buf : AnsiString;
@@ -1403,7 +1417,7 @@ type
function Read(dwCookie:PDWORD; pbBuff:LPBYTE; cb:LONG; var pcb:LONG):DWORD; stdcall;
var
p : PStreamText;
//p : PStreamText;
b : string;
i : integer;
begin
@@ -1441,8 +1455,17 @@ begin
Result:=tt.buf;
end;
procedure DefAllocOleObject(ARichMemo: TCustomRichMemo; AHandle: Windows.THandle; out OleCallback: IRichEditOleCallback);
var
cb : TRichEditCallback;
begin
cb:=TRichEditCallback.Create;
OleCallBack:=cb;
end;
initialization
NCPaint := @ThemedNCPaint;
AllocOLEObject := @DefAllocOleObject;
end.