Beiträge von Sen

Sen

Habs jetzt 99%tig fertig. (Die Buttons oben inner Leiste haben noch keine Funktion.)
Läuft 1a..
Allerdings, ehrlich gesagt gefällt mir die "Non-Custom-Gui" echt besser =/

Mal Vergleich und Code:
[Blockierte Grafik: http://img-up.net/thumbs/VergleichTcPNZMW.jpg]
(Links Custom, rechts normal.)

Spoiler anzeigen

[autoit]

#Region Main-GUI
$MainGUI = GUICreate("HastyNotes " & $Version, 640, 480, -1, -1, $WS_POPUP)
GUISetBkColor(0xFFFFFF)

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

$TopLeisteStart = GUICtrlCreatePic("Images/TopLineStart.jpg", 0, 0, 7, 23, -1, $GUI_WS_EX_PARENTDRAG)
$TopLeisteMiddle = GUICtrlCreatePic("Images/TopLineMiddle.jpg", 7, 0, 589, 23, -1, $GUI_WS_EX_PARENTDRAG)
$TopLeisteEnd = GUICtrlCreatePic("Images/TopLineEnd.jpg", 633, 0, 7, 23, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetState(-1, $GUI_DISABLE)
$TopButton1 = GUICtrlCreatePic("Images/Mini.jpg", 589, 0, 22, 23)
$TopButton2 = GUICtrlCreatePic("Images/Close.jpg", 611, 0, 22, 23)
$BottomLeiste = GUICtrlCreatePic("Images/BottomLine.jpg", 0, 455, 640, 25)
GUIRegisterMsg($WM_MOVE, '_WM_MOVE')

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

; Main-Tab
$UberTab = GUICtrlCreateTab(0, 46, 640, 410, $TCS_BOTTOM, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")

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

; Tab 1
$Tab1 = GUICtrlCreateTabItem($TabName1)
$Edit1 = GUICtrlCreateEdit("", 7, 53, 626, 370)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")

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

; Tab 2
$Tab2 = GUICtrlCreateTabItem($TabName2)
$Edit2 = GUICtrlCreateEdit("", 7, 53, 626, 370)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")

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

; Tab 3
$Tab3 = GUICtrlCreateTabItem($TabName3)
$Edit3 = GUICtrlCreateEdit("", 7, 53, 626, 370)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")

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

; Tab 4
$Tab4 = GUICtrlCreateTabItem($TabName4)
$Edit4 = GUICtrlCreateEdit("", 7, 53, 626, 370)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 400, 0, "Verdana")

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

; Tab 5 - Kalender
$Tab5 = GUICtrlCreateTabItem("Kalender")
$Kalender = GUICtrlCreateMonthCal(@YEAR & "/" & @MON & "/" & @MDAY, 7, 53, 626, 370)

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

; Tab 6 - Termine
$Tab6 = GUICtrlCreateTabItem("Termine")
$Terminliste = GUICtrlCreateListView("Betreff|Uhrzeit|Datum|Kommentar", 7, 53, 626, 370)
$ContextTermin = GUICtrlCreateContextMenu($Terminliste)
$KillTerminC = GUICtrlCreateMenuItem("Markierten Termin entfernen", $ContextTermin)
$KillAllTerminC = GUICtrlCreateMenuItem("Alle Termine entfernen", $ContextTermin)

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

; Tab 7 - Adressbuch
$Tab7 = GUICtrlCreateTabItem("Adressbuch")
$Adressbuch = GUICtrlCreateListView("Name|Adresse1|Adresse2|TelefonNr|HandyNr", 7, 53, 626, 370)
$ContextAdress = GUICtrlCreateContextMenu($Adressbuch)
$KillAdressC = GUICtrlCreateMenuItem("Markierten Kontakt entfernen", $ContextAdress)
$KillAllAdressC = GUICtrlCreateMenuItem("Alle Kontakte entfernen", $ContextAdress)

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

; Tab 8 - Browser
$Tab8 = GUICtrlCreateTabItem("Browser")
$InputURL = GUICtrlCreateInput("", 7, 53, 626, 20)
$BrowserWindow = GUICtrlCreateObj($Browser, 7, 78, 626, 345)
_IENavigate($Browser, "http://google.de/")

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

Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)
_GUICtrlListView_SetExtendedListViewStyle($Terminliste, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Terminliste)
_GUICtrlListView_SetExtendedListViewStyle($Adressbuch, $iExListViewStyle)
_GUICtrlListView_RegisterSortCallBack($Adressbuch)
#EndRegion Main-GUI

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

#Region Menu-GUI
$aMainPos = WinGetPos($MainGUI)
$MenuGUI = GUICreate('', 640, 23, $aMainPos[0], $aMainPos[1] + 23, $WS_POPUP, Default, $MainGUI)
$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]

