H henry186 Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-14 #1 各位老大,这里有完成手写功能,即用鼠标完成绘制线条成为简单的字,然后将所画存成位图。经请各位帮忙了!
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-14 #2 var Bmp :TBitmap; begin Bmp :=TBitmap.Create; Bmp.Width :=Form1.ClientWidth; Bmp.Height :=Form1.ClientHeight; BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Form1.Canvas.Handle,0,0,SRCCOPY); Bmp.SaveToFile('......'); Bmp.Free; end;
var Bmp :TBitmap; begin Bmp :=TBitmap.Create; Bmp.Width :=Form1.ClientWidth; Bmp.Height :=Form1.ClientHeight; BitBlt(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,Form1.Canvas.Handle,0,0,SRCCOPY); Bmp.SaveToFile('......'); Bmp.Free; end;
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2002-01-15 #5 还要怎么说? 我觉得说得够详细的了! 自己想想啊!