Escrever texto em uma imagem já existente

[goncalves_e 0]

Pessoal,

 

Eu estou a procura de uma rotina que carregue uma imagem já existente e se consiga escrever um texto sobre ela. Depois de escrever salvá-la em disco com este texto embutido.

 

Se não fui claro, por favor, me questionem.

 

Abraço.

Gonçalves.

[bdexterholland 0]

a lógica seria essa

 

unit Unit1; 

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtDlgs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
	Button1: TButton;
	Button2: TButton;
	Button3: TButton;
	Edit1: TEdit;
	Image1: TImage;
	OpenPictureDialog1: TOpenPictureDialog;
	SavePictureDialog1: TSavePictureDialog;
	procedure Button1Click(Sender: TObject);
	procedure Button2Click(Sender: TObject);
	procedure Button3Click(Sender: TObject);
  private
	{ private declarations }
  public
	{ public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
	begin
	  Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
	end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Font.Name := 'Tahoma';
  Image1.Canvas.Font.Color:= clYellow;
  Image1.Canvas.TextOut(5, 5, Edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if SavePictureDialog1.Execute then
	begin
	  Image1.Picture.SaveToFile(SavePictureDialog1.FileName);
	end;
end;

end.

Mas deu um pauzinho, fiz no lazarus, ok?

[goncalves_e 0]

Muito obrigado pela ajuda.

Abraço

Eduardo