$Optionen = GUICtrlCreateMenu("Optionen")
$TransMain = GUICtrlCreateMenu("Transparents", $Optionen)
$TransON = GUICtrlCreateMenuItem("Transparent setzen", $TransMain)
$TransOFF = GUICtrlCreateMenuItem("Transparents aufheben", $TransMain)
GUICtrlSetState($TransOFF, $GUI_DISABLE)

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

$Hilfe = GUICtrlCreateMenu("Hilfe")
$Funktionen = GUICtrlCreateMenuItem("Funktionen", $Hilfe)
$UberHastyNotes = GUICtrlCreateMenuItem("Über", $Hilfe)
$Update = GUICtrlCreateMenuItem("Update", $Hilfe)
#EndRegion Menu-GUI

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

#Region - StartFunc/GUI
GUISetState(@SW_SHOW, $MainGUI)
GUISetState(@SW_SHOW, $MenuGUI)

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

_Logread()
#EndRegion - StartFunc/GUI

[/autoit]

Sen

Keiner eine Idee?

Bin zwar erst wieder ein paar Stunden wach,
aber immer noch keine Brauchbare Lösung gefunden.

Die Idee von oben geht zwar aber nja,
bei 8-9 Context Menü's wirds dann deutlich zu unübersichtlich x.x

Sen

Müsste eigentlich leichter gehen.
Bin der Meinung sowas gabs auch schonmal..
Aber ich hab 0 Plan wo ich das gesehen hab.

Google zeigt mir ja immer nur den Beitrag hier lol

Sen

Hab jetzt alles ausprobiert..
sogar ne list view zum schluss XD

Ich hab einfach kp wie du das machen willst o_O

Sen

Du meinst mit einer Toolbar/Popup Mischung?
Ich verstehe ca. was du meinst, hab aber grad nicht den Kopf dazu.

Hast du zufällig grad ein Beispiel dafür rumliegen?

Sen

Ich wollte für HastyNotes ein richtiges Design basteln,
so das es auf allen Rechnern ziemlich den gleichen Stil hat.

Design geht soweit auch.

Problem: Wenn ich jetzt mit "GUICtrlCreateMenu" EIn Menü
einfüge verschiebt sich alles. Ist es nicht möglich diese Menü Leiste weiter runter zu setzen?

Script+Bilder: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Design wird bitte NICHT weiter verwendet.

Sen

HastyNotes 3.1 fertig!

Download/Script siehe erster Post.

Sen

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

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

#Region GUI
$Form1 = GUICreate("Form1", 200, 80, -1, -1, $WS_POPUP)
$Button1 = GUICtrlCreateButton("Hallo!", 0, 0, 100, 40)
$Button2 = GUICtrlCreateButton("Bye!", 100, 0, 100, 40)
$Button3 = GUICtrlCreateButton("Fensterschließen!", 0, 40, 200, 40)
GUISetState(@SW_SHOW)
#EndRegion GUI

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0, "Ich bin Button1!", "Hallo.")
Case $Button2
MsgBox(0, "Ich bin Button2!", "Bye!")
Case $Button3
Exit
EndSwitch
WEnd

[/autoit]

Mal ein Beispiel zu Case's

Sen

Case's sind eigentlich EXTREM einfach.

Du hast oben im GUI Teil ja deine Buttons etc z.b.

[autoit]

$Test1 = GUICtrlCreateButton("Hallo", 0, 0, 200, 100)
$Test2 = GUICtrlCreateButton("Bye!", 200, 0, 200, 100)

[/autoit]

Somit brauchst du bei den Cases nurnoch eintragen:

[autoit]

Case $Test1
Ich bin Script und starte wenn man Hallo klickt!
Case $Test2
Und ich wirke wenn man auf Bye klickt!

[/autoit]

Nicht zu danken

Sen

Spoiler anzeigen

