drkb.ru
пример на коленке.
| Код |
procedure texttoimage(text:string;afont:tfont;coordx,coordy:integer);
begin
with image1.canvas do begin
font:=afont;
textout(coordx,coordy,text);
end;
end;
procedure mergeimgs(var imagea,imageb:timage;opitac:byte);
var bl:tblendfunction;
begin
with bl do begin
blendop:=ac_src_over;
belndflags:=0;
sourceconstantalpha:=opitac;
alphaformat:=0;
end;
alphablend(image1.canvas.handle,0,0,image1.width,image1.height,image2.canvas.handle,0,0,image2.width,image2.height,bl);
end;
procedure savetofile(path:string);
begin
image1.savetofile(path);
end;
|
вроде, так.
зы. reaktor488, вы при регистрации единицу забыли.
|
это где?