Text To Image Hakkında Yardım [Çözüldü]

[adelphiforumz]

S.A.

EditBox'a girilen bir String değeri
640x480 formatında Jpg olarak kaydetmek mümkünmüdür.

Teşekkürler

[ikra]

önce bir bmp olustur, daha sonra olusturulan bmp'nin boyutlarini istedigin ölcüde ayarla.
bmp.canvas.drawtext ile string'i resmin üzerine yazdirip daha sonra bmp.savetofile yap.

[adelphiforumz]

Teşekkürler

dediğiniz şekilde bende küçük bir örnek yaptım
belki birine daha lazım olur

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.Width := Image1.Width;
  bmp.Height := Image1.Height;
  bmp.Canvas.Font.Size  := 36;
  bmp.Canvas.Font.Color := clRed;
  bmp.Canvas.Font.Style := [fsBold];
  bmp.Canvas.Font.Name := 'Courier New';

  bmp.Canvas.TextOut(50, 20,  FormatDateTime('DD MMMM YYYY DDDD', Date));
  bmp.Canvas.TextOut(50, 100, 'SATIR 1');
  bmp.Canvas.TextOut(50, 150, 'SATIR 2');

  bmp.Canvas.Font.Style := [fsBold,fsUnderline];
  bmp.Canvas.TextOut(50, 230, 'Satır3');
  bmp.Canvas.Font.Style := [fsBold];
  bmp.Canvas.TextOut(50, 300, 'Satır 4');
  bmp.Canvas.TextOut(50, 350, 'Satir5');

  Image1.Picture.Assign(bmp);
  Image1.Picture.SaveToFile('a.jpg');
end;