[autoit]

;---------------------------------------------------------------------------—
; Auto Starter
; By ScripterDrîzzt
;---------------------------------------------------------------------------—
; CaseCoded By Sen
;---------------------------------------------------------------------------—

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

#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <INet.au3>

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

Global $selloadfilelang = "PFAD = Wähle Datei zum Laden"
Global $IniName = "-Pfade.ini"

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

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

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

#Region GUI
GUISetOnEvent($GUI_EVENT_CLOSE, "_GUIClose")

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

GUICreate("Auto Starter", 300, 360)
; 1 Pfad
GUICtrlCreateLabel("Made by ScripterDrîzzt from ", 50, 10)
GUICtrlCreateLabel("www.autoit.de", 190, 10)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("1. Pfad = ", 10, 30)
GUICtrlSetColor(-1, 0xFF0000)
$run1 = GUICtrlCreateInput("", 60, 27, 160, 20)
$runbut1a = GUICtrlCreateButton("...", 225, 27, 20, 20)
$runbut1b = GUICtrlCreateButton("Run", 250, 27, 30, 20)
; 2 Pfad
GUICtrlCreateLabel("2. Pfad = ", 10, 60)
GUICtrlSetColor(-1, 0xFF0000)
$run2 = GUICtrlCreateInput("", 60, 57, 160, 20)
$runbut2a = GUICtrlCreateButton("...", 225, 57, 20, 20)
$runbut2b = GUICtrlCreateButton("Run", 250, 57, 30, 20)
;3 Pfad
GUICtrlCreateLabel("3. Pfad = ", 10, 90)
GUICtrlSetColor(-1, 0xFF0000)
$run3 = GUICtrlCreateInput("", 60, 87, 160, 20)
$runbut3a = GUICtrlCreateButton("...", 225, 87, 20, 20)
$runbut3b = GUICtrlCreateButton("Run", 250, 87, 30, 20)
;4 Pfad
GUICtrlCreateLabel("4. Pfad = ", 10, 120)
GUICtrlSetColor(-1, 0xFF0000)
$run4 = GUICtrlCreateInput("", 60, 117, 160, 20)
$runbut4a = GUICtrlCreateButton("...", 225, 117, 20, 20)
$runbut4b = GUICtrlCreateButton("Run", 250, 117, 30, 20)
;5 Pfad
GUICtrlCreateLabel("5. Pfad = ", 10, 150)
GUICtrlSetColor(-1, 0xFF0000)
$run5 = GUICtrlCreateInput("", 60, 147, 160, 20)
$runbut5a = GUICtrlCreateButton("...", 225, 147, 20, 20)
$runbut5b = GUICtrlCreateButton("Run", 250, 147, 30, 20)
;6 Pfad
GUICtrlCreateLabel("6. Pfad = ", 10, 180)
GUICtrlSetColor(-1, 0xFF0000)
$run6 = GUICtrlCreateInput("", 60, 177, 160, 20)
$runbut6a = GUICtrlCreateButton("...", 225, 177, 20, 20)
$runbut6b = GUICtrlCreateButton("Run", 250, 177, 30, 20)
;7 Pfad
GUICtrlCreateLabel("7. Pfad = ", 10, 210)
GUICtrlSetColor(-1, 0xFF0000)
$run7 = GUICtrlCreateInput("", 60, 207, 160, 20)
$runbut7a = GUICtrlCreateButton("...", 225, 207, 20, 20)
$runbut7b = GUICtrlCreateButton("Run", 250, 207, 30, 20)
;8 Pfad
GUICtrlCreateLabel("8. Pfad = ", 10, 240)
GUICtrlSetColor(-1, 0xFF0000)
$run8 = GUICtrlCreateInput("", 60, 237, 160, 20)
$runbut8a = GUICtrlCreateButton("...", 225, 237, 20, 20)
$runbut8b = GUICtrlCreateButton("Run", 250, 237, 30, 20)
;9 Pfad
GUICtrlCreateLabel("9. Pfad = ", 10, 270)
GUICtrlSetColor(-1, 0xFF0000)
$run9 = GUICtrlCreateInput("", 60, 267, 160, 20)
$runbut9a = GUICtrlCreateButton("...", 225, 267, 20, 20)
$runbut9b = GUICtrlCreateButton("Run", 250, 267, 30, 20)
;10 Pfad
GUICtrlCreateLabel("10. Pfad = ", 8, 300)
GUICtrlSetColor(-1, 0xFF0000)
$run10 = GUICtrlCreateInput("", 60, 297, 160, 20)
$runbut10a = GUICtrlCreateButton("...", 225, 297, 20, 20)
$runbut10b = GUICtrlCreateButton("Run", 250, 297, 30, 20)
;Buttons:
$savebut = GUICtrlCreateButton("Speichern", 0, 330, 150, 30)
$loadbut = GUICtrlCreateButton("Laden", 150, 330, 150, 30)
;Group:
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", 5, 0, 290, 325)
$TRAY_Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_GUIClose")
TraySetState(1)

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

