| 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!
 |  |