Pinselfunktion für eine PaintBox

[maynard]

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

[Khabarakh]

Zeichne statt der einzelnen Pixel lieber Linien.
MouseDown: MoveTo(x, y)
MouseMove: LineTo(x, y)

[maynard]

Tach...

Danke, funktioniert so viel besser. Allerdings sollte MouseMove besser so aussehen:

Code:

  if(ssLeft in Shift) then
    pbDraw.Canvas.LineTo(X, Y);