Beiträge von NO1 :-)

NO1 :-)

Jo, stimmt. Vielen Dank für Eure Kritik.

Lg NO1

NO1 :-)

In Zukunft verwende ich dort kein true mehr..., is ja wie bei FileExists, aber ich denke auch, dass es die Sache des Programmierers ist, wie er es handhabt. Bei Weiterverbreitung des Codes ist es sicher sinvoll, den Code möglichst kurz und sauber zu halten .

NO1 :-)

Dankeschön für deine Antworten!

Wenn ich wieder daheim bin, werde ich deine neue Funktion sofort testen.

Zu deiner Aussage "Warum StringInStr benutzen": Es kann ja sein, dass durch FileGetAttrib mehrere Attribute zurückgegeben werden in einem String und dann muss man ja überprüfen, ob das Attribut "D" in dem String vorhanden ist...

Ich skripte jetzt schon ein ganzes Jahr in AutoIt und mir ist das mit = True und der Variablendelaration bewusst. Wenn ich jetzt ein Skript nicht als UDF oder nicht für die Community schreib, dann komm ich mit den Bezeichnungen aber ziemlich gut zurecht.

Lg NO1

NO1 :-)

Hallo liebe AutoIt-Community,

es ist mir schon voll peinlich, hier wieder nach Eurer Hilfe zu fragen ...
Ich hab jetz aber schon nen halben Tag gegoogelt, hab aber nichts wirklich befriedigendes gefunden.
Mein Problem ist, dass ich ein Listview-Control hab, in das alle Dateien eines Ordners eingefügt werden. Jetzt brauche ich für jeden Eintrag ein eigenes ContextMenu, so wies auch im Explorer ist.
Jedoch weiß ich nicht, wie ich das bewerkstelligen soll. Im Beispiel unten hab ich mal 2 Kontextmenüs, 1 für Ordner und eins für Dateien, jedoch wird nur manchmal das Richtige angezeigt.

AutoIt

#include <WinAPISys.au3>
#include <WinAPITheme.au3>
#include <File.au3>
#include <GUIListView.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>


$Dir = InputBox("Test", "Startverzeichnis eingeben...", @DesktopDir)
Local $ActualPath = $Dir, $OldText = ""
Dim $ContextMenuFileStatus = 0, $ContextMenuFolderStatus = 0, $ListviewContextMenu


Local $GUI_WIDTH = @DesktopWidth/2, $GUI_HEIGHT = @DesktopHeight/2, $ListviewDoubleclicked
$hGui = GUICreate("Test", $GUI_WIDTH, $GUI_HEIGHT)
$InputDir = GUICtrlCreateInput("", 0, 0, $GUI_WIDTH, 30)
GUICtrlSetFont($InputDir, 15)
$Listview = GUICtrlCreateListView("", 0, 30, $GUI_WIDTH, $GUI_HEIGHT)
_GUICtrlListView_AddColumn($Listview, "Name", $GUI_WIDTH*0.9)
_ListviewAddDirectory($Listview, $Dir)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()


If _WinAPI_GetVersion() > 6.0 Then
	_WinAPI_SetWindowTheme(GUICtrlGetHandle($Listview), "Explorer")
EndIf


AdlibRegister("_ListviewDoubleclick", 100)






While 1
	_SetContextMenu()
	$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3
				Exit


		EndSwitch
WEnd


Func _SetContextMenu()
	$SelectedEntry = _GetSelected()
	If $SelectedEntry[0] = 1 Then
		If $SelectedEntry[1] <> $OldText Then
			GUICtrlSetData($InputDir, "Selected: Folder << " & $SelectedEntry[1] & " >>")
		EndIf
		If $ContextMenuFileStatus = 1 Then
			GUICtrlDelete($ListviewContextMenu)
			$ContextMenuFileStatus = 0
		EndIf
		$ListviewContextMenu = _CreateFolderContextMenu()
		$ContextMenuFolderStatus = 1
	ElseIf $SelectedEntry[0] = 2 Then
		If $SelectedEntry[1] <> $OldText Then
			GUICtrlSetData($InputDir, "Selected: File << " & $SelectedEntry[1] & " >>")
		EndIf
		If $ContextMenuFolderStatus = 1 Then
			GUICtrlDelete($ListviewContextMenu)
			$ContextMenuFolderStatus = 0
		EndIf
		$ListviewContextMenu = _CreateFileContextMenu()
		$ContextMenuFileStatus = 1
	ElseIf $SelectedEntry[0] = 0 Then
		If $SelectedEntry[1] <> $OldText Then
			GUICtrlSetData($InputDir, "Selected: Nothing")
		EndIf
		If $ContextMenuFileStatus = 1 Or $ContextMenuFolderStatus = 1 Then
			GUICtrlDelete($ListviewContextMenu)
			$ContextMenuFileStatus = 0
			$ContextMenuFolderStatus = 0
		EndIf
	EndIf
EndFunc


Func _CreateFileContextMenu()
	$ContextMenu = GUICtrlCreateContextMenu($Listview)
	GUICtrlCreateMenuItem("Context Menu for a file", $ContextMenu)
	Return $ContextMenu
EndFunc


Func _CreateFolderContextMenu()
	$ContextMenu = GUICtrlCreateContextMenu($Listview)
	GUICtrlCreateMenuItem("Context Menu for a Folder", $ContextMenu)
	Return $ContextMenu
EndFunc


