Mmmh, das verstehe ich leider nicht...
Ich habe jetzt ein globales Image: TBitMap erstellt.
In der PaintBox spechere ich die Stift-Aktion aus dem MouseMove-Event in dem 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);
end;
Aber wie zeichne ich dann das Ergebnis in die PaintBox und wie soll ich es daraus in das DBImage bekommen?
Delphi-Quellcode:
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);
PB_Signature.Invalidate;
end;
Wenn ich das so mache, bekomme ich nichts mehr in der PaintBox zu sehen und bekomme auch nichts in das DBImage übertragen...
Vielen Dank
Patrick