Hallo Zusammen,
ich bin jetzt wieder soweit, dass ich in die PaintBox malen kann, allderings jetzt unter Verwendung eines BitMap.
Delphi-Quellcode:
procedure TForm1.PB_SignatureMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ErsterZug) then begin
ErsterZug := False;
Image.Canvas.MoveTo(X, Y);
end;
if (SollGezeichnetWerden) then
Image.Canvas.LineTo(X, Y);
PB_Signature.Invalidate;
end;
procedure TForm1.PB_SignaturePaint(Sender: TObject);
var r: TRect;
begin
PB_Signature.Canvas.Pen.Color:=clBlack;
PB_Signature.Canvas.Pen.Width:=2;
r:=rect(0,0,Image.Width,Image.Height);
PB_Signature.Canvas.CopyRect(r,Image.Canvas,r);
end;
Jetzt möchte ich das in dem TBitMap [Image] erstellt Bild in das DBImage [DBImage_Signature]bekommen. Das klappt leider noch nicht...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
begin
DBImage_Signature.Width:=Image.Width;
DBImage_Signature.Height:=Image.Height;
r:=rect(0,0,Image.Width,Image.Height);
DBImage_Signature.Picture.Bitmap.Canvas.CopyRect(r,Image.Canvas,r);
end;
Vielen Dank für die Unterstützung
Patrick