GUISetState(@SW_SHOW)
#EndRegion GUI

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $loadbut
GUICtrlSetData($run1, IniRead(@ScriptFullPath & $IniName, "Pfad 1", "1", 1))
GUICtrlSetData($run2, IniRead(@ScriptFullPath & $IniName, "Pfad 2", "2", 1))
GUICtrlSetData($run3, IniRead(@ScriptFullPath & $IniName, "Pfad 3", "3", 1))
GUICtrlSetData($run4, IniRead(@ScriptFullPath & $IniName, "Pfad 4", "4", 1))
GUICtrlSetData($run5, IniRead(@ScriptFullPath & $IniName, "Pfad 5", "5", 1))
GUICtrlSetData($run6, IniRead(@ScriptFullPath & $IniName, "Pfad 6", "6", 1))
GUICtrlSetData($run7, IniRead(@ScriptFullPath & $IniName, "Pfad 7", "7", 1))
GUICtrlSetData($run8, IniRead(@ScriptFullPath & $IniName, "Pfad 8", "8", 1))
GUICtrlSetData($run9, IniRead(@ScriptFullPath & $IniName, "Pfad 9", "9", 1))
GUICtrlSetData($run10, IniRead(@ScriptFullPath & $IniName, "Pfad 10", "10", 1))
If @error = 1 Then
MsgBox(4096, "", "Laden fehlgeschlagen.")
EndIf
If Not @error Then
MsgBox(4096, "Auto Starter", "Einstellungen geladen")
EndIf
Case $savebut
IniWrite(@ScriptFullPath & $IniName, "Pfad 1", "1", GUICtrlRead($run1))
IniWrite(@ScriptFullPath & $IniName, "Pfad 2", "2", GUICtrlRead($run2))
IniWrite(@ScriptFullPath & $IniName, "Pfad 3", "3", GUICtrlRead($run3))
IniWrite(@ScriptFullPath & $IniName, "Pfad 4", "4", GUICtrlRead($run4))
IniWrite(@ScriptFullPath & $IniName, "Pfad 5", "5", GUICtrlRead($run5))
IniWrite(@ScriptFullPath & $IniName, "Pfad 6", "6", GUICtrlRead($run6))
IniWrite(@ScriptFullPath & $IniName, "Pfad 7", "7", GUICtrlRead($run7))
IniWrite(@ScriptFullPath & $IniName, "Pfad 8", "8", GUICtrlRead($run8))
IniWrite(@ScriptFullPath & $IniName, "Pfad 9", "9", GUICtrlRead($run9))
IniWrite(@ScriptFullPath & $IniName, "Pfad 10", "10", GUICtrlRead($run10))
If @error = 1 Then
MsgBox(4096, "", "Speichern fehlgeschlagen.")
EndIf
If Not @error Then
MsgBox(4096, "Auto Starter", "Einstellungen gespeichert")
EndIf

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

; "..." Buttons:
Case $runbut1a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run1, $file)
Case $runbut2a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run2, $file)
Case $runbut3a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run3, $file)
Case $runbut4a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run4, $file)
Case $runbut5a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run5, $file)
Case $runbut6a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run6, $file)
Case $runbut7a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run7, $file)
Case $runbut8a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run8, $file)
Case $runbut9a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run9, $file)
Case $runbut10a
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run10, $file)

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

