Delphi 绘图
xu_yancheng
这个作者很懒,什么都没留下…
展开
-
如何实现类似KTV中屏幕歌词显示
本功能其实于一般的绘图工作无异,主要是将文本绘制在Screen上即可1 procedure TForm1.Button1Click(Sender: TObject);var c :TCanvas;begin c := TCanvas.Create; c.Handle := GetDC(0); //获取桌面 Handle SetBkMod原创 2009-01-01 21:26:00 · 2046 阅读 · 0 评论 -
Delphi 捕捉全屏幕图像
procedure SaveScreenToBmp(AFileName :TFileName);var bit: TBitmap; cvs: TCanvas;begin bit := TBitmap.Create; bit.SetSize(Screen.Width, Screen.Height); cvs := TCanvas.Create;原创 2009-01-01 21:41:00 · 914 阅读 · 0 评论