In TImage Bereich hervorheben

[hadschi92]

Um dem Nutzer eine grafische Ausgabe zu geben, möchte ich in einem TImage bestimmte Bereiche hervorheben. Von diesen Bereichen habe ich die Koordinaten der einzelnen Pixel und diese hängen eigentlich immer zusammen. Wie kann ich diese Bereiche hervorheben?

Ich habe an verschiedene Lösungswege gedacht:

Ein zweites, gleichgroßes TImage über das erste legen und dieses als halb durchsichtig definieren (geht das?) und dann die betreffenden Koordinaten mit einer bestimmten Farbe z.B. Pink markieren.

Oder noch besser, einen Rahmen um die Pixel, bzw. um das Objekt zeichnen. In etwa wie in Gimp.

Doch wie lässt sich das realisieren?

[turboPASCAL]

Lege ein zweites (T)Image an, welches du dann anzeigst.
Kopiere in dieses dein oroginales Image als Bitmap.
ImageX.Picture.Bitmap.Canvas. ... Nun kannst du in diem Anzeigebitmapimage deine Markierungen
zeichen. Wenn diese wieder gelöscht werden sollen kopierst du
wieder das orginal Image.

[hadschi92]

Hm, ja dann kann ich doch aber gleich auf das erste TImage schreiben und das originale einfach so im Speicher behalten...

Was mich jetzt aber reizen würde, ist so ein Auswahlrahmen wie in GIMP, sowas sieht einfahch geil aus. Habt ihr da Ansätze? Der Rahmen ist ja nicht starr, sondern Teilweise animiert...

[Medium]

Schau dir den da mal an. Der hat sowas, und auch den Source dabei - grad noch nachgeschaut.

[hadschi92]

Ok, ich hab jetzt die Graphics32 Library gefunden, damit lässt sich das super realisieren. Ein kleines Beispiel damit es auch andere nachvollziehen können:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Timer1.Enabled then
    Timer1.Enabled := true
    else
      Timer1.Enabled := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image321.Bitmap.SetStipple([clBlack32, clWhite32]);  //Farbe des Rahmens setzen
  Image321.Bitmap.StippleStep := 0.35;                 //Gibt an in welchem Abstand sich die Farben abwechseln
  Timer1.Interval := 50;                               //Mit Hilfe des Timers kann man die Geschwindigkeit des Rahmens einstellen
end;

procedure TForm1.Timer1Timer(Sender: TObject);         //Timer der den Rahmen immer wieder neuzeichnet
begin
  Image321.Bitmap.FrameRectTSP(10, 10, 100, 100);
end;