Einzelnen Beitrag anzeigen

torud

Registriert seit: 26. Jul 2002
Ort: Sachsen
1.198 Beiträge
 
Delphi XE5 Professional
 
#3

Re: Einen Rahmen in ein TImage zeichen

  Alt 4. Mär 2005, 14:36
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...
Danke
Tom
  Mit Zitat antworten Zitat