Mapx中,如何在位图(如小车)旁加一车牌号标注?急!!(200分)

  • 主题发起人 主题发起人 microbit
  • 开始时间 开始时间
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2609941
 
简单点,如何?
 
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;


 
后退
顶部