Veja abaixo o código da procedure:
procedure ConvTextOut(CV: TCanvas; const sText: String; x, y, angle:integer); |
Para usá-la, você precisa passar o Canvas de destino, ou seja, onde seu texto será desenhado. Qualquer componente que possua a propriedade Canvas poderá ser utilizado para tal, como o próprio form, e até um TImage, que nos permitirá salvar a imagem. Veja:
No Form:
ConvTextOut(Canvas, Edit1.Text, 10, 70, 0);
No TImage:
ConvTextOut(Image1.Canvas, Edit1.Text, 20, 10, 315);
Image1.Picture.SaveToFile('C:imagem.bmp');
Para testar, adicionei um Edit, bois Buttons e um TImage, programando cada um dos códigos acima do seu respectivo botão. O resultado foi como a figura abaixo:
Figura 1 - Resultado da Conversão de Texto em Imagem
2 comentários:
deve ser declarado na seção uses a unit GRAPHICS para que o TCanvas seja achado pelo delphi.
Olá, não está aparecendo a imagem do seu exemplo, valeu
Postar um comentário