چاپ کردن متن روی عکس

[pooyesh]

با سلام
آیا کسی میدونه چطوری می شه یک متن رو وی یک عکس چاپ کرد و با همان پسوند ذخیره کرد؟ :(

[Touska]

با دستورات گرافیکی مثل textout میشه این کار رو انجام داد و ذخیره کرد. :flower:

[hr110]

اگر تصویر شما از نوع bmp میتوانید انرا در یک Timage لود کرده و در Canvas آن هر تغییری که خواسته باشید اعمال کنید ولی به جز این باید ابتدا تبدیل به bmp شده و سپس مانند بالا ادامه دهید.

ممکن است راهی داشته باشد ولی این حقیر بی اطلاع است :oops:

[pooyesh]

با تشکر
از راهنمایی هایتان ممنون
کد دقیق تر آن هم این است
البته باید یک Image1 روی فرمت قرار بدی

procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode : integer;
begin
with Image1.Canvas do begin
OldBkMode := SetBkMode(Handle, TRANSPARENT);
TEXTOUT(10, 50, 'موفق باشید');
SetBkMode(Handle, OldBkMode);
end;
end; :wink: