Problem mit ContextMenü

Sen

So, kurz vor dem Release von HastyNotes 3.0 hat sich ein kleiner Bug eingebaut..
und zwar habe ich 2 Context Menü's auf 2 verschiedene ListViews abgestimmt.
Es funktioniert aber nur das 2te Menü.
Beim ersten zeigt er zwar das Menü an aber es passiert nichts beim klicken eines MenüItems.

Script:
(ACHTUNG groß.)

Spoiler anzeigen

[autoit]

;---------------------------------------------------------------------------—
; HastyNotes 3.0
; By Sen // Christopher Klay
; Last Update - Montag, 11 Mai 2009
;---------------------------------------------------------------------------—
; Version - V 3.0
;---------------------------------------------------------------------------—
; Beschreibung:
; Kleines Notizbuch Tool
;---------------------------------------------------------------------------—-
; $Background = GUICtrlCreatePic(@ScriptDir & "\Images\Background.jpg", 0, 0, 640, 480, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit] [autoit][/autoit] [autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#Include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $log1 = @UserName&"-Notizen.txt"
Local $log2 = @UserName&"-Zwischenablage.txt"
Local $log3 = @UserName&"-Sonstiges.txt"
Local $log4 = @UserName&"-To-Do.txt"
Local $logterm = @UserName&"-Termine.txt"
Local $logadress = @UserName&"-Adressen.txt"
Local $MyDocsFolder = @MyDocumentsDir

[/autoit] [autoit][/autoit] [autoit]

Local $Version = "3.0"

[/autoit] [autoit][/autoit] [autoit]

HotkeySet("^a", "Allesmarkieren")

[/autoit] [autoit][/autoit] [autoit]

DirCreate (@ScriptDir & "\Logs\")

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\Settings.ini") = 0 Then
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", "Tab1")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", "Tab2")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", "Tab3")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", "Tab4")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log1) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log1,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log2) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log2,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log3) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log3,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log4) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log4,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logterm) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $logterm,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logadress) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $logadress,"")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$TabName1 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", "Tab")
$TabName2 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", "Tab")
$TabName3 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", "Tab")
$TabName4 = IniRead(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", "Tab")

[/autoit] [autoit][/autoit] [autoit]

$Mainform = GUICreate("HastyNotes " & $Version, 640, 480, -1, -1)
GUISetBkColor(0xFFFFFF)
GUISetIcon("\Images\HastyNotes - Icon.ico")
$Header = GUICtrlCreatePic(@ScriptDir & "\Images\Header.jpg", 0, 430, 640, 25, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))

[/autoit] [autoit][/autoit] [autoit]

$Datei = GUICtrlCreateMenu("Datei")
$Laden = GUICtrlCreateMenuItem("Öffnen", $Datei)
$SpeichernInTab = GUICtrlCreateMenuItem("Alles speichern", $Datei)
$SpeichernInDatei = GUICtrlCreateMenuItem("Tab speichern in Datei", $Datei)
GUICtrlCreateMenuItem("", $Datei)
$Drucken = GUICtrlCreateMenuItem("Drucken", $Datei)
GUICtrlCreateMenuItem("", $Datei)
$Beenden = GUICtrlCreateMenuItem("Beenden", $Datei)

[/autoit] [autoit][/autoit] [autoit]

$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Kopieren = GUICtrlCreateMenu("Kopieren", $Bearbeiten)
$KopierenAll = GUICtrlCreateMenuItem("Alles kopieren", $Kopieren)
$KopierenMark = GUICtrlCreateMenuItem("Nur Markierung kopieren", $Kopieren)
$Delete = GUICtrlCreateMenu("Löschen", $Bearbeiten)
$DeleteAll = GUICtrlCreateMenuItem("Alles löschen", $Delete)
$DeleteMark = GUICtrlCreateMenuItem("Nur Markierung löschen", $Delete)
$Ausrechnen = GUICtrlCreateMenu("Ausrechnen", $Bearbeiten)
$ZeichenAll = GUICtrlCreateMenuItem("Zeichen - Alle", $Ausrechnen)
$ZeichenLine = GUICtrlCreateMenuItem("Zeichen - Zeile", $Ausrechnen)
$Sichern = GUICtrlCreateMenu("Sichern", $Bearbeiten)
$TextSetzen = GUICtrlCreateMenu("Festsetzen/Lösen", $Sichern)
$TextFestsetzen = GUICtrlCreateMenuItem("Tab festsetzen", $TextSetzen)
$TextLoesen = GUICtrlCreateMenuItem("Tab lösen", $TextSetzen)
$TabsFestsetzen = GUICtrlCreateMenuItem("Alle Tabs festsetzen", $TextSetzen)
$TabsLoesen = GUICtrlCreateMenuItem("Alle Tabs lösen", $TextSetzen)
$Textlaenge = GUICtrlCreateMenu("Text längen Limit", $Sichern)
$Textlaengesetzen = GUICtrlCreateMenuItem("Setzen", $Textlaenge)
$Textlaengeentfernen = GUICtrlCreateMenuItem("Entfernen", $Textlaenge)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
$Backmake = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$MarkAll = GUICtrlCreateMenuItem("Alles markieren", $Bearbeiten)
$DatumTime = GUICtrlCreateMenuItem("Datum und Zeit", $Bearbeiten)
$Ersetzen = GUICtrlCreateMenuItem("Suchen/Ersetzen", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten)
$NewTabName = GUICtrlCreateMenu("Tab Namen ändern", $Bearbeiten)
$NewTabName1 = GUICtrlCreateMenuItem("Tab 1", $NewTabName)
$NewTabName2 = GUICtrlCreateMenuItem("Tab 2", $NewTabName)
$NewTabName3 = GUICtrlCreateMenuItem("Tab 3", $NewTabName)
$NewTabName4 = GUICtrlCreateMenuItem("Tab 4", $NewTabName)

[/autoit] [autoit][/autoit] [autoit]

$Termine = GUICtrlCreateMenu("Termine")
$AddTermin = GUICtrlCreateMenuItem("Termin hinzufügen", $Termine)
$Termin2 = GUICtrlCreateMenu("Termin entfernen", $Termine)
$KillTermin = GUICtrlCreateMenuItem("Markierten Termin", $Termin2)
$KillAllTermin = GUICtrlCreateMenuItem("Alle Termine", $Termin2)

[/autoit] [autoit][/autoit] [autoit]

$Adressen = GUICtrlCreateMenu("Adressbuch")
$AddAdress = GUICtrlCreateMenuItem("Kontakt hinzufügen", $Adressen)
$Adressen2 = GUICtrlCreateMenu("Kontakt entfernen", $Adressen)
$KillAdress = GUICtrlCreateMenuItem("Markierten Kontakt", $Adressen2)
$KillAllAdress = GUICtrlCreateMenuItem("Alle Kontakte", $Adressen2)

[/autoit] [autoit][/autoit] [autoit]

$Hilfe = GUICtrlCreateMenu("Hilfe")
$UberHastyNotes = GUICtrlCreateMenuItem("Über", $Hilfe)
$Update = GUICtrlCreateMenuItem("Update", $Hilfe)

[/autoit] [autoit][/autoit] [autoit]

$UberTab = GUICtrlCreateTab(0, 0, 643, 433, $TCS_BOTTOM)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Tab1 = GUICtrlCreateTabItem($TabName1)
$Edit1 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab2 = GUICtrlCreateTabItem($TabName2)
$Edit2 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab3 = GUICtrlCreateTabItem($TabName3)
$Edit3 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab4 = GUICtrlCreateTabItem($TabName4)
$Edit4 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab5 = GUICtrlCreateTabItem("Kalender")
$Kalender = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @MDAY, 4, 5, 632, 397)
$Tab6 = GUICtrlCreateTabItem("Termine")
$Terminliste = GUICtrlCreateListView("Betreff|Uhrzeit|Datum|Kommentar", 4, 5, 632, 397)
$Tab7 = GUICtrlCreateTabItem("Adressbuch")
$Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 4, 5, 632, 397)

[/autoit] [autoit][/autoit] [autoit]

$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $Terminliste)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $Terminliste)

[/autoit] [autoit][/autoit] [autoit]

$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $Adressbuch)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $Adressbuch)

[/autoit] [autoit][/autoit] [autoit]

Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlListView_SetExtendedListViewStyle($Terminliste, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Terminliste)
_GUICtrlListView_SetExtendedListViewStyle($Adressbuch, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Adressbuch)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

_Logread()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $KillAdress
_GUICtrlListView_DeleteItemsSelected($Adressbuch)
Case $KillAllAdressC
_GUICtrlListView_DeleteAllItems($Adressbuch)
Case $KillAdressC
_GUICtrlListView_DeleteItemsSelected($Adressbuch)
Case $KillAllAdress
_GUICtrlListView_DeleteAllItems($Adressbuch)
Case $AddAdress
$AdressAddGUI = GUICreate("", 272, 174, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
$NameLabel = GUICtrlCreateLabel("Name:", 32, 8, 44, 20)
$NameInput = GUICtrlCreateInput("Z.b. ""Max Mustermann""", 80, 8, 177, 24)
$Adresse1Label = GUICtrlCreateLabel("Adresse1:", 11, 35, 65, 20)
$Adresse1Input = GUICtrlCreateInput("Z.b. ""Musterweg 1""", 80, 35, 177, 24)
$Adresse2Label = GUICtrlCreateLabel("Adresse2:", 11, 62, 65, 20)
$Adresse2Input = GUICtrlCreateInput("Z.b. ""12345 Musterstadt""", 80, 62, 177, 24)
$TelefonLabel = GUICtrlCreateLabel("Telefon:", 22, 89, 53, 20)
$TelefonInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 80, 89, 177, 24)
$HandyLabel = GUICtrlCreateLabel("Handy:", 28, 116, 47, 20)
$HandyInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 81, 116, 177, 24)
$HinzufuegenButton1 = GUICtrlCreateButton("Hinzufügen", 53, 144, 97, 17, $WS_GROUP)
$AbbrechenButton1 = GUICtrlCreateButton("Abbrechen", 160, 144, 97, 17, $WS_GROUP)

GuiSetState()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$AdressAddGUI)
ExitLoop
Case $HinzufuegenButton1
$Name = GUICtrlRead($NameInput)
$Adresse1 = GUICtrlRead($Adresse1Input)
$Adresse2 = GUICtrlRead($Adresse2Input)
$Telefon = GUICtrlRead($TelefonInput)
$Handy = GUICtrlRead($HandyInput)
GUICtrlCreateListViewItem($Name & "|" & $Adresse1 & "|" & $Adresse2 & "|" & $Telefon & "|" & $Handy, $Adressbuch)
GuiSetState(@SW_HIDE,$AdressAddGUI)
ExitLoop
Case $AbbrechenButton1
GuiSetState(@SW_HIDE,$AdressAddGUI)
ExitLoop
EndSwitch
WEnd
Case $Adressbuch
_GUICtrlListView_SortItems($Adressbuch, GUICtrlGetState($Adressbuch))
Case $Terminliste
_GUICtrlListView_SortItems($Terminliste, GUICtrlGetState($Terminliste))
Case $Beenden
Exit
Case $KillTerminC
_GUICtrlListView_DeleteItemsSelected($Terminliste)
Case $KillAllTerminC
_GUICtrlListView_DeleteAllItems($Terminliste)
Case $KillAllTermin
_GUICtrlListView_DeleteAllItems($Terminliste)
Case $KillTermin
_GUICtrlListView_DeleteItemsSelected($Terminliste)
Case $AddTermin
$AddTerminGUI = GUICreate("", 421, 172, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
$BetreffLabel = GUICtrlCreateLabel("Betreff:", 8, 8, 45, 20)
$BetreffInput = GUICtrlCreateInput("Z.b. ""Treffen mit xxx""", 56, 8, 353, 20)
$UhrzeitLabel = GUICtrlCreateLabel("Uhrzeit:", 8, 35, 48, 20)
$UhrzeitInput = GUICtrlCreateInput("Z.b. ""20:15""", 56, 35, 121, 20)
$DatumLabel = GUICtrlCreateLabel("Datum:", 8, 62, 46, 20)
$DatumInput = GUICtrlCreateInput("Z.b. ""01.1.2001""", 56, 62, 121, 20)
$KommentarLabel = GUICtrlCreateLabel("Kommentar (Optional):", 8, 89, 300, 20)
$KommentarInput = GUICtrlCreateInput("", -1, 110, 400, 20)
$HinzufuegenButton = GUICtrlCreateButton("Hinzufügen", 8, 136, 75, 25, $WS_GROUP)
$AbbrechenButton = GUICtrlCreateButton("Abbrechen", 88, 136, 75, 25, $WS_GROUP)

GuiSetState()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$AddTerminGUI)
ExitLoop
Case $HinzufuegenButton
$Betreff = GUICtrlRead($BetreffInput)
$Uhrzeit = GUICtrlRead($UhrzeitInput)
$Datum = GUICtrlRead($DatumInput)
$Kommentar = GUICtrlRead($KommentarInput)
GUICtrlCreateListViewItem($Betreff & "|" & $Uhrzeit & "|" & $Datum & "|" & $Kommentar, $Terminliste)
GuiSetState(@SW_HIDE,$AddTerminGUI)
ExitLoop
Case $AbbrechenButton
GuiSetState(@SW_HIDE,$AddTerminGUI)
ExitLoop
EndSwitch
WEnd
Case $Drucken
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$log1 = GUICtrlRead($Edit1, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log1)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab2
$log2 = GUICtrlRead($Edit2, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log2)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab3
$log3 = GUICtrlRead($Edit3, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log3)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab4
$log4 = GUICtrlRead($Edit4, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log4)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
EndSwitch
Case $Ersetzen
$ErsetzenGUI = GUICreate("", 243, 154, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
$ErsetzenInput = GUICtrlCreateInput("", 8, 32, 225, 24)
GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
$Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)

