Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
2. Apr 2012
Hallo,
Danke für die Antworten!
Ich wollts jetzt eigentlich nicht glauben, das jpg "schlechtere" Bilder erzeugt.
Deswegen hab ich einen Screenshot erzeugt und den gleichzeitig als jpg und als png gespeichert.
So war ein direkter Vergleich möglich! - und siehe da - da ist echt ein großer Unterschied - vor allem bei Schriften!
Dann werd ich bei png bleiben.
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
1. Apr 2012
Stimmt!
Ich nutz für so was die out Variablen
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
1. Apr 2012
Mann häts sich halt mal den Quellcode anschauen sollen :wall: - Danke, Bummi!
procedure TForm1.Button1Click(Sender: TObject);
var
Jpg: TJPEGImage;
BMP:TBitmap;
begin
Jpg := TJPEGImage.Create;
try
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
1. Apr 2012
Hallo,
nach so was hab ich gesucht :-)
Nur dummerweise scheint das was nicht richtig freigegeben zu werden.
Ich erhalte von FastMM folgende Fehlermeldung am Ende vom Programm:
bei diesem Test-Code:
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
1. Apr 2012
Wieso fallen mir nur immer die Lösungen ein, nachdem ich gepostet hab ... :gruebel:
procedure ScreenShot_erstellen(Pfad: String);
var
Bitmap : TBitmap;
Jpg : TJpegImage;
BitmapRect: TRect;
i_Width : Integer;
i_Height : Integer;
Forum: Sonstige Fragen zu Delphi
Delphi
by Helmi,
1. Apr 2012
Hallo,
ich nutze folgenden Code um von meiner MainForm einen ScreenShot zu erstellen:
procedure ScreenShot_erstellen(Pfad: String);
var
Bitmap : TBitmap;
Canvas : TCanvas;
WindowRect: TRect;
BitmapRect: TRect;