Bild mit Text drucken

[FAlter]

Hi,

TGraphic ist eine abstrakte Basisklasse für alle Grafiken, d. h. es ist nciht vollständig implementiert, das tun erst die Nachfahren. TPicture wählt automatisch die passende Gradfikklasse aus, wenn du eine Datei lädst.

Delphi-Quellcode:

procedure DoSomethingWithImageFromFile(const FileName: String);
var 
  b: TBitmap;
  c: TPicture;
begin
  b := Tbitmap.create;
  try
    b.width := 210;
    b.height:= 297;
    c := TPicture.Create;
    try
      c.LoadFromFile(FileName);
      b.canvas.Draw(0,0,c.Graphic);
    finally
      c.Free; 
    end;
  
    //DoSomethingWithB

  finally
    b.Free;
  end;
end;

Mfg
FAlter

PS: Bevor du weiter fragst, lies dir erstmal ein paar Tutorials durch zum Thema Grafikprogrammierung mit Delphi. Dann wird's einfacher für dich.

[netscanner]

Also ich hab es jetzt so weit hinbekommen und jetzt geht es an die Verschönerung....
Dazu habe ich eine Frage, die ich nirgends im Forum fand.

Ich füge den Text ja mit "textout" ein.

Wie bekomme ich jetzt den Text zentriert?


EDIT: HAT SICH ERLEDIGT!