var
Bmp1,Bmp2 :TBitmap;
begin
Bmp1 :=TBitmap.Create;
Bmp1.LoadFromFile('F:/图象/BMP2/[04].bmp');
Bmp2 :=TBitmap.Create;
Bmp2.LoadFromFile('F:/图象/BMP2/[11].bmp');
//逻辑与:用SRCAND;逻辑或:用SRCPAINT
BitBlt
(Bmp1.Canvas.Handle,0,0,Bmp1.Width,Bmp1.Height,Bmp2.Canvas.Handle,0,0,SRCPAINT);
Image1.Picture.Bitmap.Assign(Bmp1);
Bmp1.Free;
Bmp2.Free;
end;
来自:wqhatnet, 时间:2004-5-15 12:15:00, ID:2611597 | 编辑
var
temp: TBitmap;
i:integer;
begin
temp:=TBitmap.Create;
try
temp.Height :=400;
temp.Width :=600;
temp.Transparent:=True;
temp.Canvas.Brush.Color:=clWindow;
temp.canvas.Font.Size:=12;
temp.Canvas.Font.Name:='宋体';
temp.Canvas.Font.Color:=clred;
for i:=0 to memo1.lines.count-1do
temp.Canvas.TextOut (10,20*i,memo1.lines.strings);
FORM1.Image1.Picture.Assign(temp);
Finally
temp.Destroy;
end;
end;