Screenshot like Snipping Tool

[Youuuu]

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

[jaenicke]

Warum machst du es denn nicht einfach wie das Snipping Tool?

Screenshot vom Bildschirm machen, dann auf einem maximierten Fenster ohne Rand anzeigen und den Bereich auswählen lassen.

Oder meinst du den Fenstermodus?

[KodeZwerg]

Zitat von Youuuu:

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

Du meinst sowas wie ein Rechteck zeichnen um eine Fläche für ein Photo auszuwählen? (Falls ja, dies bau ich gerade in meine ScreenShot Klasse ein...)

[Youuuu]

Zitat von KodeZwerg:

Zitat von Youuuu:

Hi,

würde gerne eine Art "Snipping Tool" in meinem Programm integrieren.

Gibt es hierfür bereits einen Code oder Ideen das umzusetzen?


Ich hatte erst an eine transparente Form gedacht, das funktioniert alleridngs leider nicht, sobald ich die Form auf Transparent setze, kann ich diese nicht mehr anklicken "man kickt durch".

Du meinst sowas wie ein Rechteck zeichnen um eine Fläche für ein Photo auszuwählen? (Falls ja, dies bau ich gerade in meine ScreenShot Klasse ein...)

Richtig

[KodeZwerg]

Im Anhang ist ein Formular mit Unit, beides in dein Projekt-Ordner kopieren und "uCapture" in den "Uses" aufnehmen.

Dann sowas in der Art...

Delphi-Quellcode:

procedure Foobar;
var
  Capture: TfrmCapture;
begin
  Capture := TfrmCapture.Create(nil);
  try
    Capture.ShowModal;
    Image1.Picture.Bitmap.Assign(Capture.Image);
  finally
    Capture.Free;
  end;

Da ist leider ein Flickern drinn was ich nicht abschalten kann da ich irgendwo was falsch mache

[Youuuu]

Das flackern habe ich nicht, allerdings öfters den Fehler "Fehler bei Bereichsprüfung"

Der Fehler tritt laut Debugger hier auf

ScreenDC := GetDC(0); In FormMouseMove


Edit: es wird auch nicht genau der Bereich gecaptcherd den ich markiere, das scheint etwas verschoben zu sein, hast das bei dir auch?

[Youuuu]

Schau mal, hab zwei Videos beigefügt, einmal mit dem Fehler und einmal mit dem verschobenen Screen catch.

Meine Auflösung ist: 3840 * 1600, als Info

[KodeZwerg]

Zitat von Youuuu:

Das flackern habe ich nicht, allerdings öfters den Fehler "Fehler bei Bereichsprüfung"

Der Fehler tritt laut Debugger hier auf

ScreenDC := GetDC(0); In FormMouseMove


Edit: es wird auch nicht genau der Bereich gecaptcherd den ich markiere, das scheint etwas verschoben zu sein, hast das bei dir auch?

Bitte mal ändern und testen, hatte den falschen Type definiert

Delphi-Quellcode:

var
  ScreenDC: HDC;

//edit
Ps: Nein, bei mir macht es was es soll, aber der Rahmen flackert wild solange man die Maus drückt.
PPs: Wenn Du mit der mittleren Maus einen Rahmen ziehst, werden alle Farben invertiert

[TurboMagic]

Zitat von KodeZwerg:

Im Anhang ist ein Formular mit Unit, beides in dein Projekt-Ordner kopieren und "uCapture" in den "Uses" aufnehmen.

Dann sowas in der Art...

Delphi-Quellcode:

procedure Foobar;
var
  Capture: TfrmCapture;
begin
  Capture := TfrmCapture.Create(nil);
  try
    Capture.ShowModal;
    Image1.Picture.Bitmap.Assign(Capture.Image);
  finally
    Capture.Free;
  end;

Da ist leider ein Flickern drinn was ich nicht abschalten kann da ich irgendwo was falsch mache

Nett, gibt's Pläne das zu veröffentlichen?

[venice2]

Zitat von TurboMagic:

Zitat von KodeZwerg:

Im Anhang ist ein Formular mit Unit, beides in dein Projekt-Ordner kopieren und "uCapture" in den "Uses" aufnehmen.

Dann sowas in der Art...

Delphi-Quellcode:

procedure Foobar;
var
  Capture: TfrmCapture;
begin
  Capture := TfrmCapture.Create(nil);
  try
    Capture.ShowModal;
    Image1.Picture.Bitmap.Assign(Capture.Image);
  finally
    Capture.Free;
  end;

Da ist leider ein Flickern drinn was ich nicht abschalten kann da ich irgendwo was falsch mache

Nett, gibt's Pläne das zu veröffentlichen?

Was ist da Nett?

Solche Dinger mit alten API's weiter zu pflegen (Copy\Paste woher die sourcen auch stammen) bzw. gibt es diese wie Sand am Meer versuchen neu zu kreieren ist vertane zeit und Müh.
Beschäftige dich mal mit neueren API's bzw. Aktuellen. Siehe DWM!
Meine persönliche Meinung.