Screenshot Frage

[Schuby]

Guten morgen, war das eine Geburt
Jetzt habe ich es verstanden wie es geht.

Ich musste die größe des Bildes auch anpassen mit
Bild.Width := (Screen.Width-1730);
Bild.Height := (Screen.Height-330);
Weil das Kopierte muss ja da rein.

Jetzt sieht es gut aus
Danke für eure Hilfe.

Delphi-Quellcode:

procedure TForm1.ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r,  TargetRect : TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(1730, 330, (Screen.Width), (Screen.Height ));

    Bild.Width := (Screen.Width-1730);
    Bild.Height := (Screen.Height-330);

    TargetRect := Rect(0, 0, 190, 750);
    Bild.Canvas.CopyRect(TargetRect, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Und auch ein Bild wie es jetzt aussieht.

mfg