linienproblem!

[maikaefer5]

hallöle,

ich bin delphianfänger und habe folgendes problem:

ich versuche auf einem TImage eine linie zu zeichnen. Sie sollte möglichst gelb sein und nur erscheinen, wenn man mit der maus drüberfährt.

hilft einem da der befehl >mousemove< oder >canvas.moveto und canvas.lineto< etwas?

danke vielmals im voraus, euer maikäfer

[edit=SirThornberry]Titel geändert - "Hilfe" braucht jeder und sagt nichts über das Problem aus. Mfg, SirThornberry[/edit]

[implementation]

Nimm OnMouseMove als das Event und rufe darin Canvas.MoveTo() und Canvas.LineTo() auf.

Edit:

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; ... );
begin
  if ( ... ) then
  begin
    Image1.Canvas.MoveTo( ... );
    Image1.Canvas.LineTo( ... );
  end;
end;

[Jens Schumann]

Hallo,
ich hatte vor ca. 7 Jahren ein ähnliches Problem.
Die Lösung findest Du in der Anlage. Die function CursorOnLinie
stellt fest, ob sich die Maus über der Linie befindet oder nicht.
Die ersten beiden Parameter stehen für die akt. Mausposition,
die nächsten 4 Parameter für das Recteck in dem sich die Linie befindet
und der letzte Paramter steht für die Empfindlichkeit.

[maikaefer5]

also danke erstmal,
aber wo finde ich denn überhaupt das event mousemove?
und wie wird die linie gelb?

[Klaus01]

Zitat:

Zitat von maikaefer5

also danke erstmal,
aber wo finde ich denn überhaupt das event mousemove?

z.B. im ObjectInspector wenn Du das Image selektiert hast,
dann unter dem Reiter Ereignis schauen.

Zitat:

Zitat von maikaefer5

und wie wird die linie gelb?

Image1.Canvas.Brush.color := yellow;
richtig ist es, wie es implementation im Post #6 beschrieben hat.

Grüße
Klaus

[implementation]

OnMouseMove findest du im Objektinspektor unter "Ereignisse". Ins weiße Feld doppelklicken -> und du landest im Code an der richtigen stelle.

Die Farbe stellst du so ein:

Delphi-Quellcode:

Paintbox1.Canvas.Pen.Color := clYellow;

Dann musst du halt prüfen, ob sich der Mauszeiger über der Linie befindet (s. Jens' Beitrag) und dementsprechend die Linie zeichnen:

Delphi-Quellcode:

with Paintbox1.Canvas do
begin
  MoveTo(1,1);
  LineTo(100,1);
end;

Noch Fragen

PS: Mist, zu spät.

[maikaefer5]

das problem ist jetzt folgendes:

die Linie bleibt trotzdem schwarz. wo muss ich denn die paintbox hinlegen (auf das image oder auf das panel,... )?

und wo muss ich den befehl für die paintbox hinschreiben? -> bei klick auf paintbox oder beim quelltext für die linie?

[implementation]

Die Paintbox liegt da, wo du es hinhaben willst.

Die Färbung setzt du vor das Zeichnen.