如何在文章中画图(200分)

W

wymxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #1

我用RICHEDIT从外部导入了一篇文章，我想用鼠标在文章中的文字上作图画圈，作出各
种标记，并将它保存下来。请问各位大侠如何实现。

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #2

var
ACanvas:TCanvas;
begin
ACanvas:=TCanvas.Create;
ACanvas.Handle:=GetDC(RichEdit1.handle);
try
imagelist1.draw(ACanvas,1,1,0);
finally
ACanvas.Free ;
end;

 

W

wymxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #3

上面的方法行不通，难道就没有人能回答我？[]

 

T

toli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-22

• #4

捕捉TRichEdit的OnPaint消息
在捕捉事件中加入上面的代码，试试！

 

K

kyq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #5

请看
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1336602

外加处理就可以，图片在RichEdit外编辑比较易实现。

 

Y

YoungSun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #6

张无忌大侠说的方法是可行的，我试了通过了。如下：
procedure TForm1.Button1Click(Sender: TObject);
var
ACanvas:TCanvas;
begin
ACanvas:=TCanvas.Create;
ACanvas.Handle:=GetDC(RichEdit1.handle);
try
ACanvas.Draw(0,0,image1.Picture.Graphic);
finally
ACanvas.Free ;
end;
end;