Delphi Pinselfunktion für eine PaintBox

Thema durchsuchen

Ansicht

Themen-Optionen

Pinselfunktion für eine PaintBox

Ein Thema von maynard · begonnen am 16. Dez 2005 · letzter Beitrag vom 16. Dez 2005

Vorheriger Beitrag

Nächster Beitrag

maynard

Registriert seit: 22. Jun 2004
Ort: Deutschland
72 Beiträge

Delphi 7 Enterprise

Pinselfunktion für eine PaintBox

16. Dez 2005, 14:01

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

"Denkst Du dasselbe wie ich, Pinky?" - "Ich glaube schon, Brain, aber was ist, wenn das Huhn die Strumpfhosen nicht anziehen will...?"