Alguem tem uma solucao pra isso?

Delphi

03/08/2005

Amigos, estou com uma dificuldade, e vcs certamente terao uma solucao.
Gostaria de ter um Form, e nele contendo um Edit, onde eu iria digitar uma palavra, e clicar num botao OK por exemplo, dai ele iria gerar essa palavra que eu digitei no Edit, com a extensao .BMP...
Exemplo:

+--------------------------+
| Digite o código: DB-453 |
+--------------------------+

Esse codigo nesse Edit, o DB-453, eu gostaria que fosse convertido para uma Imagem .BMP, e ai eu escolheria um destino, para onde ele fosse gravado, etc...
Ps: Teria como tb escolher as dimensoes desse .BMP que fosse gerado na hora de Clicar num Botao ´Gerar BMP´, por exemplo?

Conto com a presteza desse nobre forum e de seus participantes,

Grato,

Alcantarus.


Alcantarus

Alcantarus

Curtidas 0

Respostas

Motta

Motta

03/08/2005

meio tosco, mas a ideia é usar o canvas ....

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Font.Size := 16;
  Image1.Canvas.Font.Color := clNavy;
  Image1.Canvas.Font.Style := [fsBold];
  Image1.Canvas.TextOut(2,2,´alcantarus´);
  Image1.Picture.Bitmap.SaveToFile(´c:\lixo\lixo.bmp´);{deve existir a pasta}
end;



GOSTEI 0
Alcantarus

Alcantarus

03/08/2005

meio tosco, mas a ideia é usar o canvas .... 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.Canvas.Font.Size := 16;
  Image1.Canvas.Font.Color := clNavy;
  Image1.Canvas.Font.Style := [fsBold];
  Image1.Canvas.TextOut(2,2,´alcantarus´);
  Image1.Picture.Bitmap.SaveToFile(´c:\lixo\lixo.bmp´);{deve existir a pasta}
end;


Caro Motta,

Esse codigo funciona, parcialmente...
Bem, ele grava o Bitmap como ´alcantarus´, blz... mas, se eu colocar isso num while, tipo:

procedure TForm1.Button1Click(Sender: TObject);
begin

begin
Image1.Canvas.Font.Size := 16;
Image1.Canvas.Font.Color := clNavy;
Image1.Canvas.Font.Style := [fsBold];
while not table1.eof do
Image1.Canvas.TextOut(1,1,Table1Referencia.Value);
Image1.Picture.Bitmap.SaveToFile(´C:\Imagens\´ + Table1Referencia.Value + ´.bmp´);
Table1.Next
end;
end;


Com isso, ele ira gerar os .BMP com as referencias menores OK, por exemplo: A-000, B-000, C-000, D-000, com cinco caracteres, mas, se vier uma referencia maior, tipo: AB-000, FB-200, com seis caracteres, ao gerar outras referencias menores, ele ira gerar o .BMP com o ultimo digito da referencia maior, exemplo, se for gerar A-215, o .Bmp ficara como A-2150, pegando o ultimo zero da referencia FB-200...
Tem como dimensionar isso, somente pegando o dado que realmente necessito e gerando o .BMP correto?

Grato,

No aguardo dessa solucao, desde ja agradeco,

Alcantarus.


GOSTEI 0
POSTAR