; "Run" Buttons:
Case $runbut1b
ShellExecute(GUICtrlRead($run1))
Case $runbut2b
ShellExecute(GUICtrlRead($run2))
Case $runbut3b
ShellExecute(GUICtrlRead($run3))
Case $runbut4b
ShellExecute(GUICtrlRead($run4))
Case $runbut5b
ShellExecute(GUICtrlRead($run5))
Case $runbut6b
ShellExecute(GUICtrlRead($run6))
Case $runbut7b
ShellExecute(GUICtrlRead($run7))
Case $runbut8b
ShellExecute(GUICtrlRead($run8))
Case $runbut9b
ShellExecute(GUICtrlRead($run9))
Case $runbut10b
ShellExecute(GUICtrlRead($run10))
EndSwitch
WEnd

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

Func _GUIClose()
Exit
EndFunc ;==>_GUIClose

[/autoit]

Sollte 1a funktionieren,
habs aber auf Case's gecodet weils so einfach übersichtlicher ist

Sen

Auto Starter 100% fixed

[autoit]

#include-once
#include <GUIConstants.au3>
#include <ButtonConstants.au3>
#include <INet.au3>

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

Global $selloadfilelang = "PFAD = Wähle Datei zum Laden"

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

Opt("GUIOnEventMode", 1)
Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)

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

GUICreate("Auto Starter", 300, 360)
; 1 Pfad
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlCreateLabel("Made by ScripterDrîzzt from ", 50, 10)
GUICtrlCreateLabel("www.autoit.de", 190, 10)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateLabel("1. Pfad = ", 10, 30)
GUICtrlSetColor(-1, 0xFF0000)
$run = GUICtrlCreateInput("", 60, 27, 160, 20)
GUICtrlCreateButton("...", 225, 27, 20, 20)
GUICtrlSetOnEvent(-1, "_open")
GUICtrlCreateButton("Run", 250, 27, 30, 20)
GUICtrlSetOnEvent(-1, "_run")
; 2 Pfad
GUICtrlCreateLabel("2. Pfad = ", 10, 60)
GUICtrlSetColor(-1, 0xFF0000)
$run2 = GUICtrlCreateInput("", 60, 57, 160, 20)
GUICtrlCreateButton("...", 225, 57, 20, 20)
GUICtrlSetOnEvent(-1, "_open2")
GUICtrlCreateButton("Run", 250, 57, 30, 20)
GUICtrlSetOnEvent(-1, "_run2")
;3 Pfad
GUICtrlCreateLabel("3. Pfad = ", 10, 90)
GUICtrlSetColor(-1, 0xFF0000)
$run3 = GUICtrlCreateInput("", 60, 87, 160, 20)
GUICtrlCreateButton("...", 225, 87, 20, 20)
GUICtrlSetOnEvent(-1, "_open3")
GUICtrlCreateButton("Run", 250, 87, 30, 20)
GUICtrlSetOnEvent(-1, "_run3")
;4 Pfad
GUICtrlCreateLabel("4. Pfad = ", 10, 120)
GUICtrlSetColor(-1, 0xFF0000)
$run4 = GUICtrlCreateInput("", 60, 117, 160, 20)
GUICtrlCreateButton("...", 225, 117, 20, 20)
GUICtrlSetOnEvent(-1, "_open4")
GUICtrlCreateButton("Run", 250, 117, 30, 20)
GUICtrlSetOnEvent(-1, "_run4")
;5 Pfad
GUICtrlCreateLabel("5. Pfad = ", 10, 150)
GUICtrlSetColor(-1, 0xFF0000)
$run5 = GUICtrlCreateInput("", 60, 147, 160, 20)
GUICtrlCreateButton("...", 225, 147, 20, 20)
GUICtrlSetOnEvent(-1, "_open5")
GUICtrlCreateButton("Run", 250, 147, 30, 20)
GUICtrlSetOnEvent(-1, "_run5")
;6 Pfad
GUICtrlCreateLabel("6. Pfad = ", 10, 180)
GUICtrlSetColor(-1, 0xFF0000)
$run6 = GUICtrlCreateInput("", 60, 177, 160, 20)
GUICtrlCreateButton("...", 225, 177, 20, 20)
GUICtrlSetOnEvent(-1, "_open6")
GUICtrlCreateButton("Run", 250, 177, 30, 20)
GUICtrlSetOnEvent(-1, "_run6")
;7 Pfad
GUICtrlCreateLabel("7. Pfad = ", 10, 210)
GUICtrlSetColor(-1, 0xFF0000)
$run7 = GUICtrlCreateInput("", 60, 207, 160, 20)
GUICtrlCreateButton("...", 225, 207, 20, 20)
GUICtrlSetOnEvent(-1, "_open7")
GUICtrlCreateButton("Run", 250, 207, 30, 20)
GUICtrlSetOnEvent(-1, "_run7")
;8 Pfad
GUICtrlCreateLabel("8. Pfad = ", 10, 240)
GUICtrlSetColor(-1, 0xFF0000)
$run8 = GUICtrlCreateInput("", 60, 237, 160, 20)
GUICtrlCreateButton("...", 225, 237, 20, 20)
GUICtrlSetOnEvent(-1, "_open8")
GUICtrlCreateButton("Run", 250, 237, 30, 20)
GUICtrlSetOnEvent(-1, "_run8")
;9 Pfad
GUICtrlCreateLabel("9. Pfad = ", 10, 270)
GUICtrlSetColor(-1, 0xFF0000)
$run9 = GUICtrlCreateInput("", 60, 267, 160, 20)
GUICtrlCreateButton("...", 225, 267, 20, 20)
GUICtrlSetOnEvent(-1, "_open9")
GUICtrlCreateButton("Run", 250, 267, 30, 20)
GUICtrlSetOnEvent(-1, "_run9")
;10 Pfad
GUICtrlCreateLabel("10. Pfad = ", 8, 300)
GUICtrlSetColor(-1, 0xFF0000)
$run10 = GUICtrlCreateInput("", 60, 297, 160, 20)
GUICtrlCreateButton("...", 225, 297, 20, 20)
GUICtrlSetOnEvent(-1, "_open10")
GUICtrlCreateButton("Run", 250, 297, 30, 20)
GUICtrlSetOnEvent(-1, "_run10")
;Speicher Button
GUICtrlCreateButton("Speichern", 0, 330, 150, 30)
GUICtrlSetOnEvent(-1, "_save")
;lade Button
GUICtrlCreateButton("Laden", 150, 330, 150, 30)
GUICtrlSetOnEvent(-1, "_load")
;autoit BUtton
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", 5, 0, 290, 325)
$TRAY_Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_exit1")
TraySetState(1)
GUISetState(@SW_SHOW)

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

