SnapShot - Desktop Photographie vereinfacht

[KodeZwerg]

Hiermit möchte ich das wiedergeben was ich Dank Euch so gesammelt habe, vereint in einer sehr einfach zu handhabenen Klasse.

Die Klasse ist darauf ausgelegt sogut wie alles automatisch abzuarbeiten ohne viel von Euch als Input zu erwarten.

4 verschiedene Möglichkeiten sind geboten
- GDI (multimonitor)
- DDA (single monitor)
- DX9 (32bit) (single monitor)
- PRINT

4 verschiedene Modis sind verfügbar
- ganzer Bildschirm(e)
- aktives Fenster
- selektion per Rechteck/Maus
- letzten snap wiederholen

Leider ist mir im Eifer des Gefechts die "PRINT"-Variante kaputt gegangen und ich finde einfach nicht den Fehler...
Ich hoffe es kann Euch nützlich sein.

Im Anhang ist eine aufs minimum reduzierte Demo die die Grundlagen erklärt und alle benötigten Quelltexte.
Getestet, entwickelt und kompiliert mit Delphi Alexandria.

Viel Spaß beim Testen und falls Euch Fehler, Verbesserungen etc. einfallen, oder Ihr vielleicht die PRINT variante wieder zum Leben erwecken könnt, meldet Euch bitte

[KodeZwerg]

Die Bedienung per Grundeinstellung nachdem man die Hotkeys aktiviert hat:
ALT+DRUCK = alles
CONTROL+DRUCK = aktives Fenster
SHIFT+DRUCK = Benutzer Selektion

Ps: SHIFT+DRUCK besonderheit: wenn Ihr mit der mittleren Maus-Taste selektiert, wird das Bild invertiert.

[KodeZwerg]

bitte aktualisieren in kz.Windows.SnapShot.pas

in methode "procedure TkzSnapShot.Snap;"

Delphi-Quellcode:

    if (not FGetFocused) then
      begin
        FRect.Left   := GetSystemMetrics(SM_XVIRTUALSCREEN);
        FRect.Top    := GetSystemMetrics(SM_YVIRTUALSCREEN);
        FRect.Right  := GetSystemMetrics(SM_CXVIRTUALSCREEN);
        FRect.Bottom := GetSystemMetrics(SM_CYVIRTUALSCREEN);
      end;

damit sollte multimonitor immer korrekt arbeiten.

in methode "procedure TkzSnapShot.SetHotkeyAll/SetHotkeyWnd/SetHotkeyRec(const AValue: TkzHotkey);"
      MessageBox(0, nun stürzt das programm nicht beim start ab wenn hotkey nicht gesetzt werden kann

[KodeZwerg]

bitte aktualisieren, in allen SnapShot methoden (SnapShotGDI, SnapShotDDA, SnapShotDX9, SnapShotPrint)

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right) - Abs(FRect.Left);
  FImageHeight := Abs(FRect.Bottom) - Abs(FRect.Top);

Nun ist auch diese Berechnung korrekt

[KodeZwerg]

kz.Windows.SnapShot.pas ->
bitte HiddenProc aktualisieren (im case "kzHotkeyRec")

Delphi-Quellcode:

                                      if ((not TForm(SS.Owner).Visible) and SS.AutoHide) then
                                        begin
                                          Application.Restore;
                                          Application.BringToFront;
                                          Application.Minimize;
                                        end
                                        else
                                          Application.BringToFront;

[KodeZwerg]

Zitat von KodeZwerg:

bitte aktualisieren, in allen SnapShot methoden (SnapShotGDI, SnapShotDDA, SnapShotDX9, SnapShotPrint)

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right) - Abs(FRect.Left);
  FImageHeight := Abs(FRect.Bottom) - Abs(FRect.Top);

Nun ist auch diese Berechnung korrekt

Mist, so sollte es sein:

Delphi-Quellcode:

  FImageWidth  := Abs(FRect.Right - FRect.Left);
  FImageHeight := Abs(FRect.Bottom - FRect.Top);

[KodeZwerg]

Was ich noch sagen wollte, ihr könnt natürlich auch direkt die gewünschte klassen methode aufrufen, dann müßt ihr halt manuel den Bereich den Ihr knipsen wollt übergeben.

die methoden kurz vorgestellt:

Snap = das ist die Hauptmethode im voll-Automatik modus
SnapShot = das ist die semi-Automatik variante die noch per Einstellung der Klasse arbeitet
SnapShotGDI = das wäre ein Aufruf einer explizit genannten Technik
SnapShotDDA = das wäre ein Aufruf einer explizit genannten Technik
SnapShotDX9 = das wäre ein Aufruf einer explizit genannten Technik
SnapShotPrint = das wäre ein Aufruf einer explizit genannten Technik

Am Ende landet alles im "Bitmap" property der Klasse.

[Redeemer]

Zitat von KodeZwerg:

Die Bedienung per Grundeinstellung nachdem man die Hotkeys aktiviert hat:
ALT+DRUCK = alles
CONTROL+DRUCK = aktives Fenster

Alt+Druck ist seit jeher der Shortcut für "Screenshot vom aktuellen Fenster" in jedem Programm. Warum macht man dann eigene Shortcuts?

[KodeZwerg]

Zitat von Redeemer:

Warum macht man dann eigene Shortcuts?

Per default gibt es keine Hotkeys in meiner Klasse, nur wenn man sie aktiviert sind sie da oder ich verstehe die Frage nicht so ganz.
Wenn es um den von mir gewählten Hotkey geht, in der Datei kz.Windows.SnapShot.pas im constructor kann man sich anschauen wie ich da vorgehe und selbst seine Eigenen verwenden.

Delphi-Quellcode:

  FHotkeyAll.Hotkey      := VK_SNAPSHOT;
  FHotkeyAll.Modifier    := MOD_ALT;
  FHotkeyAll.ALT         := True;
  FHotkeyAll.CONTROL     := False;
  FHotkeyAll.SHIFT       := False;
  FHotkeyAll.WIN         := False;
  FHotkeyAll.NoRepeat    := False;

Nur als Beispiel für einen der Hotkeys.
Aktivierung bzw dessen Nutzung liegt bei Dir falls Du meine Klasse verwenden möchtest.