Tach...

markieren

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

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

Tach...

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

markieren

Code:

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