Func _load()
GUICtrlSetData($run, IniRead("Pfade.ini", "Pfad 1", "1", 1))
GUICtrlSetData($run2, IniRead("Pfade.ini", "Pfad 2", "2", 1))
GUICtrlSetData($run3, IniRead("Pfade.ini", "Pfad 3", "3", 1))
GUICtrlSetData($run4, IniRead("Pfade.ini", "Pfad 4", "4", 1))
GUICtrlSetData($run5, IniRead("Pfade.ini", "Pfad 5", "5", 1))
GUICtrlSetData($run6, IniRead("Pfade.ini", "Pfad 6", "6", 1))
GUICtrlSetData($run7, IniRead("Pfade.ini", "Pfad 7", "7", 1))
GUICtrlSetData($run8, IniRead("Pfade.ini", "Pfad 8", "8", 1))
GUICtrlSetData($run9, IniRead("Pfade.ini", "Pfad 9", "9", 1))
GUICtrlSetData($run10, IniRead("Pfade.ini", "Pfad 10", "10", 1))
If @error = 1 Then
MsgBox(4096, "", "Laden fehlgeschlagen.")
EndIf
If Not @error Then
MsgBox(4096, "Auto Starter", "Einstellungen geladen")
EndIf
EndFunc ;==>_load

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

