Alguem tem uma solucao pra isso?

Question

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 ir...

Motta · Answer

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;

Alcantarus · Answer

[quote:fbbb030479=�Motta�]meio tosco, mas a ideia � usar o canvas ....[code:1:fbbb030479]procedure TForm1.Button1Click(Sender: TObject);begin  Image1.Canvas.Font.Size := 16;  Image1.Canvas.Font.Color := clNavy;  Image1.Canvas.Font.Style := &#91;fsBold&93;;  Image1.Canvas.TextOut(2,2,�alcantarus�);  Image1.Picture.Bitmap.SaveToFile(�c:lixolixo.bmp�);{deve existir a pasta}end;[/code:1:fbbb030479][/quote:fbbb030479]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);beginbegin    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....

F�rum Alguem tem uma solucao pra isso? #290704