Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
31. Jan 2019
Muss ich mal schauen, danke für die Tipps. Sieht jedoch erstmal für mich nach vielen ??? aus XD
Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
31. Jan 2019
Hmm wir kommen damit der Sache näher ;)
Problem dabei:
Die Form wird entsprechend "vergrößert", halt skaliert. Leider wird dadurch auch das Bild entsprechend größer und müsste wieder verkleinert werden. Zusätzlich müsste dann auch der default wert für PPI vorher ausgelesen werden, damit man wieder zurück switched. Aber durch das vergößern der Form finde ich dies aktuell eine unschöne Lösung,...
Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
30. Jan 2019
Mein Verständnis wäre nun, das er hierbei das gleiche macht und dadurch das Bild verzerrt werden kann bzw. auch unscharf wird oder sehe ich das falsch?
Bzw. ich denke das SynPDF es "Streckt", daher würde ich es halt gerne VORHER hochskalieren.
Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
30. Jan 2019
Du meinst weil ich es nicht wieder frei gebe?
War auch nur zum testen aber dennoch wesentlich weniger Code aber hast recht, richtig wäre natürlich:
var
Image : TBitmap;
//...
try
Image := GetFormImage;
PDF.VCLCanvas.Draw(120, 75, Image);
Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
30. Jan 2019
Hmm danke für diesen Tipp, der ist vom Code her wesentlich kürzer als was ich vorher hatte XD
PDF.VCLCanvas.Draw(120, 75, GetFormImage);
Aber es sieht trotzdem noch verwaschen aus.
Forum: Object-Pascal / Delphi-Language
Delphi
by Moombas,
30. Jan 2019
Hallo zusammen,
ich habe aktuell ein kleines "Schönheitsproblem"und wollte mal wissen ob ihr da eine Lösung kennt.
Ich nutze SynPDF.pas um eine PDF zu erzeugen. Währenddessen wird ein Screenshot von der Form erzeugt und im PDF als Bild abgelegt:
try
//.. Code ohne Kontext zum Problem
Application.ProcessMessages;
Win := GetForegroundWindow;
if...