Func _open()
$file = FileOpenDialog("1. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run, $file)
EndFunc ;==>_open

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

Func _run()
ShellExecute(GUICtrlRead($run))
EndFunc ;==>_run

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

Func _open2()
$file2 = FileOpenDialog("2. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run2, $file2)
EndFunc ;==>_open2

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

Func _run2()
ShellExecute(GUICtrlRead($run2))
EndFunc ;==>_run2

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

Func _open3()
$file3 = FileOpenDialog("3. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run3, $file3)
EndFunc ;==>_open3

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

Func _run3()
ShellExecute(GUICtrlRead($run3))
EndFunc ;==>_run3

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

Func _open4()
$file4 = FileOpenDialog("4. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run4, $file4)
EndFunc ;==>_open4

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

Func _run4()
ShellExecute(GUICtrlRead($run4))
EndFunc ;==>_run4

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

Func _open5()
$file5 = FileOpenDialog("5. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run5, $file5)
EndFunc ;==>_open5

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

Func _run5()
ShellExecute(GUICtrlRead($run5))
EndFunc ;==>_run5

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

Func _open6()
$file6 = FileOpenDialog("6. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run6, $file6)
EndFunc ;==>_open6

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

Func _run6()
ShellExecute(GUICtrlRead($run6))
EndFunc ;==>_run6

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

Func _open7()
$file7 = FileOpenDialog("7. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run7, $file7)
EndFunc ;==>_open7

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

Func _run7()
ShellExecute(GUICtrlRead($run7))
EndFunc ;==>_run7

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

Func _open8()
$file8 = FileOpenDialog("8. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run8, $file8)
EndFunc ;==>_open8

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

Func _run8()
ShellExecute(GUICtrlRead($run8))
EndFunc ;==>_run8

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

Func _open9()
$file9 = FileOpenDialog("9. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run9, $file9)
EndFunc ;==>_open9

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

Func _run9()
ShellExecute(GUICtrlRead($run9))
EndFunc ;==>_run9

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

Func _open10()
$file10 = FileOpenDialog("10. " & $selloadfilelang, @MyDocumentsDir, "Alle(*.*)", 1)
GUICtrlSetData($run10, $file10)
EndFunc ;==>_open10

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

Func _run10()
ShellExecute(GUICtrlRead($run10))
EndFunc ;==>_run10

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

Func _save()
If GUICtrlRead($run) = "" Then IniWrite("", "", "", GUICtrlRead($run))
If Not GUICtrlRead($run) = "" Then IniWrite("Pfade.ini", "Pfad 1", "1", GUICtrlRead($run))
If GUICtrlRead($run2) = "" Then IniWrite("", "", "", GUICtrlRead($run2))
If Not GUICtrlRead($run2) = "" Then IniWrite("Pfade.ini", "Pfad 2", "2", GUICtrlRead($run2))
If GUICtrlRead($run3) = "" Then IniWrite("", "", "", GUICtrlRead($run3))
If Not GUICtrlRead($run3) = "" Then IniWrite("Pfade.ini", "Pfad 3", "3", GUICtrlRead($run3))
If GUICtrlRead($run4) = "" Then IniWrite("", "", "", GUICtrlRead($run4))
If Not GUICtrlRead($run4) = "" Then IniWrite("Pfade.ini", "Pfad 4", "4", GUICtrlRead($run4))
If GUICtrlRead($run5) = "" Then IniWrite("", "", "", GUICtrlRead($run5))
If Not GUICtrlRead($run5) = "" Then IniWrite("Pfade.ini", "Pfad 5", "5", GUICtrlRead($run5))
If GUICtrlRead($run6) = "" Then IniWrite("", "", "", GUICtrlRead($run6))
If Not GUICtrlRead($run6) = "" Then IniWrite("Pfade.ini", "Pfad 6", "6", GUICtrlRead($run6))
If GUICtrlRead($run7) = "" Then IniWrite("", "", "", GUICtrlRead($run7))
If Not GUICtrlRead($run7) = "" Then IniWrite("Pfade.ini", "Pfad 7", "7", GUICtrlRead($run7))
If GUICtrlRead($run8) = "" Then IniWrite("", "", "", GUICtrlRead($run8))
If Not GUICtrlRead($run8) = "" Then IniWrite("Pfade.ini", "Pfad 8", "8", GUICtrlRead($run8))
If GUICtrlRead($run9) = "" Then IniWrite("", "", "", GUICtrlRead($run9))
If Not GUICtrlRead($run9) = "" Then IniWrite("Pfade.ini", "Pfad 9", "9", GUICtrlRead($run9))
If GUICtrlRead($run10) = "" Then IniWrite("", "", "", GUICtrlRead($run10))
If Not GUICtrlRead($run10) = "" Then IniWrite("Pfade.ini", "Pfad 10", "10", GUICtrlRead($run10))
If @error = 1 Then
MsgBox(4096, "", "Speichern fehlgeschlagen.")
EndIf
If Not @error Then
MsgBox(4096, "Auto Starter", "Einstellungen gespeichert")
EndIf
EndFunc ;==>_save

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

Func _exit1()
Exit
EndFunc ;==>_exit1

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

Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked

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

While 1
WEnd
Sleep(100)

[/autoit]

Wo der Fehler war?
Nicht im Speichern, sondern im Laden.

Du hast immer nur Überprüft ob ein Ini Eintrag vorhanden ist, daher die "1" In der GUI beim laden.

Statt:

[autoit]

GUICtrlSetData($run10, IniRead("Pfade.ini", "Pfad 10", "", 1))

[/autoit]

Einfach:

[autoit]

GUICtrlSetData($run10, IniRead("Pfade.ini", "Pfad 10", "10", 1))

[/autoit]

Sen

1. Welche der beiden Konsolen ist Zukunftssicher?
-> Eindeutig die Xbox 360

2. Welche der beiden Konsolen ist von der Hardware besser ausgerüstet? - Wobei ich mir denke, dass PS3 von der Hardware her weiter vorne ist.
-> Wenn du viel unnützen Kram und schwächere Bild Quali willst dann die Ps3.

3. Wie sieht es mit den Speielen aus?
-> Xbox hat eine weit größere Auswahl, da 90% der ps2/3 spiele auch für xbox rauskommen.
Xbox spiele meist aber nicht für Ps

Im grunde liegt die Xbox weit vorn.
Und ja, ich muss das erste mal in meinem Leben sagen:
Microsoft hat was gut gemacht.

Sen

Nja ich habe lediglich geschrieben das ich ein Problem mit einem
Objekt habe, und das dieses Fehler verursacht.

Ich habe nicht geschrieben das es nicht erzeugt wird.
Vlt selbst genau lesen?

Nja trotzdem jemand ne Idee?

Sen

Das Objekt selbst geht ja auch.

Nur wenn man z.b. auf Musik suchen geht und "Test" eingibt
und dann auf "Suchen" klickt stürtzt es ab

Beim Ordner suchen zeigt das Objekt selbst auch einen Fehler

Sen

Keiner eine Idee?

Sen

Ich hab ein kleines Problem mit einem Objekt

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 640, 480, -1, -1)
$Obj1 = ObjCreate("SrchUI.SearchAssistant.1")
$Obj1_ctrl = GUICtrlCreateObj($Obj1, 0, 0, 640, 480)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

Das Problem ist simple, das Script wird entweder beenden,
hängt sich auf oder zeigt einen Fehler an.

Jemand ne Idee?

Sen

Ich meinte Bilder im Text,
Rich Edit welches ich überhaupt nicht zum laufen bekomme
bzw erst gar nicht verstehe

Sen

1. hat sich geklärt danke an progandy
2. RichEidt... ich versuche seit wochen es einzubauen und scheitere immer q.q
3. Erstmal unwichtig, das mit den Bildern ist wichtiger

Sen

Mal ein kleines Gfx Grundpaket von meiner Seite.
Siehe Anhang

Sen

So ich störe mal wieder mit Fragen

Und zwar kommt bald die HastyNotes 3.0 raus.
Einzige Probleme die ich noch zu lösen habe:

1. Wie kann ich

[autoit]

$ShowPicture = ObjCreate("Preview.Preview.1")
$ShowPicture_ctrl = GUICtrlCreateObj($ShowPicture, 4, 5, 632, 320)

[/autoit]

Eine Bildadresse/Ordneradresse zuweisen?
(vlt sogar bild url?)

2. Ist es möglich ein Edit Feld zu erstellen, welches erlaubt Bilder
einzufügen und diese auch mit zu speichern?
(praktisch wie word per copy&pase)

3. Ist es möglich per Send() eine Linie in einem Edit Feld zu erstellen
welche als Trennlinie fungiert?
(oder sogar aus mehreren "----" automatisch eine trennlinie erstellen zu lassen?)

Beiträge von Sen

Problem mit GUI Menü

Problem mit GUI Menü

Problem mit GUI Menü

Problem mit GUI Menü

Problem mit GUI Menü

Problem mit GUI Menü

HastyNotes 3.2

Auto Starter

Auto Starter

Auto Starter

Auto Starter

Playstation 3 oder XBOX 360

Problem mit Objekt

Problem mit Objekt

Problem mit Objekt

Problem mit Objekt

Hilfe für HastyNotes

Hilfe für HastyNotes

Auto Ball Spiel

Hilfe für HastyNotes