Umlaute und Sonderzeichen

Für alles, was in den übrigen Lazarusthemen keinen Platz, aber mit Lazarus zutun hat.
Benutzeravatar
Lincoln Six Echo
Beiträge: 138
Registriert: Di 26. Aug 2014, 16:42
OS, Lazarus, FPC: Win10, Debian
CPU-Target: I7/I9/Q9650/u.a.
Wohnort: Hamburg

Re: Umlaute und Sonderzeichen

Beitrag von Lincoln Six Echo »

Code: Alles auswählen

...
jpg := TJPEGImage.Create;
jpg.Assign(Graphic);
mem := TMemoryStream.Create;
jpg.SaveToStream(mem);
mem.Position := 0;
i := AddJPEGStream(mem,jpg.Width,jpg.Height);
mem.Free;
jpg.Free;
...
PDF.Page.DrawImage(10,10,150,250,i);

...

Benutzeravatar
Lincoln Six Echo
Beiträge: 138
Registriert: Di 26. Aug 2014, 16:42
OS, Lazarus, FPC: Win10, Debian
CPU-Target: I7/I9/Q9650/u.a.
Wohnort: Hamburg

Re: Umlaute und Sonderzeichen

Beitrag von Lincoln Six Echo »

Code: Alles auswählen

...
jpg = TJPEGImage.Create;
jpg.Assign(Graphic);
mem := TMemoryStream.Create;
jpg.SaveToStream(mem);
mem.Position := 0;
i := PDF.Images.AddJPEGStream(mem,jpg.Width,jpg.Height); // Breite + Höhe der Originalgrafik
mem.Free;
jpg.Free;
...
PDF.Page.DrawImage(10,10,150,250,i); // Beliebige Breite + Höhe
...

xos
Beiträge: 13
Registriert: Mi 26. Dez 2007, 17:49
OS, Lazarus, FPC: Winux (L 0.9.xy FPC 2.2.z)
CPU-Target: xxBit
Wohnort: Schweiz

Re: Umlaute und Sonderzeichen

Beitrag von xos »

Bild einfügen aus einer Datei sollte so gehen:

Code: Alles auswählen

aImageIdx:=ActPDFDocument.Images.AddFromFile('Computer.bmp');
ActPDFPage.DrawImage(xPos,yPos,aWidth,aHeight,aImageIdx);

Benutzeravatar
Lincoln Six Echo
Beiträge: 138
Registriert: Di 26. Aug 2014, 16:42
OS, Lazarus, FPC: Win10, Debian
CPU-Target: I7/I9/Q9650/u.a.
Wohnort: Hamburg

Re: Umlaute und Sonderzeichen

Beitrag von Lincoln Six Echo »

Yapp. genau so.

Antworten