Thema: Delphi Bild mit Text drucken

Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#11

Re: Bild mit Text drucken

  Alt 7. Jan 2007, 18:03
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.
Felix Alter
  Mit Zitat antworten Zitat