Einen bestimmten Bereich des Bildschirm speichern

[LingNeu]

@marabu,
anbei der Code und die Bilder
Danke LingNeu

[marabu]

Welchen Bildausschnitt willst du denn? Was soll auf diesem Ausschnitt zu sehen sein?

[LingNeu]

@marabu,
am Besten wäre natürlich eine flexible Auswahl.
Am Anfang würde mir schon genügen, wenn ich z.B. den 1.Button und das 1.Editfenster auswählen könnte.
Ich möchte später die Anfangskoordinaten setzen (2 Edit) und dann noch die Grösse des Ausschnitts (2 Edit, Höhe+Breite)
Gruss
LingNeu

[marabu]

Ich habe in deinem Code den Click-Handler von Button7 ersetzt:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
  bm: TBitmap;
  r: TRect;
begin
  bm := BitmapFromWinControl(self);
  UnionRect(r, Button1.BoundsRect, Edit1.BoundsRect);
  // InflateRect(r, 4, 4);
  with BitmapFromBitmap(bm, r) do
  begin
    SaveToFile('Demo.bmp');
    Free;
  end;
  bm.Free;
end;

Damit legst du im Code fest, dass der Ausschnitt Button1 und Edit1 enthalten soll. InflateRect() bläst den Ausschnitt um 4 Pixel rundherum auf - damit es nicht so gedrängt aussieht. Auch ein interaktiver Ansatz ist machbar, indem du auf Form-Ebene ein Fokus-Rechteck aufziehst und darüber den Ausschnitt definierst.

Freundliche Grüße

[Blackheart]

Warum alles so kompliziert, mach einen screeshot vom gesammten Fenster
und kopiere deinen Ausschnitt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  WinDC,MemDC   : hDC;
  Desktop : hBitmap;
  zx,zy,zx1,zy1      : integer;
  bmp     : TBitmap;
begin
  zx := 100;
  zy := 100;
  zx1:= 100;
  zy1:= 100;
  WinDC := GetDC (GetDeskTopWindow); {Bildschirmkontext holen}
  MemDC := CreateCompatibleDC (WinDC); {Kompatiblen Kontext erstellen}
  Desktop := CreateCompatibleBitmap (WinDC, zx, zy); {Bitmaphandle machen}
  SelectObject (MemDC, Desktop); {selektieren}
  BitBlt (MemDC, 0, 0, zx, zy, WinDC, zx1, zy1, SRCCOPY); {kopieren}
  DeleteDC (MemDC); {und wech damit}
  ReleaseDC (GetDeskTopWindow, WinDC); {diesen auch}
  bmp := TBitmap.Create;  
  try
    bmp.Handle := Desktop;  
    Image1.Picture.Bitmap.Assign(bmp);
  finally  
    FreeAndNil(bmp);
  end;
end;

[LingNeu]

@Blackheart
@marabu

da habt ihr mir sehr gut weitergeholfen - Besten Dank
Jetzt hab ich was zu tun :coder:

Gruss
LingNeu