fehler in bildern suchen und dann durch labels makieren

[rono]

Hallo erstmal,
ich bin neu hier und brauche hilfe bei einem programm, dass ich schreiben soll...

ich muss ein programm schreiben, bei dem zwei bilder angezeigt werden sollen, wobei auf einem fehler versteckt sind , die man dann suchen soll!

man soll mit der maus dann auf den fehler klicken und durch ein label oder was anderes, soll dieser fehler dann makiert werden (mit nem kreis oder was anderem)!

mein problem ist jetzt, wie man das machen könnte, bin nähmlich ein totaler anfänger!!!

wäre voll nett, wenn mir jemand helfen könnte


schon mal vielen dank an alle

[mkinzler]

Ich würde das nicht mit einem Label machen, sondern einen Kreis über dem Bild auf dessen Canvas zeichnen.

[DocE]

Halllo rono,

also verstehe ich das richtig, dass nicht das Programm nach Fehlern suchen soll, sondern der Anwender. Das Programm soll nur die Stellen markieren, auf die der Anwender klickt?

Dann:

Ich nehme an, Du benutzt zur Anzeige TImages. Dann könntest Du bei einem Klick (MouseDown) ein Shape an die Stelle zeichnen lassen, z.B. so:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var aShape: TShape;
begin

  if ssLeft in Shift then
  begin

    aShape := TShape.Create(self);
    aShape.Parent := self;
    aShape.Left := TImage(Sender).Left + X;
    aShape.Top := TImage(Sender).Top + Y;
    aShape.Width := 15;
    aShape.Height := 15;
    aShape.Shape := stCircle;
    aShape.Pen.Color := clRed;
    aShape.Pen.Width := 2;
    aShape.Brush.Style := bsClear;
    aShape.Visible := true;

  end;

end;

Wesentlich besser ist natürlich, wie mkinzler bereits geschrieben hat, das direkte Zeichnen des Kreises auf die Canvas des Bildes... Aber so (wie oben) könntest Du z.B. mit einem Rechtsklick den Kreis wieder entfernen oder verschieben lassen, falls benötigt.


Grüsse
...Doc

[rono]

ich find das voll toll, dass ihr so schnell ideen parat habt für mich!

DANKE

ich habe jetzt den quellcode von doc in mein programm geschrieben und wenn ich den button drücke werden mir die kreise angezeigt!!!

nun aber den button soll man ja nicht sehen, wäre ja sonst irgendwie blöd, aber wenn ich den auf visible = false lege, kann ich denn ja nich mehr mit der maus anklicken...

hab ich was falsch gemacht, wie kann man den button sonst unsichtbar machen???

[DocE]

Das ganze muss nicht hinter einen Button, sondern in das TImage-OnMouseDown-Event. Also (zur Design-Zeit) Image anklicken, im Delphi-Objektinspektor auf "Ereignisse", dann hinter "OnMouseDown" doppelklicken und den Code dort einfügen.

Wenn Du dann auf das Image klickst (zur Laufzeit), wird der Kreis an der geklickten Stelle eingefügt.


Grüsse
...Doc

[dino]

seit wann betreiben wir hier copy & paste Programmierung???

an und für sich find ich die aufgabe interessant, ich machs auch mal