如何使我的编辑器能插入图像??(300分)

  • 主题发起人 主题发起人 kai
  • 开始时间 开始时间
K

kai

Unregistered / Unconfirmed
GUEST, unregistred user!
如何使我的编辑器能插入图像??
例如从剪贴板中粘贴图像??
编这样的编辑器的思路是什么??
欢迎兄弟们指教。。。
 
对剪贴板对象编程,想当然的,没做过
 
我也在想,大概需要自己一点一点的写程序吧。
 
用RICHEDIT空件我做过
 
插入图像首先需要给你的编辑框(TMemo or TRichEdit)的ControlStyle加上一个
csAcceptsControl
复制粘贴可以使用 TClipboard 先用她的HasFormat(CF_Bitmap)检测一下是否有图
像在件铁板中
 
我帮你做!
用VCL的TClipbord类,它封装了Windows的剪贴板。
在uses中加入Clipbrd单元
你的菜单下剪贴板的三个功能:
1、copy功能
使用TClipbord对象的Assign方法,把Picture赋给剪贴板。
procedure Tform1.copy1Click(sender:ToBject);
begin
Clipbord.Assign(bitmap1);
//bitmap1位图
end;

2、Cut功能
procedure Tform1.Cut1Click(sender:ToBject);
var
ARect:TRect;
begin
Copy1Click(sender);//赋给剪贴板。
with Image.canvasdo
begin
CopyMod:=cmwhiteness;
//白色
ARect:=Rect(0,0.Image.width,Image.Height);
//获得一个长方形
CopyRect(ARect,Image.Canvas,ARect);
copyMode:=cmSrcCopy;
end;

end;

3、paste功能
Procedure TForm1.PasteClick(Sender:TObject);
var
Bitmap:Tbitmap;
begin
if Clipboard.HasFormat(CF_BITMAP) then
//windows点位图
begin
Imapg.Picture.BitMap.Assign(Clipboard);
end;
end;


 
实际上就是 基于 com 的 drag&drop (牵扯到 clipboard),
正努力学习中。。。
 
RX Library 中的TRxRichEdit可以插入图像。
能满足你的要求。
 
多人接受答案了。
 
后退
顶部