如何在bmp图片上叠加文字(40分)

T

tianzhegs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #1

刚才望给分了，不好意思

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #2

procedure TForm1.Button2Click(Sender: TObject);
var
b:TBitmap;
begin
b:=TBitmap.Create;
b.width:=100;
b.height:=100;
b.Canvas.brush.Color:=clRed;
b.Canvas.pen.Color:=clRed;
b.Canvas.Rectangle(rect(0,0,100,100));
B.Canvas.Font.COLOR:=$00fFFF;
B.Canvas.Font.Size:=24;
b.Canvas.TextOut(10,10,'AAA');
b.Canvas.brush.style:=bsClear;

B.Canvas.Font.COLOR:=$FF0000;
B.Canvas.Font.Size:=24;
b.Canvas.TextOut(15,10,'AAA');

canvas.Draw (0,0,b);
b.free;
end;

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #3

Image1.Picture.Bitmap.Canvas.TextOut(10,10,'AAAA');

 

一

一生中最爱

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #4

把label放在image上，设label透明

 

T

tianzhegs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #5

我想在edit中写字，然后在图片上叠加，并保存

 

眼

眼神的重量

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #6

你先放图片，再把EDIT放在图片上，就OK！

 

D

delphiland

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #7

Image1.Picture.Bitmap.Canvas.TextOut(10,10,Edit1.Text);
Image1.Picture.SaveToFile('C:/aaa.bmp');

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #8

b.Canvas.TextOut(10,10,'AAA');
////改成 edit1.text

 

T

tianzhegs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #9

接受答案了.