GuiSetState()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$ErsetzenGUI)
ExitLoop
Case $ErsetzenButton
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$log1 = GUICtrlRead($Edit1)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log1, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit1, $ErrechneText)
Case $Tab2
$log2 = GUICtrlRead($Edit2)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log2, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit2, $ErrechneText)
Case $Tab3
$log3 = GUICtrlRead($Edit3)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log3, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit3, $ErrechneText)
Case $Tab4
$log4 = GUICtrlRead($Edit4)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log4, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit4, $ErrechneText)
GuiSetState(@SW_HIDE,$ErsetzenGUI)
EndSwitch
Case $ErsetzenAbbrechen
GuiSetState(@SW_HIDE,$ErsetzenGUI)
ExitLoop
EndSwitch
WEnd
Case $NewTabName1
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
GUICtrlSetData($Tab1, $TabNameChange)
Case $NewTabName2
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
GUICtrlSetData($Tab2, $TabNameChange)
Case $NewTabName3
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
GUICtrlSetData($Tab3, $TabNameChange)
Case $NewTabName4
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir&"\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
GUICtrlSetData($Tab4, $TabNameChange)
Case $Textlaengeentfernen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, -1)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, -1)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, -1)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, -1)
EndSwitch
Case $Textlaengesetzen
$textlaengemax = Inputbox("HastyNotes", "Bitte maximale Zeichenlänge eingeben:")
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, $textlaengemax)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, $textlaengemax)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, $textlaengemax)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, $textlaengemax)
EndSwitch
Case $TabsLoesen
_GUICtrlEdit_SetReadOnly($Edit1, False)
_GUICtrlEdit_SetReadOnly($Edit2, False)
_GUICtrlEdit_SetReadOnly($Edit3, False)
_GUICtrlEdit_SetReadOnly($Edit4, False)
Case $TabsFestsetzen
_GUICtrlEdit_SetReadOnly($Edit1, True)
_GUICtrlEdit_SetReadOnly($Edit2, True)
_GUICtrlEdit_SetReadOnly($Edit3, True)
_GUICtrlEdit_SetReadOnly($Edit4, True)
Case $TextLoesen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, False)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, False)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, False)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, False)
EndSwitch
Case $TextFestsetzen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, True)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, True)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, True)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, True)
EndSwitch
Case $ZeichenLine
$welcheline = InputBox("HastyNotes", "Bitte Zeilen Nr eingeben:" & @CRLF & "Achtung: Oberste Zeile ist 0")
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit1, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab2
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit2, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab3
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit3, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab4
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit4, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
EndSwitch
Case $MarkAll
Allesmarkieren()
Case $ZeichenAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$paste1 = GUICtrlRead($Edit1, 1)
$laenge = StringLen($paste1)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab2
$paste2 = GUICtrlRead($Edit2, 1)
$laenge = StringLen($paste2)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab3
$paste3 = GUICtrlRead($Edit3, 1)
$laenge = StringLen($paste3)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab4
$paste4 = GUICtrlRead($Edit4, 1)
$laenge = StringLen($paste1)
MsgBox(0,"Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
EndSwitch
Case $Laden
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit1, $ladedateipfad2)
Case $Tab2
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab3
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab4
$ladedateipfad = FileOpenDialog( "Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead( $ladedateipfad )
GUICtrlSetData($Edit2, $ladedateipfad2)
EndSwitch
Case $SpeichernInDatei
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$savedatei = GUICtrlRead($Edit1, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIF
Case $Tab2
$savedatei = GUICtrlRead($Edit2, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
Case $Tab3
$savedatei = GUICtrlRead($Edit3, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
Case $Tab4
$savedatei = GUICtrlRead($Edit4, 1)
$savedateipfad = FileSaveDialog( "Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists( $savedateipfad ) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen( $savedateipfad, 2 )
FileWrite( $savedateipfad, $savedatei)
FileClose( $savedateipfad )
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite( $savedateipfad & ".txt", $savedatei )
FileClose( $savedateipfad & ".txt" )
EndIf
EndSwitch
Case $SpeichernInTab
$paste1 = GUICtrlRead($Edit1, 1)
FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
FileClose(@ScriptDir & "\Logs\" & $log1)

$paste2 = GUICtrlRead($Edit2, 1)
FileOpen(@ScriptDir & "\Logs\" & $log2, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log2, $paste2)
FileClose(@ScriptDir & "\Logs\" & $log1)

$paste3 = GUICtrlRead($Edit3, 1)
FileOpen(@ScriptDir & "\Logs\" & $log3, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log3, $paste3)
FileClose(@ScriptDir & "\Logs\" & $log3)

$paste4 = GUICtrlRead($Edit4, 1)
FileOpen(@ScriptDir & "\Logs\" & $log4, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log4, $paste4)
FileClose(@ScriptDir & "\Logs\" & $log4)

$logtermlines = _GUICtrlListView_GetItemCount($Terminliste) - 1
$loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 2)
If $loadterm <> -1 Then
For $i = 0 To $logtermlines
$loadtermzeile = _GUICtrlListView_GetItemTextString($Terminliste, $i)
FileWriteLine(@ScriptDir & "\Logs\" & $logterm, $loadtermzeile)
Next
FileClose(@ScriptDir & "\Logs\" & $logterm)
EndIf

$logadresslines = _GUICtrlListView_GetItemCount($Adressbuch) - 1
$loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 2)
If $loadadress <> -1 Then
For $i2 = 0 To $logadresslines
$logadresszeile = _GUICtrlListView_GetItemTextString($Adressbuch, $i2)
FileWriteLine(@ScriptDir & "\Logs\" & $logadress, $logadresszeile)
Next
FileClose(@ScriptDir & "\Logs\" & $logadress)
EndIf
Case $KopierenAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$saveall = GUICtrlRead ( $Edit1 )
ClipPut( $saveall )
Case $Tab2
$saveall = GUICtrlRead ( $Edit2 )
ClipPut( $saveall )
Case $Tab3
$saveall = GUICtrlRead ( $Edit3 )
ClipPut( $saveall )
Case $Tab4
$saveall = GUICtrlRead ( $Edit4 )
ClipPut( $saveall )
EndSwitch
Case $KopierenMark
Send( "^c" )
Case $Backmake
Send( "^z" )
Case $DeleteMark
Send("{DEL}")
Case $Ausschneiden
Send ( "^x" )
Case $Update
InetGet("http://sen.pytalhost.de/HastyNotes/Update.txt",@TempDir & "\Update.txt", 1, 0)
$UpdateFile = FileOpen(@TempDir & "\Update.txt", 0)
$UpdateLine = FileReadLine($UpdateFile, 1)
If $UpdateLine = $Version Then
FileClose($UpdateFile)
FileDelete(@TempDir & "\Update.txt")
MsgBox(64, "Update HastyNotes", "Sie benutzen die" & @CRLF & "Aktuelle Version "& $Version)
Else
MsgBox(0, "Update HastyNotes", "Eine neue Version von HastyNotes ist verfügbar." & @CRLF & "Sie befindet sich nun in ihrem HastyNotes Ordner" )
InetGet("http://sen.pytalhost.de/HastyNotes/HastyNotes " & $UpdateLine & ".zip", "HastyNotes " & $UpdateLine & ".zip", 1, 0)
FileClose($UpdateLine)
FileDelete(@TempDir & "\Update.txt")
EndIf
Case $DatumTime
Switch GUICtrlRead($UberTab,1)
Case $Tab1
Guictrlsetstate($Edit1, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab2
Guictrlsetstate($Edit2, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab3
Guictrlsetstate($Edit3, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
Case $Tab4
Guictrlsetstate($Edit4, $GUI_FOCUS)
Send( @Hour&":"&@Min&"Uhr - "&@MDAY&"."&@MON&":"&@YEAR)
EndSwitch
Case $DeleteAll
Switch GUICtrlRead($UberTab,1)
Case $Tab1
GUICtrlSetData($Edit1, "")
Case $Tab2
GUICtrlSetData($Edit2, "")
Case $Tab3
GUICtrlSetData($Edit3, "")
Case $Tab4
GUICtrlSetData($Edit4, "")
EndSwitch
Case $Einfuegen
Switch GUICtrlRead($UberTab,1)
Case $Tab1
Guictrlsetstate($Edit1, $GUI_FOCUS)
Send( "^v" )
Case $Tab2
Guictrlsetstate($Edit2, $GUI_FOCUS)
Send( "^v" )
Case $Tab3
Guictrlsetstate($Edit3, $GUI_FOCUS)
Send( "^v" )
Case $Tab4
Guictrlsetstate($Edit4, $GUI_FOCUS)
Send( "^v" )
EndSwitch
Case $UberHastyNotes
MsgBox(64, "Über HastyNotes", "Version: "& $Version & @CRLF & "© by Sen // Christopher Klay")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Logread()
If FileExists(@ScriptDir & "\Logs\" & $log1) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log1,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit1, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log1)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log2) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log2,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit2, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log2)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log3) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log3,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit3, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log3)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $log4) then
local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log4,0)
local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit4, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log4)
EndIf

If FileExists(@ScriptDir & "\Logs\" & $logterm) Then
local $loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 0)
If $loadterm <> -1 Then
_GUICtrlListView_BeginUpdate($Terminliste)
While True
$loadtermzeile = FileReadLine($loadterm)
If @error Then ExitLoop
GUICtrlCreateListViewItem($loadtermzeile, $Terminliste)
WEnd
_GUICtrlListView_EndUpdate($Terminliste)
FileClose(@ScriptDir & "\Logs\" & $logterm)
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logadress) Then
local $loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 0)
If $loadadress <> -1 Then
_GUICtrlListView_BeginUpdate($Adressbuch)
While True
$loadadresszeile = FileReadLine($loadadress)
If @error Then ExitLoop
GUICtrlCreateListViewItem($loadadresszeile, $Adressbuch)
WEnd
_GUICtrlListView_EndUpdate($Adressbuch)
FileClose(@ScriptDir & "\Logs\" & $logadress)
EndIf
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Allesmarkieren()
Switch GUICtrlRead($UberTab,1)
Case $Tab1
_GUICtrlEdit_SetSel($Edit1, 0, -1)
Case $Tab2
_GUICtrlEdit_SetSel($Edit2, 0, -1)
Case $Tab3
_GUICtrlEdit_SetSel($Edit3, 0, -1)
Case $Tab4
_GUICtrlEdit_SetSel($Edit4, 0, -1)
EndSwitch
EndFunc

[/autoit]

Jemand ne Idee woran es liegen könnte?
Ich denke mal es ist ein dummer Fehler ihrgendwo weil ich ziemlich müde bin

**Oscar**

Ja, ein kleiner Fehler.

Tausche diesen Teil:

[autoit]

$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $Terminliste)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $Terminliste)

[/autoit][autoit][/autoit][autoit]

$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $Adressbuch)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $Adressbuch)

[/autoit]

gegen diesen aus:

[autoit]

$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $ContextTermin)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $ContextTermin)

[/autoit][autoit][/autoit][autoit]

$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $ContextAdress)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $ContextAdress)

[/autoit]

Sen

Danke.
Werd dann gleich mal die Zip uppen etc und HastyNotes 3.0 in meinen Thread stellen.

Edit:
Geht trotzdem nicht
Weiterhin gehts das Menü, lässt sich aufrufen etc
aber beim klicken eines Items im ContextMenü passiert nichts.
(die gleiche funktion geht aber über das "Termine -> Entfernen" Menü oben)

Sen

Sry für Doppelpost aber hat keiner ne Idee?
Hab das oben übernommen, sollte auch alles gehen..
Tut es aber nicht

Weiterhin wird das Menü zwar angezeigt,
aber beim klick nichts ausgeführt

**autoBert**

Hallo sen,

ich hätte die Warnung (Achung sehr lang) beachten sollen, ich hab zwar den Fehler nicht gefunden. Das Skript ist im Bereich des MsgLoops sehr schlecht zu lesen, da dir bei der Formatierung (Ein/Ausrückungen) irgendwo ein Fehler unterlaufen ist: Die 1. While fängt ist ganz aussen, das dazugehörige Wend ist eingerückt. Versuch also mal den Bereich richtig zu formatieren, warscheins findet du dabei den Fehler. Wenn du ihn dann immer noch nicht hast, stelle alle Zeilen in den du die Nachricht abragst auf eine eigene Variabel um und bau an allen (un)möglichen Stellen dieses ein:

Spoiler anzeigen

If $nMsgXY = $KillTerminC then ConsoleWrite('bin gerade bei xy'

damit kannst du den Fehler vielleicht finden,

mfg (Auto)Bert

Oscar , jetzt liebe ich den OnEventModus noch mehr

Sen

Finde den Fehler auch nicht..

Und ja die Sortierung ist ein bischen "speziell"

**Oscar**

Mit den obigen Änderungen funktioniert es bei mir.
Allerdings wird es wohl nicht lange funktionieren, denn Du erstellst beim "hinzufügen" andauernd neue Fenster ohne sie wieder zu löschen. Du versteckst sie nur. Beim erstellen benutzt Du dann immer das gleiche Handle, sodass sie danach auch nicht mehr geschlossen werden können.
Also entweder musst Du

[autoit]

GUISetState(@SW_HIDE, $AdressAddGUI)

[/autoit]

durch

[autoit]

GUIDelete($AdressAddGUI)

[/autoit]

austauschen
oder Du änderst Deinen gesamten Code mal dahingehend, dass alle erforderlichen Fenster am Anfang erstellt werden und nur bei Bedarf ein-/ausgeblendet werden.
Bei so langen Skripten würde ich aber auch den OnEvent-Mode bevorzugen. autoBert: Stimme Dir da voll zu.

P.S.: Damit die Formatierung wieder stimmt, lass mal Tidy drüberlaufen. Dann steigt man wenigstens wieder etwas durch.

Sen

Nja lang ist relativ, wenn ich die Funktionen die noch geplant sind einbaue kommen noch knapp
1400 zeilen oben drauf

Hab das jetzt mit GuiDelete geregelt

Einziges Problem dieses Menü:
[Blockierte Grafik: http://img-up.net/img/HastyNotesExAHKy7E.jpg]

Funktioniert weiterhin nicht

**Oscar**

Das hat mit der TAB-Definition zu tun. Das Kontextmenü für die Terminliste muss in dem Bereich des TAB6 stehen:

Spoiler anzeigen

[autoit]

$Tab6 = GUICtrlCreateTabItem("Termine")
$Terminliste = GUICtrlCreateListView("Betreff|Uhrzeit|Datum|Kommentar", 4, 5, 632, 397)

[/autoit] [autoit][/autoit] [autoit]

$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $ContextTermin)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $ContextTermin)

[/autoit] [autoit][/autoit] [autoit]

$Tab7 = GUICtrlCreateTabItem("Adressbuch")
$Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 4, 5, 632, 397)

[/autoit] [autoit][/autoit] [autoit]

$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $ContextAdress)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $ContextAdress)

[/autoit] [autoit][/autoit] [autoit]

Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)

[/autoit]

Habe das auch gerade erst bemerkt, weil ich vorher nur das Adressbuch getestet hatte.

Nestos

So, ich hab mal das Script so umgeschrieben, dass alle Fenster im vorher erstellt und nur bei Bedarf ein- und ausgeblendet werden.

Hab auch noch nen kleinen Bug entfernt. ($WS_EX_TOOLWINDOW)

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $log1 = @UserName & "-Notizen.txt"
Local $log2 = @UserName & "-Zwischenablage.txt"
Local $log3 = @UserName & "-Sonstiges.txt"
Local $log4 = @UserName & "-To-Do.txt"
Local $logterm = @UserName & "-Termine.txt"
Local $logadress = @UserName & "-Adressen.txt"
Local $MyDocsFolder = @MyDocumentsDir

[/autoit] [autoit][/autoit] [autoit]

Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)

[/autoit] [autoit][/autoit] [autoit]

Local $Version = "3.0"

[/autoit] [autoit][/autoit] [autoit]

HotKeySet("^a", "Allesmarkieren")

[/autoit] [autoit][/autoit] [autoit]

DirCreate(@ScriptDir & "\Logs\")

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\Settings.ini") = 0 Then
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", "Tab1")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", "Tab2")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", "Tab3")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", "Tab4")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log1) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log1, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log2) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log2, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log3) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log3, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log4) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $log4, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logterm) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $logterm, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logadress) = 0 Then
FileWrite(@ScriptDir & "\Logs\" & $logadress, "")
EndIf

[/autoit] [autoit][/autoit] [autoit]

$TabName1 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", "Tab")
$TabName2 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", "Tab")
$TabName3 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", "Tab")
$TabName4 = IniRead(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", "Tab")

[/autoit] [autoit][/autoit] [autoit]

#Region - Mainform
$Mainform = GUICreate("HastyNotes " & $Version, 640, 480, -1, -1)
GUISetBkColor(0xFFFFFF)
GUISetIcon("\Images\HastyNotes - Icon.ico")
$Header = GUICtrlCreatePic(@ScriptDir & "\Images\Header.jpg", 0, 430, 640, 25, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))

[/autoit] [autoit][/autoit] [autoit]

$Datei = GUICtrlCreateMenu("Datei")
$Laden = GUICtrlCreateMenuItem("Öffnen", $Datei)
$SpeichernInTab = GUICtrlCreateMenuItem("Alles speichern", $Datei)
$SpeichernInDatei = GUICtrlCreateMenuItem("Tab speichern in Datei", $Datei)
GUICtrlCreateMenuItem("", $Datei)
$Drucken = GUICtrlCreateMenuItem("Drucken", $Datei)
GUICtrlCreateMenuItem("", $Datei)
$Beenden = GUICtrlCreateMenuItem("Beenden", $Datei)

[/autoit] [autoit][/autoit] [autoit]

$Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
$Kopieren = GUICtrlCreateMenu("Kopieren", $Bearbeiten)
$KopierenAll = GUICtrlCreateMenuItem("Alles kopieren", $Kopieren)
$KopierenMark = GUICtrlCreateMenuItem("Nur Markierung kopieren", $Kopieren)
$Delete = GUICtrlCreateMenu("Löschen", $Bearbeiten)
$DeleteAll = GUICtrlCreateMenuItem("Alles löschen", $Delete)
$DeleteMark = GUICtrlCreateMenuItem("Nur Markierung löschen", $Delete)
$Ausrechnen = GUICtrlCreateMenu("Ausrechnen", $Bearbeiten)
$ZeichenAll = GUICtrlCreateMenuItem("Zeichen - Alle", $Ausrechnen)
$ZeichenLine = GUICtrlCreateMenuItem("Zeichen - Zeile", $Ausrechnen)
$Sichern = GUICtrlCreateMenu("Sichern", $Bearbeiten)
$TextSetzen = GUICtrlCreateMenu("Festsetzen/Lösen", $Sichern)
$TextFestsetzen = GUICtrlCreateMenuItem("Tab festsetzen", $TextSetzen)
$TextLoesen = GUICtrlCreateMenuItem("Tab lösen", $TextSetzen)
$TabsFestsetzen = GUICtrlCreateMenuItem("Alle Tabs festsetzen", $TextSetzen)
$TabsLoesen = GUICtrlCreateMenuItem("Alle Tabs lösen", $TextSetzen)
$Textlaenge = GUICtrlCreateMenu("Text längen Limit", $Sichern)
$Textlaengesetzen = GUICtrlCreateMenuItem("Setzen", $Textlaenge)
$Textlaengeentfernen = GUICtrlCreateMenuItem("Entfernen", $Textlaenge)
$Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
$Backmake = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
$Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
$MarkAll = GUICtrlCreateMenuItem("Alles markieren", $Bearbeiten)
$DatumTime = GUICtrlCreateMenuItem("Datum und Zeit", $Bearbeiten)
$Ersetzen = GUICtrlCreateMenuItem("Suchen/Ersetzen", $Bearbeiten)
GUICtrlCreateMenuItem("", $Bearbeiten)
$NewTabName = GUICtrlCreateMenu("Tab Namen ändern", $Bearbeiten)
$NewTabName1 = GUICtrlCreateMenuItem("Tab 1", $NewTabName)
$NewTabName2 = GUICtrlCreateMenuItem("Tab 2", $NewTabName)
$NewTabName3 = GUICtrlCreateMenuItem("Tab 3", $NewTabName)
$NewTabName4 = GUICtrlCreateMenuItem("Tab 4", $NewTabName)

[/autoit] [autoit][/autoit] [autoit]

$Termine = GUICtrlCreateMenu("Termine")
$AddTermin = GUICtrlCreateMenuItem("Termin hinzufügen", $Termine)
$Termin2 = GUICtrlCreateMenu("Termin entfernen", $Termine)
$KillTermin = GUICtrlCreateMenuItem("Markierten Termin", $Termin2)
$KillAllTermin = GUICtrlCreateMenuItem("Alle Termine", $Termin2)

[/autoit] [autoit][/autoit] [autoit]

$Adressen = GUICtrlCreateMenu("Adressbuch")
$AddAdress = GUICtrlCreateMenuItem("Kontakt hinzufügen", $Adressen)
$Adressen2 = GUICtrlCreateMenu("Kontakt entfernen", $Adressen)
$KillAdress = GUICtrlCreateMenuItem("Markierten Kontakt", $Adressen2)
$KillAllAdress = GUICtrlCreateMenuItem("Alle Kontakte", $Adressen2)

[/autoit] [autoit][/autoit] [autoit]

$Hilfe = GUICtrlCreateMenu("Hilfe")
$UberHastyNotes = GUICtrlCreateMenuItem("Über", $Hilfe)
$Update = GUICtrlCreateMenuItem("Update", $Hilfe)

[/autoit] [autoit][/autoit] [autoit]

$UberTab = GUICtrlCreateTab(0, 0, 643, 433, $TCS_BOTTOM)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$Tab1 = GUICtrlCreateTabItem($TabName1)
$Edit1 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab2 = GUICtrlCreateTabItem($TabName2)
$Edit2 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab3 = GUICtrlCreateTabItem($TabName3)
$Edit3 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab4 = GUICtrlCreateTabItem($TabName4)
$Edit4 = GUICtrlCreateEdit("", 4, 5, 632, 397)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")
$Tab5 = GUICtrlCreateTabItem("Kalender")
$Kalender = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @MDAY, 4, 5, 632, 397)
$Tab6 = GUICtrlCreateTabItem("Termine")
$Terminliste = GUICtrlCreateListView("Betreff|Uhrzeit|Datum|Kommentar", 4, 5, 632, 397)
_GUICtrlListView_SetExtendedListViewStyle($Terminliste, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Terminliste)
$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $Terminliste)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $Terminliste)
$Tab7 = GUICtrlCreateTabItem("Adressbuch")
$Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 4, 5, 632, 397)
_GUICtrlListView_SetExtendedListViewStyle($Adressbuch, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Adressbuch)
$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $Adressbuch)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $Adressbuch)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $Mainform)
#EndRegion - Mainform

