Tach...
Code:
procedure TfCalendar.pbDrawMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
if (ssLeft in Shift) then
begin
pbDraw.Canvas.Pixels[X,Y] := clBlack;
end;
end;
Mit diesem Code hab ich versucht, ein Pinsel / Stiftfunktion in meiner Anwendung zu ermöglichen. Vieleicht kennt der ein oder andere schon das Problem: bewegt man die Maus mal etwas schneller, dann ist der Pinselstrich nicht mehr durchgängig sondern löst sich in vereinzelte Punkte aus. Wie schaffe ich es, eine durchgängige Freihandlinie zu zeichnen?
MfG