Screenshot Frage

[himitsu]

Kommt nun noch auf deine Delphi-Version drauf an, aber immer alles "selbst" neu zu berechnen, was es bereits fertig gibt, ist ja unnötig, doppelt und fehleranfällig.
(die Version kann man schön im Profil angeben, siehe links .... so weiß dann auch jeder, welche Features verwendet werden können, oder ob nicht)

Delphi-Quellcode:

    r := Rect(1730, 330, Screen.Width, Screen.Height);
    Bild.Width := r.Width;
    Bild.Height := r.Height;

bzw. eigentlich ist es so "richtiger" (spätestens, wenn man anfängt zu zoomen, ist es aber nötig)

Delphi-Quellcode:

    r := Rect(1730, 330, Screen.Width, Screen.Height);  // könnte man "r" nicht z.B. "DestRect" nennen? 😉
    TargetRect := Rect(0, 0, 190, 750);
    //Bild.Width := TargetRect.Width;
    //Bild.Height := TargetRect.Height;
    Bild.SetSize(TargetRect.Width, TargetRect.Height);  // so ist es optimaler, wenn man es gemeinsam/zeitgleich zuweist

TRect.Width / https://docwiki.embarcadero.com/Libr...em.Types.TRect
Vcl.Graphics.TBitmap.SetSize

Zitat von TBitmap.SetSize:

Use the SetSize method to set both the height and width of the bitmap. This results in better performance than setting the height and width separately.

Und im Code gibt es mehrmals Form1. (siehe TForm1.Button1Click).
Lösch das weg, sowas macht man nicht
(jedenfalls nicht, innerhalb einer Methode von TForm1)

PS: Es ist nicht schlimm fremden Code zu verwenden, aber es kann nie schaden die Quelle mit anzugeben, wenn man diesbezüglich Probleme/Fragen hat.