[/autoit] [autoit][/autoit] [autoit]

#Region - AddAdress
$AdressAddGUI = GUICreate("", 272, 174, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$NameLabel = GUICtrlCreateLabel("Name:", 32, 8, 44, 20)
$NameInput = GUICtrlCreateInput("Z.b. ""Max Mustermann""", 80, 8, 177, 24)
$Adresse1Label = GUICtrlCreateLabel("Adresse1:", 11, 35, 65, 20)
$Adresse1Input = GUICtrlCreateInput("Z.b. ""Musterweg 1""", 80, 35, 177, 24)
$Adresse2Label = GUICtrlCreateLabel("Adresse2:", 11, 62, 65, 20)
$Adresse2Input = GUICtrlCreateInput("Z.b. ""12345 Musterstadt""", 80, 62, 177, 24)
$TelefonLabel = GUICtrlCreateLabel("Telefon:", 22, 89, 53, 20)
$TelefonInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 80, 89, 177, 24)
$HandyLabel = GUICtrlCreateLabel("Handy:", 28, 116, 47, 20)
$HandyInput = GUICtrlCreateInput("Z.b. ""01234/56789""", 81, 116, 177, 24)
$HinzufuegenButton1 = GUICtrlCreateButton("Hinzufügen", 53, 144, 97, 17, $WS_GROUP)
$AbbrechenButton1 = GUICtrlCreateButton("Abbrechen", 160, 144, 97, 17, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_HIDE, $AdressAddGUI)
#EndRegion - AddAdress

