TXT ---> GIF

Previous  Top  Next

    
 

 

 

Code:

procedure TxtToGif(txt, FileName: string);

var

temp: TBitmap;

GIF: TGIFImage;

begin

 

temp := TBitmap.Create;

try

   temp.Height := 400;

   temp.Width := 60;

   temp.Transparent := True;

   temp.Canvas.Brush.Color := colFondo.ColorValue;

   temp.Canvas.Font.Name := Fuente.FontName;

   temp.Canvas.Font.Color := colFuente.ColorValue;

   temp.Canvas.TextOut(10, 10, txt);

   Imagen.Picture.Assign(nil);

 

   GIF := TGIFImage.Create;

   try

     // Convert the bitmap to a GIF

     GIF.Assign(Temp);

     // Save the GIF

     GIF.SaveToFile(FileName);

     // Display the GIF

     Imagen.Picture.Assign(GIF);

   finally

     GIF.Free;

   end;

 

finally

 

   temp.Destroy;

end;

end;

©Drkb::04281

Âçÿòî ñ Delphi Knowledge Base: http://www.baltsoft.com/