C chemer Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-04 #1 [?]我想将label的caption文字复制或保存成图形,并输出成文件? 最好是gif格式背景透明。如何实现?
G GBlueMan Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-04 #2 你如果只是想要标签的文字效果的话,那你可以用一个屏幕抓图工具将它抓成图片即可, 最简单的就是:在键盘上按一下Print键,然后在画图工具了新建一个文档然后选择粘贴 最后剪切你想要的文字效果即可。
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-04 #3 procedure TForm1.Button1Click(Sender: TObject); var Bmp :TBitmap; begin Bmp :=TBitmap.Create; Bmp.Width :=Label1.Width; Bmp.Height :=Label1.Height; Bmp.Canvas.TextOut(0,0,Label1.Caption); Bmp.SaveToFile('c:/aaa.bmp'); Bmp.Free; end; 如果保存为gif格式,你需要下载一个GifImage控件。
procedure TForm1.Button1Click(Sender: TObject); var Bmp :TBitmap; begin Bmp :=TBitmap.Create; Bmp.Width :=Label1.Width; Bmp.Height :=Label1.Height; Bmp.Canvas.TextOut(0,0,Label1.Caption); Bmp.SaveToFile('c:/aaa.bmp'); Bmp.Free; end; 如果保存为gif格式,你需要下载一个GifImage控件。