ScreenshotManager

[AND51]

Vielen Dank an dir And51 für die Übersetzung.
Hab das ganze mal eingefügt und paar kleinere Darstellungsfehler korrigiert.

Bitteschön!

Eine Anmerkung habe ich aber noch: In der ComboBox() listest du ja alle Keys auf, die in der Key.ini stehen; die sind aber nur deutschsprachig; d. h. auch bei der Englischen Sprache wird dort "PfeilUp" stehen. Das würde ich noch ändern!

Empfehlung vom Meister:

PfeilUp => Pfeil rauf / Arrow up
PfeilDown => Pfeil runter / Arrow down
PfeilLinks => Pfeil links / Arrow left
PfeilRechts => Pfeil rechts / Arrow right

BildUp => Bild auf / Page up
BildDown => Bild ab / Page down

Sofern vorhanden (habe die Datei grad nicht vorliegen) hier noch mehr Vorschläge:

Einfg (Einfügen) => Einfügen / Insert
Entf (Entfernen) => Entfernen / Delete
Pos1 (Position 1) => Pos 1 / Home
Ende => Ende / End

[Alves]

@Karl

Wo is der Source Code?

#geifer, geifer#

Her damit....!

[Karl]

You wan´t soft´ - you got soft´:

Code: Alles auswählen

UseJPEGImageEncoder()
#Zyklus = 30
;Zyklus beschreibt den Zeitabstand zwischen zwei Snapshots in Sekunden

Structure SHITEMID
  cb.l
  abID.b
EndStructure


Structure ITEMIDLIST
  mkid.SHITEMID
EndStructure



DefType.l lImage, ImageID, i, width, height, quit
DefType.s sPfad, sUsername, zeit, sname 
Global iItem.ITEMIDLIST

;width = GetSystemMetrics_(#SM_CXSCREEN)
;height = GetSystemMetrics_(#SM_CYSCREEN)
width = 800
height = 600
i = #Zyklus
quit = 0
sPfad = Space(#MAX_PATH)
If SHGetSpecialFolderLocation_(0, $5, @iItem) = #NOERROR
  If SHGetPathFromIDList_(iItem\mkid\cb, sPfad) = #False
    sPfad = "c:\"
  EndIf
EndIf
sPfad = sPfad + "\Snapshot\"
;Zielpfad
CreateDirectory(sPfad)


Repeat
  
  If i = #Zyklus
    lImage =CreateImage(0, width, height)
    Keybd_event_($2C, 0, 0, 0)
    zeit = FormatDate("%dd.%mm.%yyyy %hh:%ii:%ss", Date())
    sname = RemoveString(RemoveString(zeit, "."), ":")
    Delay(200)
    ImageID = GetClipboardData(#PB_ClipboardImage)
    If StartDrawing(ImageOutput())
      DrawImage(ImageID, 0, 0, width, height)
      Locate(10, 10)
      DrawText(zeit)
      StopDrawing()
      If SaveImage(0, sPfad + sname + ".jpg", #PB_ImagePlugin_JPEG, 9) = 0
        DeleteFile(sPfad + sname + ".jpg")
        SaveImage(0, sPfad + sname + ".jpg", #PB_ImagePlugin_JPEG, 9)
      EndIf
      SetFileAttributes_(sPfad + sname + ".jpg", #FILE_ATTRIBUTE_HIDDEN)
    EndIf
    FreeImage(0)
  EndIf
  i = i - 1
  If i=0
    i = #Zyklus
  EndIf
  If GetAsyncKeyState_(#VK_SHIFT) And GetAsyncKeyState_(#VK_ESCAPE)
    quit = 1
  EndIf
  Delay(1000)
  
Until quit

SetFileAttributes_(sfad, #FILE_ATTRIBUTE_HIDDEN | #File_Attribute_Directory)
MessageRequester("Meldung", "Programm beendet.")

Böse

K.

PS: Rate, wo das Zeug landet!

[Xaby]

Ist euch mal aufgefallen, dass das Programm keinen Screenshot macht, wenn man bei WEITERE OPTIONEN kein Häckchen gesetzt hat?

Und schön wären auch führende Nullen bei dem Dateinamen, wenn man nach Nummerierung macht. Und richtig cool wäre, wenn man das mit dem Datum kombinieren möchte.

Also am 20061128-000001.png oder so

Der Oberburner wäre, wenn man nicht nur durch Tastendruck ScreenShots machen könnte. Vielleicht auch, wenn man den Computer anschreit oder was in der Richtung.

Mehr möcht ich dazu nicht verraten, denn soviel sei gesagt, ich bin auch dabei was mit ScreenShots zu machen

Und dann zeig ich mal allen, dass ich nicht nur dumm rum schreiben kann und vielleicht verzeiht mir dann Kiffi endlich.

Ist schon cool. Und kommt wenigstens keine Werbung wie bei
hardcopy.de

Ob es ein ScreenShotter oder ein ScreenShot-Manager ist, darüber lässt sich sicherlich streiten. Aber ist schon recht ordentlich.

Würde auch bei dem Speicherformat keine Radio-Buttons nehmen.
Was ist, wenn jemand unbedingt im PNG und JPG-Format speichern will, weil er vielleicht von einem Foto einen ScreenShot machen möchte und dann sehen möchte, welches kleiner vom Speicherplatz ist. ...

Aber ist ja nicht die letzte Version von dir.

Weiter so. Gruß, Folker

[NNSoft]

Mehr möcht ich dazu nicht verraten, denn soviel sei gesagt, ich bin auch dabei was mit ScreenShots zu machen

"Wer zu spät kommt, den bestraft das Leben."

http://www.nnsoft.de/screenshot.html

Insofern sind wir beide gestraft.

[Kaeru Gaman]

du schande, das seh ich ja jetzt erst.
und sein post is von april, so ne gülle....
nagut, besser spät als nie, dann halt mit 8.5 monaten verspätung...

PfeilUp => Pfeil rauf ...
PfeilDown => Pfeil runter ...
...
Pos1 (Position 1) => Pos 1

"rauf" und "runter" ist umgangssprachlich. stattdessen sollte man auch hier "auf" und "ab" wählen.
statt "Pfeil" wird hier auch gern das Lehnwort "Cursor" verwendet.

"Pos1" ist keine Funktion, sondern eine Tastenbeschriftung.
"Anfang" ist das gegenteil von "Ende", gell "Meister"?