Einen Rahmen in ein TImage zeichen

[torud]

Hallo Leute!

Ich habe gerade nicht Source zur Verfuegung, den ich benutze, aber ich habe versucht einen Rahmen in ein Image zu zeichnen. Das Problem ist, dass es nicht funktioniert hat. Vielleicht liegt es daran, dass das Image vorher mittels Canvas erst befuellt wurde!?

Kann dies ein Problem sein?

[Luckie]

TCanvas kennt die Methode Rectangle zum Zeichnen von Rechtecken.

[torud]

Hallo Michael!

So habe ich auch gemacht!

Hier der Code, wie ich ihn vorher habe, um etwas ins Image zu zeichnen:

Delphi-Quellcode:

          Image3.Canvas.Font := Schatten.Font; 
          Image3.Canvas.Brush.Style := bsClear; 
          Image3.Canvas.TextOut(24 , 7, ed_text.Text); 
          BmpGBlur(Image3.Picture.Bitmap,3); 

          Image3.Canvas.Font := FontDialog1.Font; 
          Image3.Canvas.Brush.Style := bsClear; 
          Image3.Canvas.TextOut(22 , 6, ed_text.Text); 

          BmpGBlur(Image3.Picture.Bitmap,0.05);

          //und hier der teil fuer den rahmen
          Image3.Canvas.Retangle.Pen.color:=clblack;

ps.: Ich habe leider das Projekt und mein Delphi nicht hier, so dass ich den genauen versuchten Code nicht angeben kann. Ich bin gerade beim Tennis und mir fiel dieses Problem ein, fuer das ich keine Loesung habe...

[Sprint]

Delphi-Quellcode:

  with Image3.Canvas do
  begin
    // ...
    Pen.Color := clRed;  // Farbe für deinen Rahmen
    Rectangle(Image1.ClientRect); // Rahmen zeichnen
    // ...
  end;

[torud]

Hallo Sprint!

Ich werde es mal probieren!

Ich hatte es nicht ueber diesen Weg gemacht. Ich hatte, so glaube ich Retangle.Rect(0,0,100,100) benutzt und auch noch die pen.width o.a. angegeben. Hm, aber wie gesagt, ich werde es heute abend mal checken, wo da mein Fehler lag.

[torud]

Danke es funzt!

Wichtig ist aber auch, dass man bsClear noch setzt, damit von dem Bild auch noch was zu sehen ist, sonst wird neamlich der restliche bereich weiss ausgemalt.