如何实现在Bitmap（已经load进了背景图）上输入文字，而且文字的背景是透明的，最后能保存位图？(100分)

xishi · 2000-11-08

如何实现在Bitmap（已经load进了背景图）上输入文字，而且文字的背景是透明的，
最后能保存位图？比如：
bitmap1:=TBitmap.Create ;

try
Bitmap1.LoadFromFile('f:/test.bmp');
Canvas.Brush.Bitmap := Bitmap1;
Canvas.FillRect(ClientRect);
finally
Form1.Canvas.Brush.Bitmap := nil;
bitmap1.Canvas.textout(100,100,'爱情');//如何把这几个字的背景设为透明？
bitmap1.SaveToFile('f:/test1.bmp'); //现在的底色是白色，把背景遮住，不好看
Bitmap1.Free;
end;

JohnsonGuo · 2000-11-08

Bitmap1.Canvas.Brush.Style := bsClear;

天真 · 2000-11-08

var bitmp1,bitmap2:tbitmap;//bitmap2为临时变量;
intrect:trect;
a:string;
begin
a:='asdfasfa';
bitmap1:=tbitmap.create;
bitmap2:=tbitmap.create;
bitmap1.width:=100;
bitmap1.height:=100;
bitmap2.width:=bitmap1.width;
bitmap2.height:=bitmap1.height;
bitmap1.canvas.CopyMode:=cmsrcand;
intrect:=rect(0,0,bitmap1.width,bitmap1.height);
bitmap2.canvas.brush.color:=clwhite;
bitmap2.canvas.fillrect(intrect);
bitmap2.canvas.TextRect(intrect,5,5,a);
bitmap1.canvas.CopyRect(intrect,bmpp.canvas,rect(0,0,bitmap1.width,bitmap1.height));
bitmap1.canvas.savefile('c:/tt.bmp');//保存文件
bitmap1.free;
bitmap2.free;
end;

GGCAT · 2000-11-09

天真真是够天真啊，哈哈。一句话就完了：见JohnsonGuo之回答。

Jams · 2000-11-12

房客 · 2000-12-01

TRANSPARENT

samseaman · 2000-12-06

可以利用分层技术

Bacchus · 2000-12-07

正解：SetBkMode

cat.yy · 2000-12-16

干脆在Image上加TLabel,设Caption:='XXX' TRANSPARENT:=TRUE;

xiaoyu_online · 2000-12-27

同意CAT。YY的意见。这样来得快！也方便，最好是运行时创建！

CathyEagle · 2000-12-27

>>干脆在Image上加TLabel,设Caption:='XXX' TRANSPARENT:=TRUE;
人家要能保存位图。
上面的两种方法都可以。

flybibi · 2000-12-27

用SetBkMode

但是我要做成Memo一样的多行编辑器，又要透明怎么办呢？

面条 · 2000-12-27

用RichEdit98
我以前作过,可以有底图,可以透明

wjiachun · 2001-01-15

多人接受答案了。

卷起千堆雪tyn · 2001-09-27

这个问题可以利用一个API函数，如下：
只需要在
bitmap1.Canvas.textout(100,100,'爱情');

如何实现在Bitmap（已经load进了背景图）上输入文字，而且文字的背景是透明的，最后能保存位图？(100分)

xishi

Unregistered / Unconfirmed

JohnsonGuo

Unregistered / Unconfirmed

天真

Unregistered / Unconfirmed

GGCAT

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

房客

Unregistered / Unconfirmed

samseaman

Unregistered / Unconfirmed

Bacchus

Unregistered / Unconfirmed

cat.yy

Unregistered / Unconfirmed

xiaoyu_online

Unregistered / Unconfirmed

CathyEagle

Unregistered / Unconfirmed

flybibi

Unregistered / Unconfirmed

面条

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

卷起千堆雪tyn

Unregistered / Unconfirmed

Similar threads