Problem mit Canvas (Rahmen)

[Blackheart]

Hallo Leute
Wo liegt mein Fehler
Ich hab drei Images, 1 und 2 liegen auf Image3 nun möchte Ich das um alle drei Images
ein Rahmen gezeichnet wird und in jedes Image ein weißes Bild geladen wird, das klappt auch
so

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
begin
  {ImageList1.GetBitmap(0, Image3.Picture.Bitmap); Hier klappts dann nicht mehr }
  ImageList1.GetBitmap(0, Image2.Picture.Bitmap);
  ImageList1.GetBitmap(0, Image1.Picture.Bitmap);

  Canvas.Pen.Width:=1;
  Canvas.Pen.Color:=clBlack;

  Canvas.Rectangle(Image3.Left-1,Image3.Top-1,
  Image3.Left+Image3.Width+1,Image3.Top+Image3.Height+1);

  Canvas.Rectangle(Image1.Left-1,Image1.Top-1,
  Image1.Left+Image1.Width+1,Image1.Top+Image1.Height+1);

  Canvas.Rectangle(Image2.Left-1,Image2.Top-1,
  Image2.Left+Image2.Width+1,Image2.Top+Image2.Height+1);
end;

[Blackheart]

So nochmal etwas Pushen, hab das Prog mal mit angehangen falls das nicht ganz klar ist.
Das Image3 Brauch auch nicht unbedingt ein Image sein, habs auch schon mit einem Panel und Shape versucht aber das haut alles nicht so hin.

[IngoD7]

Und du bist sicher, dass du dein Problem verständlich beschrieben hast? :gruebel:

Zitat:

Zitat von Blackheart

Ich hab [...usw...] nun möchte Ich [...usw...] das klappt auch so

Fein, das klappt also. Freut mich. :wink:

Danach postest du Code mit einer Bemerkung.

Meine Fragen: Was genau klappt wo genau nicht? Welche Fehlermeldung bzw welches Fehlverhalten tritt auf?

P.S.: Was finden bloß alle an rar??? :roll: Ich kann's nicht öffnen.

[Blackheart]

Drück Ich Mich denn wirklich so schwer aus.
Also wie gesagt Es gibt drei Images Image3 Dient als Hintergrund Imag1 und Image2 liegen auf diesem besagten.
Ich zeichne Im OnPaint um alle drei Images einen Rahmen, was auch funktioniert wenn Ich die ausgeklammerte Zeile im oben genannten Quelltext weglasse.
Füge Ich die Zeile mit ein wird nur der Rahmen um das Image3 gezeichnet.
Ich hoffe das war jetzt etwas Verständlicher. :wink:
Habs nochmal als zip drangehängt.

Edit:
Danke hat sich erledigt, habs hinbekommen.
Hab die ganze Sache in eine Procedure gepackt.

[IngoD7]

Zitat:

Zitat von Blackheart

Ich zeichne Im OnPaint um alle drei Images einen Rahmen, was auch funktioniert wenn Ich die ausgeklammerte Zeile im oben genannten Quelltext weglasse.
Füge Ich die Zeile mit ein wird nur der Rahmen um das Image3 gezeichnet.
Ich hoffe das war jetzt etwas Verständlicher. :wink:

Um mal eben den psychologischen Aspekt des positiven Feedbacks zu frönen: Jau, das war wirklich verständlicher. :thumb:

Zitat:

Zitat von Blackheart

Danke hat sich erledigt, habs hinbekommen.

Mist, gerade jetzt, wo ich's kapiert hatte .... :mrgreen: