Habs mal im englischen Bugtracker gepostet.
Man könnte auch einfach prüfen welche Kalenderwoche der 31.12 hat. Diese Kalerwoche hat ja in diesem speziellen Fall auch der 01.01
Habs mal im englischen Bugtracker gepostet.
Man könnte auch einfach prüfen welche Kalenderwoche der 31.12 hat. Diese Kalerwoche hat ja in diesem speziellen Fall auch der 01.01
Hi,
kann es sein, dass in _WeekNumberISO ein Bug ist?
Wenn ich folgendes Skript durchlaufen lassen erhalte ich die Kalenderwoche des 01.01. des jeweiligen Jahres
[autoit]#include <Date.au3>
For $i = 2011 To 2030
$x = _WeekNumberISO($i, 01, 01)
ConsoleWrite($i & @TAB & $x & @CRLF)
Next
Das Ergebnis ist
ZitatAlles anzeigen2011 52
2012 0
2013 1
2014 1
2015 53
2016 52
2017 0
2018 1
2019 1
2020 1
2021 53
2022 52
2023 0
2024 1
2025 1
2026 53
2027 52
2028 52
2029 1
2030 1
So wie es aussieht wird bei jedem Jahr bei dem der 01.01 auf einen Sonntag fällt 0 ausgegeben.
Mache ich was falsch?
Was funktioniert an der Hilfe nicht.
Vielleicht hast du auch nur dieses Problem
Danke für die neue Version.
Ich hab eine Bug entdeckt
Folgendes passiert, wenn sich in einem Ordner versteckte Dateien befinden:
1. Die 1. versteckte Datei wird trotzdem angezeigt (bei dem Attribut ist H jedoch gesetzt, also korrekt)
2. Alle nicht versteckten Dateien die sich nach der 1. versteckten Datei befinden werden trotzdem nicht angezeigt
nochmal zum Vorschaufenster:
wenn man mit einem anderen Fenster drüberfährt kann es sein, dass Grafikfehler auftreten (getestet mit Win XP)
2 kleine Bugs zur Bildvorschau:
- wenn man mit dem Vorschaufenster aus dem Bildschirm fährt wird der schwarze Hintergrund nach unten nach entfernt. Klickt man wieder ein neues Bild an, kommt der schwarze Hintergrund wieder.
- wenn man ein Bild angeklickt hat und dann z. B. eine Textdatei anklickt, so ändert sich das Bild nicht. Ich denke das Bild sollte dann einfach verschwinden.
Das Vorschaufenster ist echt genial gelungen
Es wäre perfekt, wenn sich durch drücken der Pfeiltasten in der Dateiliste das Bild auch ändert.
Für was ist dieser Teil deines Skriptes zuständig?
[autoit]Func WM_PAINT($hWnd, $Msg, $wParam, $lParam)
If $hWnd = $hPreviewGui Then
_GDIPlus_GraphicsDrawImageRect($hPreviewGraphic, $hPreviewBitmap, ($iPreviewMaxDim - $iPreviewWidth) / 2, ($iPreviewMaxDim - $iPreviewHeight) / 2, $iPreviewWidth, $iPreviewHeight)
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_PAINT
Das "-1" bezieht sich auf den zuletzt erstellten Laufwerks-Button. Es wird also jedem Laufwerks-Button das entsprechende Icon zugewiesen.
Jo, genauso sieht es bei mir unter Win 7 64bit aus.
Unter Win XP sind dagegen keine Icons zu sehen.
Mit meiner Änderung (siehe mein vorheriger Post) klappts auch mit Win XP.
Es ist der komplette Pfad angegeben.
Beispiel:
ZitatC:\Icons\Laufwerke\C Windows.ico,0
Ja ich habe ein anderes Theme.
Aber du hast doch in Zeile 1696 dies stehen
GUICtrlSetImage(-1, $sIconDir & $sDriveIcon, 0, 0)
[/autoit]
Dies bedeutet doch, dass du deine Icons auf jedem Laufwerksbuchstaben anzeigen läßt, oder etwa nicht?
Komisch, unter XP werden bei mir keine Laufwerkssymbole angezeigt. Unter Win 7 allerdings schon.
Wenn du den Bereich mit den Icons so änderst, dann werde falls vorhanden die individuellen Laufwerkssymbole verwendet.
Sind diese nicht da, so werden deine Symbole verwendet
Dies funktioniert unter Win XP und Win 7
For $i = 1 To $aDrives[0]
$sDrive = StringUpper($aDrives[$i])
$ahDriveButtons[$i - 1][0] = GUICtrlCreateButton($sDrive, 2 + ($i - 1) * 26, 1, 26, 29)
GUICtrlSetFont(-1, 9)
GUICtrlSetOnEvent(-1, '_ReadDriveLeft')
GUICtrlSetResizing(-1, $GUI_DOCKHEIGHT)
Switch DriveGetType($sDrive)
Case 'Removable'
$sDriveIcon = 'removable.ico'
If $sDrive = 'A:' Or $sDrive = 'B:' Then $sDriveIcon = 'floppy.ico'
Case 'Fixed'
$sDriveIcon = 'hdd.ico'
Case 'CDROM'
$sDriveIcon = 'cdrom.ico'
Case 'Network'
$sDriveIcon = 'workgroup.ico'
Case 'Unknown'
$sDriveIcon = 'unknown.ico'
EndSwitch
$lw_symbol = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & StringLeft($sDrive, 1) & "\DefaultIcon", "")
$hImage = _GUIImageList_Create(20, 20, 5, 3, 1)
$split_tmp = StringSplit($lw_symbol, ",")
$lw_datei = $split_tmp[1]
If UBound($split_tmp) = 3 Then
$lw_id = $split_tmp[2]
Else
$lw_id = 0
EndIf
If $lw_symbol = "" Then
_GUIImageList_AddIcon($hImage, $sIconDir & $sDriveIcon, 0, True)
Else
_GUIImageList_AddIcon($hImage, $lw_datei, $lw_id, True)
EndIf
_GUICtrlButton_SetImageList($ahDriveButtons[$i - 1][0], $hImage)
$sTmpContext = GUICtrlCreateContextMenu($ahDriveButtons[$i - 1][0])
GUICtrlCreateMenuitem('Eigenschaften', $sTmpContext)
GUICtrlSetOnEvent(-1, '_DriveProperties')
Next
Wow wird immer besser, Respekt ![]()
Meine Vorschläge
- Laufwerkssymbol.
In Zeile 1680 könntest du folgendes einfügen
$lw_symbol = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & StringLeft($sDrive, 1) & "\DefaultIcon", "")
$hImage = _GUIImageList_Create(20, 20, 5, 3, 1)
$split_tmp = StringSplit($lw_symbol, ",")
$lw_datei = $split_tmp[1]
If UBound($split_tmp) = 3 Then
$lw_id = $split_tmp[2]
Else
$lw_id = 0
EndIf
_GUIImageList_AddIcon($hImage, $lw_datei, $lw_id, True)
_GUICtrlButton_SetImageList($ahDriveButtons[$i - 1][0], $hImage)
- Zusätzliche Fenster mit der Ordnerstruktur.
- Beim kopieren, sollte es noch die Option geben "Kopieren und umbenennen"
- Das kopieren innerhalb einer Fensterhälfte sollte wie im Explorer mit der Strg-Taste + Maustaste funktionieren
- Zu dem ändern des Dateidatums, könnte auch das Exifdatum geändert werden
Kannst schauen was du einbauen kannst ![]()
Gute Idee Chip,
habs mal hier ergaenzt (Wortlaub von progandy)
Anfragen nach Skriptauszügen beantworte ich gerne, möchte aber (zumindest jetzt noch) nicht den kompletten Source veröffentlichen,
Leider hast du PNs deaktiviert.
Kann ich den Teil mal sehen, wo du die Downloadurl ermittelst? (bin grad im IRC)
Oscar :
- Laufwerksicons für jedes Laufwerk >>> ah wusste ich gar nicht, dass man Checkboxen auch als Buttons darstellen kann. Also im FreeCommander nimmt dies nicht viel Platz weg. Das Icon muß ja nicht groß sein. Denke mit den "_GUICtrlButton_" Funktionen sollte es doch möglich sein
- Hmm...das mit der Ansicht muss ich mir mal überlegen >>> wäre genial wenn dies möglich wäre, wäre um einiges besser zu navigieren
- Die Inidatei im Exeordner ist nicht sehr empfehlenswert, weil man unter Win7 im Programmeordner keinen Schreibzugriff hat >>> vielleicht kannst du ja ne Option einbauen, damit man wählen kann (ich habe solche Tools immer auf dem USB-Stick)
- Ordner tauschen!? Hmm...wozu? Quelle und Ziel sind doch variabel >>> dann kann man mit einem Klick die Ordneransicht tauschen und muß nicht 2x den Ordner neu auswählen
- Buttons deaktivieren? Ok, das lässt sich einrichten. >>> gut
- Das mit den Dateisymbolen ist bereits geschehen. >>> perfekt
- Die Hotkeys "a", ... finde ich etwas ungünstig. Oft will man in einer Liste durch drücken eines Buchstabens zur nächsten Datei springen die mit diesem Buchstaben beginnt. Dies ist hier nicht möglich.
Wow
Mal wieder ein geniales Programm von dir Oscar.
Ich selbst verwende neben dem Windows Explorer den FreeCommander.
Dieser ist auch sehr gut.
Was ich bei dir noch vermisse:
- Laufwerksicons anzeigen
- Getrennte Ansicht (links: Ordner / rechts: Dateien), also insgesamt 4 Spalten
- die ini sollte im Ordner der exe abgelegt werden
- Ordner tauschen (der linke Ordner soll im rechten Fenster angezeigt werden und umgekehrt
- wenn keine Datei angeklickt ist, sollten die 5 unteren Buttons von links deaktiviert sein
- die richtigen Dateisymbole
Hoffe es wird noch weiter ausgebaut.
Vielleicht ersetzt es bei mir dann den FreeCommander
schau dir mal
[autoit]_GUICtrlEdit_AppendText
[/autoit]an
meinst du so?
[autoit]SplashImageOn("Das Dante Programm", $destination2, 900, 567, -1, -1, 1)
[/autoit]Danke autoBert,
manchmal sieht man den Wald vor lauter Bäumen nicht ![]()