Func _GetSelected()
	Local $ReturnArray[2]
	$Selection = _GUICtrlListView_GetSelectedIndices($Listview)
	$Folder = _GUICtrlListView_GetItemText($Listview, Int($Selection))
	If $Selection = "" Then
		$ReturnArray[0] = 0
		$ReturnArray[1] = " "
	ElseIf _IsDir($ActualPath & "\" & $Folder) = True Then
		$ReturnArray[0] = 1
		$ReturnArray[1] = $Folder
	ElseIf _IsDir($ActualPath & "\" & $Folder) = False Then
		$ReturnArray[0] = 2
		$ReturnArray[1] = $Folder
	EndIf
	Return $ReturnArray
EndFunc


Func _ListviewAddDirectory($Listview, $Directory)
	_GUICtrlListView_DeleteAllItems($Listview)
	$FileArray = _FileListToArray($Directory)
	For $i = 1 To $FileArray[0]-1
		_GUICtrlListView_AddItem($Listview, $FileArray[$i])
	Next
EndFunc


Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return 0
    $code = DllStructGetData($tagNMHDR, 3)
    If $wParam = $Listview And $code = -3 Then $ListviewDoubleclicked = True
    Return $GUI_RUNDEFMSG
EndFunc


Func _ListviewDoubleclick()
	If $ListviewDoubleclicked Then
      	$Selected = _GUICtrlListView_GetSelectedIndices($Listview)
		$Folder = _GUICtrlListView_GetItemText($Listview, Int($Selected))
		If $Selected <> "" Then
			If _IsDir($ActualPath & "\" & $Folder) = True Then
				_ListviewAddDirectory($Listview, $ActualPath & "\" & $Folder)
				$ActualPath &= "\" & $Folder
			Else
				ShellExecute($ActualPath & "\" & $Folder)
			EndIf
			$ListviewDoubleclicked = False
		EndIf
    EndIf
EndFunc


Func _IsDir($Path)
	If StringInStr(FileGetAttrib($Path), "D") = True Then
		Return True
	Else
		Return False
	EndIf
EndFunc

Alles anzeigen

Ich steh grad voll aufm Schlauch und seh das Problem irgendwie nicht .
Kann da jemand weiterhelfen?

NO1 :-)

Danke!

Abschließend noch eine Frage: Kann man mehrer Toolbars auf einer GUI erstellen?

Edit: Habs mir selber erstellt, wie's BugFix
vorgeschlagen hatt...

NO1 :-)

Danke für deine Antwort,

ich hab mir das auch schon überlegt, es selber zusammen zu basteln. Weißt du / Wisst ihr wie man Pfade/Handles zu den Systembitmaps bekommt?

NO1 :-)

Hi liebe AutoIt-Community!

Ich hätte da mal ein paar grundsätzliche Fragen zu den Themen Toolbar Rebar. Ich hab schon länger im Internet gesucht, jedoch ohne großen Erfolg.

1. Kann man mehrere Toolbars auf einer GUI
erzeugen (z.B. um Sie untereinander in eine Rebar einzufügen).

2. Wobei ich nur negative Erfahrungen gemacht hab: System-Bitmaps und eigene Icons in 1 Toolbar einzufügen.

3. Kann man die Rebar-Styles so setzen, dass die einzelnen Gruppen nicht verschoben werden können und das nur bei bestimmten Gruppen die Größe per Maus verändert werden kann.
Habs schon versucht mit
_GUICtrlRebar_SetBandStyleFixedSize und mit _GUICtrlRebar_SetBandStyleNoGripper. Jedoch haben die Gruppen unterschiedliche Größen und das schaut ******* aus, wenn man z.B. Icons in die Rebar einfügt. Beispielskript kanm ich heut leider net schicken, aber morgen.

Wenn ihr euch da besser auskennt und Lust habt zu antworten, dann tut das gerne .

Lg NO1

NO1 :-)

Wow! Hast du super gemacht!

Das mit dem auskommentieren an den Stellen hab ich gestern auch probiert, da hat er dann aber wieder gemeckert, dass die Konstanten nicht deklariert sind .
Naja, gut, hat jetzt auf jeden Fall funktioniert und vielen Dank nochmal.

Lg NO1

NO1 :-)

Danke dir vielmals,

ich versuchs nochmal, wenn ich daheim bin...

NO1 :-)

Danke Bitnugger,

aber warum meckert denn die Check.exe rum, es wird doch abgefragt ob die $Events deklariert sind? Wie soll ich das umschreiben?

Lg NO1

NO1 :-)

Hallo zusammmen,

ich würde gerne die ModernMenu UDF aus dem englischen Forum benutzen.
Wenn man z.B. das Beispielskript direkt ausführt (per Doppelklick im Windows-Explorer), funktioniert alles wie gewünscht. Wenn man das Skript allerdings aus SciTe ausführt, öffnet SciTe immer die MondernMenuRaw.au3 und spuckt die Fehlermeldung "previously declared as a Const aus", obwohl mit dieser Zeile in der ModernMenuRaw.au3

AutoIt

If Not IsDeclared("WM_MOUSEMOVE") Then Global Const $WM_MOUSEMOVE = 0x0200

ja eigentlich abgefragt wird, ob in diesem Fall $WM_MOUSEMOVE schon deklariert ist.
Ist da ein Fehler im Skript oder liegt es an SciTe?
Bzw. wie kann ich die Fehlermeldung unterdrücken?

Weiß da jemand von euch Bescheid?
Vielen Dank

Hier noch das Testskript:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
;#include "ModernMenu.au3"
#include "ModernMenuRaw.au3" ; Only unknown constants are declared here