[/autoit] [autoit][/autoit] [autoit]

#Region - AddTermin
$AddTerminGUI = GUICreate("", 421, 172, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$BetreffLabel = GUICtrlCreateLabel("Betreff:", 8, 8, 45, 20)
$BetreffInput = GUICtrlCreateInput("Z.b. ""Treffen mit xxx""", 56, 8, 353, 20)
$UhrzeitLabel = GUICtrlCreateLabel("Uhrzeit:", 8, 35, 48, 20)
$UhrzeitInput = GUICtrlCreateInput("Z.b. ""20:15""", 56, 35, 121, 20)
$DatumLabel = GUICtrlCreateLabel("Datum:", 8, 62, 46, 20)
$DatumInput = GUICtrlCreateInput("Z.b. ""01.1.2001""", 56, 62, 121, 20)
$KommentarLabel = GUICtrlCreateLabel("Kommentar (Optional):", 8, 89, 300, 20)
$KommentarInput = GUICtrlCreateInput("", -1, 110, 400, 20)
$HinzufuegenButton = GUICtrlCreateButton("Hinzufügen", 8, 136, 75, 25, $WS_GROUP)
$AbbrechenButton = GUICtrlCreateButton("Abbrechen", 88, 136, 75, 25, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_HIDE, $AddTerminGUI)
#EndRegion - AddTermin

[/autoit] [autoit][/autoit] [autoit]

#Region - Ersetzen
$ErsetzenGUI = GUICreate("", 243, 154, -1, -1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
$ErsetzenInput = GUICtrlCreateInput("", 8, 32, 225, 24)
GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
$Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_HIDE, $ErsetzenGUI)
#EndRegion - Ersetzen

[/autoit] [autoit][/autoit] [autoit]

_Logread()

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Mainform
Exit
Case $msg[0] = $KillAdress
_GUICtrlListView_DeleteItemsSelected($Adressbuch)
Case $msg[0] = $KillAllAdressC
_GUICtrlListView_DeleteAllItems($Adressbuch)
Case $msg[0] = $KillAdressC
_GUICtrlListView_DeleteItemsSelected($Adressbuch)
Case $msg[0] = $KillAllAdress
_GUICtrlListView_DeleteAllItems($Adressbuch)
Case $msg[0] = $AddAdress
GUISetState(@SW_SHOW, $AdressAddGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $AdressAddGUI
GUISetState(@SW_HIDE, $AdressAddGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $HinzufuegenButton1
$Name = GUICtrlRead($NameInput)
$Adresse1 = GUICtrlRead($Adresse1Input)
$Adresse2 = GUICtrlRead($Adresse2Input)
$Telefon = GUICtrlRead($TelefonInput)
$Handy = GUICtrlRead($HandyInput)
GUICtrlCreateListViewItem($Name & "|" & $Adresse1 & "|" & $Adresse2 & "|" & $Telefon & "|" & $Handy, $Adressbuch)
GUISetState(@SW_HIDE, $AdressAddGUI)
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $AbbrechenButton1
GUISetState(@SW_HIDE, $AdressAddGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $Adressbuch
_GUICtrlListView_SortItems($Adressbuch, GUICtrlGetState($Adressbuch))
Case $msg[0] = $Terminliste
_GUICtrlListView_SortItems($Terminliste, GUICtrlGetState($Terminliste))
Case $msg[0] = $Beenden
Exit
Case $msg[0] = $KillTerminC
_GUICtrlListView_DeleteItemsSelected($Terminliste)
Case $msg[0] = $KillAllTerminC
_GUICtrlListView_DeleteAllItems($Terminliste)
Case $msg[0] = $KillAllTermin
_GUICtrlListView_DeleteAllItems($Terminliste)
Case $msg[0] = $KillTermin
_GUICtrlListView_DeleteItemsSelected($Terminliste)
Case $msg[0] = $AddTermin
GUISetState(@SW_SHOW, $AddTerminGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $AddTerminGUI
GUISetState(@SW_HIDE, $AddTerminGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $HinzufuegenButton
$Betreff = GUICtrlRead($BetreffInput)
$Uhrzeit = GUICtrlRead($UhrzeitInput)
$Datum = GUICtrlRead($DatumInput)
$Kommentar = GUICtrlRead($KommentarInput)
GUICtrlCreateListViewItem($Betreff & "|" & $Uhrzeit & "|" & $Datum & "|" & $Kommentar, $Terminliste)
GUISetState(@SW_HIDE, $AddTerminGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $AbbrechenButton
GUISetState(@SW_HIDE, $AddTerminGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $Drucken
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$log1 = GUICtrlRead($Edit1, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log1)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab2
$log2 = GUICtrlRead($Edit2, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log2)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab3
$log3 = GUICtrlRead($Edit3, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log3)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
Case $Tab4
$log4 = GUICtrlRead($Edit4, 1)
$PrinDatei = FileWrite(@TempDir & "\HastyNotesPrint.txt", $log4)
$PrintFile = @TempDir & "\HastyNotesPrint.txt"
_FilePrint($PrintFile)
Sleep(500)
FileDelete(@TempDir & "\HastyNotesPrint.txt")
EndSwitch
Case $msg[0] = $Ersetzen
GUISetState(@SW_SHOW, $ErsetzenGUI)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $ErsetzenGUI
GUISetState(@SW_HIDE, $ErsetzenGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $ErsetzenButton
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$log1 = GUICtrlRead($Edit1)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log1, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit1, $ErrechneText)
Case $Tab2
$log2 = GUICtrlRead($Edit2)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log2, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit2, $ErrechneText)
Case $Tab3
$log3 = GUICtrlRead($Edit3)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log3, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit3, $ErrechneText)
Case $Tab4
$log4 = GUICtrlRead($Edit4)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log4, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit4, $ErrechneText)
GUISetState(@SW_HIDE, $ErsetzenGUI)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $ErsetzenAbbrechen
GUISetState(@SW_HIDE, $ErsetzenGUI)

[/autoit] [autoit][/autoit] [autoit]

Case $msg[0] = $NewTabName1
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName1", $TabNameChange)
GUICtrlSetData($Tab1, $TabNameChange)
Case $msg[0] = $NewTabName2
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName2", $TabNameChange)
GUICtrlSetData($Tab2, $TabNameChange)
Case $msg[0] = $NewTabName3
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName3", $TabNameChange)
GUICtrlSetData($Tab3, $TabNameChange)
Case $msg[0] = $NewTabName4
$TabNameChange = InputBox("HastyNotes", "Bitte neuen Namen eingeben:")
IniWrite(@ScriptDir & "\Logs\Settings.ini", "TabNamen", "TabName4", $TabNameChange)
GUICtrlSetData($Tab4, $TabNameChange)
Case $msg[0] = $Textlaengeentfernen
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, -1)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, -1)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, -1)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, -1)
EndSwitch
Case $msg[0] = $Textlaengesetzen
$textlaengemax = InputBox("HastyNotes", "Bitte maximale Zeichenlänge eingeben:")
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
_GUICtrlEdit_SetLimitText($Edit1, $textlaengemax)
Case $Tab2
_GUICtrlEdit_SetLimitText($Edit2, $textlaengemax)
Case $Tab3
_GUICtrlEdit_SetLimitText($Edit3, $textlaengemax)
Case $Tab4
_GUICtrlEdit_SetLimitText($Edit4, $textlaengemax)
EndSwitch
Case $msg[0] = $TabsLoesen
_GUICtrlEdit_SetReadOnly($Edit1, False)
_GUICtrlEdit_SetReadOnly($Edit2, False)
_GUICtrlEdit_SetReadOnly($Edit3, False)
_GUICtrlEdit_SetReadOnly($Edit4, False)
Case $msg[0] = $TabsFestsetzen
_GUICtrlEdit_SetReadOnly($Edit1, True)
_GUICtrlEdit_SetReadOnly($Edit2, True)
_GUICtrlEdit_SetReadOnly($Edit3, True)
_GUICtrlEdit_SetReadOnly($Edit4, True)
Case $msg[0] = $TextLoesen
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, False)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, False)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, False)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, False)
EndSwitch
Case $msg[0] = $TextFestsetzen
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
_GUICtrlEdit_SetReadOnly($Edit1, True)
Case $Tab2
_GUICtrlEdit_SetReadOnly($Edit2, True)
Case $Tab3
_GUICtrlEdit_SetReadOnly($Edit3, True)
Case $Tab4
_GUICtrlEdit_SetReadOnly($Edit4, True)
EndSwitch
Case $msg[0] = $ZeichenLine
$welcheline = InputBox("HastyNotes", "Bitte Zeilen Nr eingeben:" & @CRLF & "Achtung: Oberste Zeile ist 0")
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit1, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab2
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit2, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab3
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit3, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
Case $Tab4
$Zeilenlaenge = _GUICtrlEdit_LineLength($Edit4, $welcheline)
MsgBox(0, "HastyNotes", "Die Zeile ist " & $Zeilenlaenge & " Zeichen lang.")
EndSwitch
Case $msg[0] = $MarkAll
Allesmarkieren()
Case $msg[0] = $ZeichenAll
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$paste1 = GUICtrlRead($Edit1, 1)
$laenge = StringLen($paste1)
MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab2
$paste2 = GUICtrlRead($Edit2, 1)
$laenge = StringLen($paste2)
MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab3
$paste3 = GUICtrlRead($Edit3, 1)
$laenge = StringLen($paste3)
MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
Case $Tab4
$paste4 = GUICtrlRead($Edit4, 1)
$laenge = StringLen($paste1)
MsgBox(0, "Hasty Notes", "Der Text des aktuellen Tab ist " & $laenge & " Zeichen lang.")
EndSwitch
Case $msg[0] = $Laden
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead($ladedateipfad)
GUICtrlSetData($Edit1, $ladedateipfad2)
Case $Tab2
$ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead($ladedateipfad)
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab3
$ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead($ladedateipfad)
GUICtrlSetData($Edit2, $ladedateipfad2)
Case $Tab4
$ladedateipfad = FileOpenDialog("Bitte Datei auswählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
$ladedateipfad2 = FileRead($ladedateipfad)
GUICtrlSetData($Edit2, $ladedateipfad2)
EndSwitch
Case $msg[0] = $SpeichernInDatei
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$savedatei = GUICtrlRead($Edit1, 1)
$savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists($savedateipfad) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen($savedateipfad, 2)
FileWrite($savedateipfad, $savedatei)
FileClose($savedateipfad)
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite($savedateipfad & ".txt", $savedatei)
FileClose($savedateipfad & ".txt")
EndIf
Case $msg[0] = $Tab2
$savedatei = GUICtrlRead($Edit2, 1)
$savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists($savedateipfad) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen($savedateipfad, 2)
FileWrite($savedateipfad, $savedatei)
FileClose($savedateipfad)
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite($savedateipfad & ".txt", $savedatei)
FileClose($savedateipfad & ".txt")
EndIf
Case $msg[0] = $Tab3
$savedatei = GUICtrlRead($Edit3, 1)
$savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists($savedateipfad) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen($savedateipfad, 2)
FileWrite($savedateipfad, $savedatei)
FileClose($savedateipfad)
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite($savedateipfad & ".txt", $savedatei)
FileClose($savedateipfad & ".txt")
EndIf
Case $msg[0] = $Tab4
$savedatei = GUICtrlRead($Edit4, 1)
$savedateipfad = FileSaveDialog("Bitte Datei Namen wählen:", $MyDocsFolder, "Textdatein (*.txt)", 2)
If FileExists($savedateipfad) Then
$antwortsave = MsgBox(4, "HastyNotes", "Datei bereits vorhanden." & @CRLF & "Überspeichern?")
If $antwortsave = 6 Then
FileOpen($savedateipfad, 2)
FileWrite($savedateipfad, $savedatei)
FileClose($savedateipfad)
ElseIf $antwortsave = 7 Then
EndIf
Else
FileWrite($savedateipfad & ".txt", $savedatei)
FileClose($savedateipfad & ".txt")
EndIf
EndSwitch
Case $msg[0] = $SpeichernInTab
$paste1 = GUICtrlRead($Edit1, 1)
FileOpen(@ScriptDir & "\Logs\" & $log1, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log1, $paste1)
FileClose(@ScriptDir & "\Logs\" & $log1)

[/autoit] [autoit][/autoit] [autoit]

$paste2 = GUICtrlRead($Edit2, 1)
FileOpen(@ScriptDir & "\Logs\" & $log2, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log2, $paste2)
FileClose(@ScriptDir & "\Logs\" & $log1)

[/autoit] [autoit][/autoit] [autoit]

$paste3 = GUICtrlRead($Edit3, 1)
FileOpen(@ScriptDir & "\Logs\" & $log3, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log3, $paste3)
FileClose(@ScriptDir & "\Logs\" & $log3)

[/autoit] [autoit][/autoit] [autoit]

$paste4 = GUICtrlRead($Edit4, 1)
FileOpen(@ScriptDir & "\Logs\" & $log4, 2)
Sleep(100)
FileWrite(@ScriptDir & "\Logs\" & $log4, $paste4)
FileClose(@ScriptDir & "\Logs\" & $log4)

[/autoit] [autoit][/autoit] [autoit]

$logtermlines = _GUICtrlListView_GetItemCount($Terminliste) - 1
$loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 2)
If $loadterm <> -1 Then
For $i = 0 To $logtermlines
$loadtermzeile = _GUICtrlListView_GetItemTextString($Terminliste, $i)
FileWriteLine(@ScriptDir & "\Logs\" & $logterm, $loadtermzeile)
Next
FileClose(@ScriptDir & "\Logs\" & $logterm)
EndIf

[/autoit] [autoit][/autoit] [autoit]

$logadresslines = _GUICtrlListView_GetItemCount($Adressbuch) - 1
$loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 2)
If $loadadress <> -1 Then
For $i2 = 0 To $logadresslines
$logadresszeile = _GUICtrlListView_GetItemTextString($Adressbuch, $i2)
FileWriteLine(@ScriptDir & "\Logs\" & $logadress, $logadresszeile)
Next
FileClose(@ScriptDir & "\Logs\" & $logadress)
EndIf
Case $msg[0] = $KopierenAll
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
$saveall = GUICtrlRead($Edit1)
ClipPut($saveall)
Case $Tab2
$saveall = GUICtrlRead($Edit2)
ClipPut($saveall)
Case $Tab3
$saveall = GUICtrlRead($Edit3)
ClipPut($saveall)
Case $Tab4
$saveall = GUICtrlRead($Edit4)
ClipPut($saveall)
EndSwitch
Case $msg[0] = $KopierenMark
Send("^c")
Case $msg[0] = $Backmake
Send("^z")
Case $msg[0] = $DeleteMark
Send("{DEL}")
Case $msg[0] = $Ausschneiden
Send("^x")
Case $msg[0] = $Update
InetGet("http://sen.pytalhost.de/HastyNotes/Update.txt", @TempDir & "\Update.txt", 1, 0)
$UpdateFile = FileOpen(@TempDir & "\Update.txt", 0)
$UpdateLine = FileReadLine($UpdateFile, 1)
If $UpdateLine = $Version Then
FileClose($UpdateFile)
FileDelete(@TempDir & "\Update.txt")
MsgBox(64, "Update HastyNotes", "Sie benutzen die" & @CRLF & "Aktuelle Version " & $Version)
Else
MsgBox(0, "Update HastyNotes", "Eine neue Version von HastyNotes ist verfügbar." & @CRLF & "Sie befindet sich nun in ihrem HastyNotes Ordner")
InetGet("http://sen.pytalhost.de/HastyNotes/HastyNotes " & $UpdateLine & ".zip", "HastyNotes " & $UpdateLine & ".zip", 1, 0)
FileClose($UpdateLine)
FileDelete(@TempDir & "\Update.txt")
EndIf
Case $msg[0] = $DatumTime
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
GUICtrlSetState($Edit1, $GUI_FOCUS)
Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
Case $Tab2
GUICtrlSetState($Edit2, $GUI_FOCUS)
Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
Case $Tab3
GUICtrlSetState($Edit3, $GUI_FOCUS)
Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
Case $Tab4
GUICtrlSetState($Edit4, $GUI_FOCUS)
Send(@HOUR & ":" & @MIN & "Uhr - " & @MDAY & "." & @MON & ":" & @YEAR)
EndSwitch
Case $msg[0] = $DeleteAll
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
GUICtrlSetData($Edit1, "")
Case $Tab2
GUICtrlSetData($Edit2, "")
Case $Tab3
GUICtrlSetData($Edit3, "")
Case $Tab4
GUICtrlSetData($Edit4, "")
EndSwitch
Case $msg[0] = $Einfuegen
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
GUICtrlSetState($Edit1, $GUI_FOCUS)
Send("^v")
Case $Tab2
GUICtrlSetState($Edit2, $GUI_FOCUS)
Send("^v")
Case $Tab3
GUICtrlSetState($Edit3, $GUI_FOCUS)
Send("^v")
Case $Tab4
GUICtrlSetState($Edit4, $GUI_FOCUS)
Send("^v")
EndSwitch
Case $msg[0] = $UberHastyNotes
MsgBox(64, "Über HastyNotes", "Version: " & $Version & @CRLF & "© by Sen // Christopher Klay")
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Logread()
If FileExists(@ScriptDir & "\Logs\" & $log1) Then
Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log1, 0)
Local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit1, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log1)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log2) Then
Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log2, 0)
Local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit2, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log2)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log3) Then
Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log3, 0)
Local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit3, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log3)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $log4) Then
Local $readfile = FileOpen(@ScriptDir & "\Logs\" & $log4, 0)
Local $readfile2 = FileRead($readfile)
GUICtrlSetData($Edit4, $readfile2)
FileClose(@ScriptDir & "\Logs\" & $log4)
EndIf

[/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logterm) Then
Local $loadterm = FileOpen(@ScriptDir & "\Logs\" & $logterm, 0)
If $loadterm <> -1 Then
_GUICtrlListView_BeginUpdate($Terminliste)
While True
$loadtermzeile = FileReadLine($loadterm)
If @error Then ExitLoop
GUICtrlCreateListViewItem($loadtermzeile, $Terminliste)
WEnd
_GUICtrlListView_EndUpdate($Terminliste)
FileClose(@ScriptDir & "\Logs\" & $logterm)
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If FileExists(@ScriptDir & "\Logs\" & $logadress) Then
Local $loadadress = FileOpen(@ScriptDir & "\Logs\" & $logadress, 0)
If $loadadress <> -1 Then
_GUICtrlListView_BeginUpdate($Adressbuch)
While True
$loadadresszeile = FileReadLine($loadadress)
If @error Then ExitLoop
GUICtrlCreateListViewItem($loadadresszeile, $Adressbuch)
WEnd
_GUICtrlListView_EndUpdate($Adressbuch)
FileClose(@ScriptDir & "\Logs\" & $logadress)
EndIf
EndIf
EndFunc ;==>_Logread

[/autoit] [autoit][/autoit] [autoit]

Func Allesmarkieren()
Switch GUICtrlRead($UberTab, 1)
Case $Tab1
_GUICtrlEdit_SetSel($Edit1, 0, -1)
Case $Tab2
_GUICtrlEdit_SetSel($Edit2, 0, -1)
Case $Tab3
_GUICtrlEdit_SetSel($Edit3, 0, -1)
Case $Tab4
_GUICtrlEdit_SetSel($Edit4, 0, -1)
EndSwitch
EndFunc ;==>Allesmarkieren

[/autoit]

Ich hätte da noch ne Frage:
Warum schreibst du das Ganze nicht im OnEventMode? Wäre viel übersichtlicher.

Edit: Irgendwie funktioniert der Spoiler nicht

Edit Oscar: ~~Anzeige korrigiert (Spoiler + AutoIt-TAG)~~ Eh? Das funktioniert nicht?! Auch mit Haken bei "Darstellung von BBCodes aktivieren" nicht.

Edit: Öhm, jetzt funktioniert es wieder. Naja thx

Sen

Danke funktioniert jetzt

Aber wegen der Anordnung etc,
die is mir heilig

Zitat

P.S.: Damit die Formatierung wieder stimmt, lass mal Tidy drüberlaufen. Dann steigt man wenigstens wieder etwas durch.

Tidy?

Und zu dem "Gui's am Anfang erstellen lassen" etc,
is doch nicht notwendig oder?

Weil immo steig ich durchs Script Prima durch xD

Nestos

Wenn man die GUIs am Anfang erstellt, ist es schneller und auch übersichtlicher. So kannst du zB auch in anderen Funktionen einfach das Fenster aufrufen, wenn du es brauchst. Außerdem kann man so viel leichter etwas in den GUIs korregieren oder hinzufügen und muss nicht lange in der While Schleife suchen.

**Greenhorn**

Moin,

keine Ahnung ob Du schon die Lösung gefunden hast, bin zu faul zum Lesen ...

s. Anhang

Gruß
Greenhorn