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