Screenshot Frage

[Schuby]

Guten morgen, ich habe mir einen Code besorgt wo ich von meinen Monitor ein Screen mache und nur
links oben einen kleinen teil kopiere und abspeichern kann. (Das haut auch hin)

Nun versuche ich einen ganz kleinen Teil unten rechts von meinen Monitor einen Screen zu kopieren.
Und ich komme nicht weiter,

Hier mal mein Code

Delphi-Quellcode:

//******************************************************************************
//             Monitor ist 1920 x 1080
//             x = 1720
//             y =  400
//
//******************************************************************************
procedure ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, (Screen.Width ), (Screen.Height));
    Bild.Width := (Screen.Width -x );    //-x
    Bild.Height := (Screen.Height -y);  //-y
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Visible := False;
  Sleep(STime); // some delay, ein wenig Zeit geben
  ScreenShot(Char1_1.Picture.BitMap);
  Form1.Visible := True;
end;

mfg

[sakura]

Schau Dir mal die Parameter von CopyRect an: Bild.Canvas.CopyRect(r, c, r); Da kannst Du die Position der Quelle bestimmen, welche Du momentan identisch mit der Position auf dem Ziel definierst.

......

[Schuby]

Sorry ich schaffe es nicht, so ein großer Programmierer bin ich nicht.



mfg

[Redeemer]

Du musst bei CopyRect zwei verschiedene Rects als Argument verwenden. Mit zwei gleichen Rects wie bei dir lässt sich nur ein Bereich oben links in unveränderter Position und Größe kopieren.

Benutze also zwei verschiedene Parameter, spiele mit ihren Werten herum und prüfe, wie sich das Ergebnis ändert. Ebenfalls gut: Dokumentation lesen: TCanvas.CopyRect

[Uwe Raabe]

Zitat von Redeemer:

Ebenfalls gut: Dokumentation lesen

OT: Antwort eines Kunden auf einen ähnlichen Hinweis von mir: "Ach, es geht viel schneller wenn ich Sie anrufe."

[Schuby]

Ich schaffe es nicht, wie gesagt ich bin kein ProfiProgrammierer.

Ich ahbe es geschafft den Teil den ich brauche zu Kopieren, aber alles andere ist weiß.
Wie kopiere ich diesen Teil in ein anderes TRect.


mfg