richedit插入图片错误

用richtextctrl插入jpg图片,图片不全(下载不全)发生错误。
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
不用第三方控件,让richEdit支持图片与表格换行 DELPHI 6 提供的RICHEDIT是1.0,并不支持图片,对复杂表格也会乱成一团,如何在DELPHI原有控件的基础上做少量修改,使之支持显示图片与正确显示表格,其实只需要几行就好了,方法如下: 找到richEdit控件所在单元ComCtrls.pas (在SOURCE\VCL) //第一步 procedure TCustomRichEdit.CreateParams(var Params: TCreateParams); const // RichEditModuleName = 'RICHED32.DLL';//原来语句 // RichEditClassName = 'RICHEDIT'; //原来语句 RichEditModuleName = 'Msftedit.dll'; //改后语句 RichEditClassName = 'RichEdit50W'; //改后语句 //第二步 procedure TCustomRichEdit.CreateWnd; .... //加入一行要放在 CreateWnd 因为此时 HANDLE已建立 Perform(EM_SetOleCallback, 0, Longint(TRichEditOleCallback.Create(TRichEdit(self)) as IRichEditOleCallback)) ; //第三步 procedure TCustomRichEdit.WMRButtonUp(var Message: TWMRButtonUp); begin inherited; // RichEd20 does not pass the WM_RBUTTONUP message to defwndproc, // so we get no WM_CONTEXTMENU message. Simulate message here. // if Win32MajorVersion < 5 then //是原有1.0的要去掉 Perform(WM_CONTEXTMENU, Handle, LParam(PointToSmallPoint( ClientToScreen(SmallPointToPoint(Message.Pos))))); end; //第四步 procedure TRichEditStrings.Insert(Index: Integer; const S: string); .... //要去掉后面两名 // 1.0 uses, 2.0 will error happened 2011 // if RichEdit.SelStart (Selection.cpMax + Length(Str)) then //是原有1.0的要去掉 // raise EOutOfResources.Create(sRichEditInsertError); //是原有1.0的要去掉
在设计 richedit 时放入图片非常简单。在 Windows 操作系统中,richedit 控件已经内置了图像功能,可以支持插入和显示图片。 首先,要在 richedit 控件中放入图片,首先需要将图片文件加载到内存中。可以使用 GDI+ 库或其他图像处理库来实现这一点。一旦图像文件被加载到内存中,就可以通过 richedit 的 API 来插入图像。 在插入图像之前,需要先选择插入点。可以使用 richedit 的 EM_SETSEL 消息来设置插入点。然后,通过使用 EM_SETCHARFORMAT 消息,将插入点的格式设置为图像格式。这样,一旦图像被插入,它将以图像的形式显示在 richedit 控件中。 要插入图像,可以使用 EM_REPLACESEL 消息。该消息用于替换选择或插入点所在位置的文本。通过提供包含图像的 RTF (Rich Text Format) 格式数据,将图像插入到 richedit 控件中。 一旦图像被插入,就可以通过富文本编辑控件的消息或方法来处理图像。例如,可以调整图像的大小、移动图像位置或删除图像等。 需要注意的是,富文本编辑控件中插入的图像通常会增加文本的大小,因为图像被嵌入在文本中。因此,在设计 richedit 时,需要特别关注图像的大小和位置,以避免导致控件内部的排版问题。 总之,富文本编辑控件的设计允许在其中插入图像。通过合适的 API 调用和消息处理,可以轻松地在 richedit 控件中插入、显示和操作图像。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值