关于手写，保存成位图的控件？(50分)

各位老大，这里有完成手写功能，即用鼠标完成绘制线条成为简单的字，然后将所画存成位图。请各位帮忙了！

gz无纸化办公

怎么又来了？

var
Form1: TForm1;
Draw :Boolean;

implementation

{$R *.DFM}

procedure TForm1.FormMouseDown(Sender: TObject
Button: TMouseButton;
Shift: TShiftState
X, Y: Integer);
begin
Draw :=True;
Canvas.MoveTo(x,y);
end;

procedure TForm1.FormMouseMove(Sender: TObject
Shift: TShiftState
X,
Y: Integer);
begin
if Draw then
Canvas.LineTo(x,y);
end;

procedure TForm1.FormMouseUp(Sender: TObject
Button: TMouseButton;
Shift: TShiftState
X, Y: Integer);
begin
Draw :=False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Draw :=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
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('c:/tyn.bmp');
Bmp.Free;
end;

收藏

jieshoule