zoukankan      html  css  js  c++  java
  • 文本转换为GIF

    //要加入GIFImage单元

    procedure TxtToGIF(txt,FileName:string;Img:TImag);

    var

        temp:TBitmap;

        GIF:TGIFImage;

    begin

        temp :=TBitmap.Create;

        try

            temp.Height :=400;

            temp.Width :=60;

            temp.Transparent :=True;

            temp.Canvas.Brush.Color :=clWhite;

            temp.Canvas.Font.Name :='宋体';

            temp.Canvas.Font.Color :=clBlue;

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

            Ima.Picture.Assign(nil);

            GIF :=TGIFImage.Create;

            try

                GIF.Assign(temp);

                GIF.SaveToFile(FileName);          

                Img.Picture.Assign(GIF);

            finally

                GIF.Free;

            end;

        finally

            temp.Destroy;

        end;

    end;

  • 相关阅读:
    HDU 4123 Bob’s Race 树的直径+ST表
    acm 2015北京网络赛 F Couple Trees 树链剖分+主席树
    acm java入门(转载)
    java水题集
    南昌网络赛C.Angry FFF Party
    eclipse 安装
    eclipse jdk安装
    树链剖分总结
    P
    L
  • 原文地址:https://www.cnblogs.com/djcsch2001/p/2035798.html
Copyright © 2011-2022 走看看