MouseMove zeichnet auf Canvas Punkte

[Skycl4w]

Hallo DP

Ich hab derzeit ein Problem mit Canvas und MouseMove.

Ich möchte mit MouseMove auf einem Canvas zeichnen. Zieht man die Maus jedoch schneller, erscheinen statt durchgezogene Linien Punkte. Die Variable Zeichne wird mit MouseDown und Up geändert.

Delphi-Quellcode:

procedure TMain.imCanvasMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Zeichne = 1 then
    begin
      with imCanvas.canvas do
        begin
          moveto(x,y);
          lineto(x+1,y+1);
        end;
    end;
end;

Danke im vorraus

[Sunlight7]

Hallo Skycl4w!

Der Ansatz war schon der Richtige, nur die Ausführung nicht ganz.
So klappt es.

Delphi-Quellcode:

procedure TMain.imCanvasMouseDown(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  Zeichne:=True;
  imCanvas.canvas.moveto(x, y);
end;

procedure TMain.imCanvasMouseMove(Sender:TObject; Shift:TShiftState; X, Y:Integer);
begin
  if Zeichne then
     imCanvas.canvas.lineto(x, y);
end

procedure TMain.imCanvasMouseUp(Sender:TObject; Button:TMouseButton; Shift:TShiftState; X, Y:Integer);
begin
  Zeichne:=False;
end;

[Skycl4w]

*mit brett vor Stirn schlag*

klar...wenn mans sieht isses total logisch...
Danke ^^

[dino]

stimmt habs auch ausprobiert...

das ist halt mit der "besonderen Denkweise der Programmierer" gemeint

[Sunlight7]

Zitat:

Zitat von Skycl4w

*mit brett vor Stirn schlag*

Ich hoffe, die Kopfschmerzen halten sich in Grenzen.

Zitat:

Zitat von dino

das ist halt mit der "besonderen Denkweise der Programmierer" gemeint

Wieso?
Ist das so schwierig? :zwinker:
So ein ähnliches Beispiel steht sogar in der OH.