strak2012 Colaborador
Registrado: Segunda-Feira, 13 de Janeiro de 2014 Mensagens: 1518 Localização: Maceió - AL
|
Enviada: Ter Mar 26, 2019 12:06 am Assunto: |
|
|
Tenta isso aqui
Código: | {...}
var
png: TPNGObject;
bmp: tbitmap;
altura,largura:integer;
begin
bmp := tbitmap.Create;
bmp.SetSize(largura, altura);
bmp.Canvas.Pen.Style := psClear;
bmp.Canvas.Brush.Color := rgb(255, 0, 255);
bmp.Canvas.Rectangle(0, 0, largura+1, altura+1);
bmp.Canvas.Pen.Style := psSolid;
png := TPngImage.CreateBlank(COLOR_RGBALPHA, 16, largura, altura);
png.CreateAlpha;
{desenho das linhas aqui}
bmp.Canvas.Pen.Color := clred;
bmp.Canvas.Pen.Width := 5;
bmp.Canvas.MoveTo(10, 10);
bmp.Canvas.LineTo(150, 150);
png.AssignHandle(bmp.Handle, true, rgb(255, 0, 255));
png.SaveToFile('c:\meuTest.png');
png.Free;
bmp.free;
{....} |
bom é isso boa sorte _________________ Tudo podemos quando tudo sabemos! |
|