Um Grafik einen hellen Schein zeichnen

[napsterxx]

Liebe Delphier,
ich würde gerne um das Bild eines TImage einen hellen Schein zeichnen/setzen, sodass der Anwender merkt das er dieses Bild gerade fokusiert hat. Derzeit ändere ich immer de Helligkeit des Bildes, aber ic finde das nicht so eine gute Lösung.

[IceTube]

Kannst du ja mit Canvas machen!
Ich bin nicht so gut mit Canvas, jedoch habe ich mal einen Code für dich geschrieben, welcher einen Kreis um das Bild zeichnet!

Delphi-Quellcode:

procedure TForm2.Image1Click(Sender: TObject);
var r : Trect;
begin
//Tag 0 -> Nicht markiert, Tag 3 -> Markiert
if(Sender AS TImage).Tag = 0 then begin
r := (Sender AS Timage).BoundsRect;
//Erfassen von den Größen
r.Left := r.Left -5;
r.Top := r.Top - 5;
r.Right := r.Right + 5;
r.Bottom := r.Bottom + 5;
//Farbe einstellen
Canvas.Brush.Color := clCream;
Canvas.Pen.Style := psClear;
//Kreis zeichnen
Canvas.Ellipse(r);
//Die Grafik des Images malen
//Sonst währe Sie im Hintergrund
Canvas.Draw(r.Left+5,r.Top+5,(Sender As TImage).Picture.Graphic);
//Markiert
(Sender AS TImage).Tag := 3;
end else begin
//Erfassen von den Größen
r := (Sender AS Timage).BoundsRect;
r.Left := r.Left -5;
r.Top := r.Top - 5;
r.Right := r.Right + 5;
r.Bottom := r.Bottom + 5;
//Farbe einstellen(Hintergrund-Farbe)
Canvas.Brush.Color := Form2.Color;
Canvas.Pen.Style := psClear;
//Zeichnen
Canvas.Rectangle(r);
//Grafik neu zeichnen, sodass diese wieder zu sehen ist
Canvas.Draw(r.Left+5,r.Top+5,(Sender As TImage).Picture.Graphic);
//Nicht markiert
(Sender AS TImage).Tag := 0;
end;
end;

lg

[napsterxx]

Danke für deine Antwort, aber das ist nicht so wirklich die Lösung wpnach ich suche, denn wenn das Bild keinen Hintergrund hat und z.B. ein S ist dann ist das S ja in einem Kreis, ich möchte aber nur so einen Leichten schein um das S bekommen

[mkinzler]

Zeig doch mal ein Screenshoot und skizziere dein Anliegen etwas genauer

[napsterxx]

http://img3.imagebanana.com/img/3wyzcsvn/screen.jpg

Link:
http://img3.imagebanana.com/view/3wyzcsvn/screen.jpg

[mkinzler]

Dann erzeuge dir eine Maske für den sichtbaren Teil

[napsterxx]

Eine Maske?
Also in der Suche finde ich nur ein Ovales Fenster?!?

Geht das so:
http://swissdelphicenter.ch/de/showcode.php?id=582

??

[mkinzler]

Wenn sich das "sichtbare" Bild mit einer geometrischen Form abgrenzen lässt, umso besser.

[napsterxx]

Joa also ich abe das jetzt mal hingedeichselt :D
Ich habe nun einen Button in "S" Form :D, aber nun fehlt noch dieser leichte Schein darüber. Meine Methode die Helligkeit zu ändern fande ich persönlich jetzt nicht so brickend:
http://www.delphi-treff.de/tipps/grafik/tipp/540/

[mkinzler]

-Anhebung Helligkeit
-2.Bild
-2.Bild per Transparenz