Boah *arschtret*

Ich bin grad total blind!?

Wie kann ich auf einem Canvas im OnMouseMove etwas zeichnen?
Bleistift, Pinsel ... also wahrlose Linien! *schäm*

Meinst du z.b. das?

zusammenfalten · markieren

Delphi-Quellcode:

var
  Form1: TForm1;
  oldpoint : tpoint;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  image1.Canvas.LineTo(oldpoint.X+1,oldpoint.Y+1);
  oldpoint.x := x;
  oldpoint.y := y;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldpoint.X := 0;
  oldpoint.Y := 0;
end;

Hi also ich würde das so machen

zusammenfalten · markieren

Delphi-Quellcode:

private
  Down: Boolean; // Status der Maus



procedure TForm1.FormCreate(Sender: TObject);
begin
  Down := false;
end;



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    down := true;
    Form1.Canvas.MoveTo(x, y);
end;


procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Down := false;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if down = true then
  begin
    Form1.Canvas.LineTo(x, y);
  end;
end;

Wenn die Maustaste gedrückt ist kannst du zeichnen sonst nicht.
Mfg MrScholz

Ach quatsch, was soll ich denn mit Geraden?

Ich möchte Kringel malen D.h., genau da, wo die Maus gerade steht, soll gemalt werden.

Canvas.Pixels[x][y] = clBlack ist zu langsam... und außerdem, kann ich dann die Brushbreite nicht einstellen, da ich ja nur einen Pixel anspreche...

Hast du meinen Code mal ausprobiert?!
Er zeichnet eine Gerade von x - y d.h. nur einen Punkt
Mfg MrScholz

Edit: Die breite kanst du mit Canvas.Pen.Width einstellen

Muss man das unbedingt mit einer Linie machen?

Wieso denn nicht?
Fällt doch garnicht auf das es mit Linien gemacht worden ost oder?
Mfg MrScholz