Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#4

Re: Image mit Bild und Text

  Alt 15. Sep 2008, 08:31
Hallo, ich nehme an, dass es sich beim Bild um ein JPEG-Format handelt.
Lösung: Bild via TJPEGImage laden und dem Image zuweisen. Dann lässt sich auch Text ausgeben!

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  Jpg: TJPEGImage;
begin
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromFile('C:\Mein Bild.jpg');
    Image1.Picture.Bitmap.Assign(Jpg);
  finally
    Jpg.Free;
  end;
  Image1.Canvas.Brush.Style := bsClear;
  Image1.Canvas.TextOut(10 , 10 , 'Hallo !') ;
end;
Thomas
  Mit Zitat antworten Zitat