In TImage Bereich hervorheben

[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;