1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. BugFix

Beiträge von BugFix

  • markieren mit einem klick

    • BugFix
    • 27. August 2006 um 15:00
    Zitat

    oder geht das, das ein feld von anfang an markiert ist

    Wenn es das zuerst definierte Control in der GUI ist, hat es automatisch den Fokus beim Start.
    Ist im Inputfeld Text enthalten, so ist er auch gleich komplett markiert.

    Edit:
    Oder du setzt den Fokus bei Programmstart:

    Code
    GUICtrlSetState($Input_1, $GUI_FOCUS)
  • Wie arbeiten mit GUICtrlSendMsg ( ) ?

    • BugFix
    • 27. August 2006 um 10:57

    Ja, Danke!
    Den API-Viewer hatte ich auch gefunden - aber z.Zt. kann ich grad nix downloaden (mein Fuchs spinnt) daher weiß ich noch nicht was schönes drin ist :) .


    Edit:

    Also den API Viewer hab ich nun. Aber wahrscheinlich bin ich zu blöd, das Teil zu bedienen.
    Ich kann mir zwar Typen, Konstanten, Deklarationen für 10 verschiedene Sprachen anschauen - wie finde ich aber hier den HEX-Wert.
    Geb ich im Suchfeld "EM_SETPASSWORDCHAR" findet er das nicht. (Geöffnet ist die Win32api)

    Also falls du meinen Horizont etwas erweitern könntest, wär ich dir dankbar.

  • Wie arbeiten mit GUICtrlSendMsg ( ) ?

    • BugFix
    • 26. August 2006 um 20:31

    Ich mach zu dem Thema jetzt mal nen separaten Thread auf.
    Wir hatten ja hier schon damit begonnen.

    Die allg. Syntax lautet ja: GUICtrlSendMsg ( controlID, msg , wParam, lParam )
    In allen Beispielen, die ich dazu gefunden habe wird die Funktion immer so verwendet:

    Global Const $NAME = HEX-Wert ; msg
    GUICtrlSendMsg( controlID, $NAME , 1, 0 )

    Hier mal ein Beispiel mit: Set ReadOnly (Ein/Aus)

    Code
    #include <GuiConstants.au3>
    Global Const $R_ONLY = 0xCF
    
    GuiCreate("MyGUI", 392, 323,-1, -1)
    $Input_1 = GuiCtrlCreateInput("", 110, 80, 190, 50)
    $b_ein = GUICtrlCreateButton("Read only ein", 20, 20)
    $b_aus = GUICtrlCreateButton("Read only aus", 120, 20)
    GuiSetState()
    While 1
    	$msg = GuiGetMsg()
    	Select
    	Case $msg = $GUI_EVENT_CLOSE
    		ExitLoop
    	Case $msg = $b_ein
    ; Read Only ein
        GUICtrlSendMsg($Input_1, $R_ONLY, 1, 0)
    	Case $msg = $b_aus
    ; Read Only aus
        GUICtrlSendMsg($Input_1, $R_ONLY, 0, 0)
    	EndSelect
    WEnd
    Exit
    Alles anzeigen

    Woher bekomme ich aber den notwendigen HEX-Wert ? Gibt es dafür irgendwo eine Übersicht ?

    Edit:

    So, ich habe nun mal stundenlang gegoogelt und mich durch Foren und Anleitungen gelesen.
    Fazit:
    In anderen Sprachen (VBA, Delphi) kann ich die Message-ID bei SendMessage( ) genauso senden, wie bei Microsoft deklariert (z.B. Edit-Control-Message: "EM_SETPASSWORDCHAR"). Aber in Autoit geht das leider nicht so. Da brauch ich diesen 'blöden' HEX-Wert. :weinen:

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 19:25

    Eine Möglichkeit ist wahrscheinlich noch:

    Zitat

    GUICtrlSendMsg ( controlID, msg , wParam, lParam )

    Gibt den Wert zurück, der von der SendMessage Windows API zurückgegeben wurde (siehe Microsoft-Dokumentation).

    In der MS-Doku habe ich dazu folgendes gefunden:

    Zitat

    lResult = SendMessage
    ( // returns LRESULT in lResult
    (HWND) // handle to destination
    hWndControl, control
    (UINT)
    EM_SETPASSWORDCHAR, // message ID
    (WPARAM) wParam, // = (WPARAM) () wParam;
    (LPARAM) lParam // = 0; not used, must be zero
    );

    Alles anzeigen


    Wie das auf die Funktion anzuwenden ist, ist mir (noch) nicht klar. Habe GUICtrlSendMsg noch nie genutzt. Die Hilfe ist dabei auch nicht sehr nützlich.

    Aber vielleicht hat ja jemand damit schon experimentiert.

    Edit:

    Hab jetzt mal ein paar Beispiele ausprobiert. Man benötigt in jedem Fall den Hex-wert der Message. Aber nirgendwo schreibt jemand, wie man die findet :(

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 18:10

    Die Frage von Analyzer ist natürlich berechtigt.

    Grundsätzlich ist es möglich (und manchmal auch sinnvoll) den Style eines Controls dynamisch zu ändern.
    Ich hab mal das englische Forum durchforstet. Die haben ebenfalls bemerkt, dass GUICtrlSetStyle() nur auf einige Contrlos angewendet werden kann.
    Leider habe ich noch keine Auflistung der möglichen Controls gefunden.

  • Inputfeld als password

    • BugFix
    • 26. August 2006 um 17:37

    Versuchs damit:

    Code
    GUICtrlSetStyle($kennwort, $ES_PASSWORD)

    oder

    Code
    GUICtrlSetStyle($kennwort, $ES_READONLY)

    Edit: Pee mal wieder schneller :)

    Edit #2:
    Tatsächlich - es geht nicht. Habs mal bei anderen Elementen (Liste) probiert. Auch dort ist SetStyle wirkungslos.

    Einzige, wenn auch etwas umständliche Alternative:

    Code
    GUICtrlDelete($kennwort)
    $kennwort = GUICtrlCreateInput("", 460, 20, 100, 20, $ES_PASSWORD)
    
    
    ; zurück auf DefaultStyle:
    
    
    GUICtrlDelete($kennwort)
    $kennwort = GUICtrlCreateInput("", 460, 20, 100, 20)


    Das funktioniert dann wenigstens.

  • Toollbox

    • BugFix
    • 26. August 2006 um 10:38

    @DJMANU

    Hi, nochmals eine Bitte:
    Nicht nur den Code als Datei anhängen, sondern auch im Thread zum Anschauen hinterlegen.
    Es gibt vieles, dass mich interessiert. Aber ich möchte nicht erst alles herunterladen um es mir anzuschauen. Einfacher ist es, wenn ich mir den Code im Thread ansehe und dann sagen kann: Yeah, das isses! - Das ist besser als die eigene Lösung oder so.
    Also sei doch in Zukunft so nett - ja? ;)

  • Simples Install programm :)

    • BugFix
    • 21. August 2006 um 20:49

    Hi,
    kleiner Tipp:
    Poste den Code mit. Ich persönlich bin viel zu faul erst downzuloaden. ;)

  • Handling Forum

    • BugFix
    • 20. August 2006 um 22:21

    Hi,
    ich hab folgende Probleme/ Wünsche.

    1. Ich würde gern dauerhaft in der Portalansicht die Anzahl der sichtbaren Beiträge ändern. Nach neuem Start sind es jedoch immer wieder 10. :)

    2. Beim Öffnen der Such-Funktion landet man bei den Suchoptionen ('Suche in allen Foren' markiert), Textmarke?
    Um den Suchbegriff einzugeben muß ich hochscrollen.
    Wenn ich aber die Suche in einem neuen Tab/Fenster öffne, startet die Suchseite völlig normal.

    Das wars erstmal ;)

  • Fenster maximieren

    • BugFix
    • 20. August 2006 um 21:56

    Warum soll eine Funktion innerhalb des Codes definiert werden?
    Nein, soweit ich weiß gehts nicht - wozu auch.

  • Fenster maximieren

    • BugFix
    • 20. August 2006 um 21:48

    Bischen unklar, was du willst. Poste mal etwas Code.
    Meinst du sowas:

    Code
    If <Bedingung> Then
        _Funktion()
    EndIf
  • FileWrite in Word

    • BugFix
    • 20. August 2006 um 21:39

    Hier zumindest die HEX-Code Farbtabelle. Verwendung, wie von Markus beschrieben.

  • SitzungsProtokolle "automatisch" schreiben?!

    • BugFix
    • 20. August 2006 um 21:32

    Ich hab eine Zeit lang betriebliche Abrechnungen, Bestandsverwaltung etc. ausschließlich mit Word realisiert. Ist zwar schon 'ne Weile her - aber an einiges kann ich mich noch erinnern.
    Textmakros sind das Einfachste. Kurze Texte lassen sich schon ganz simpel in der Autovervollständigen-Funktion einbringen. Für lange Sachen werden eigene Makros angelegt.
    Ich weiß nicht, ob du dich schon mal mit VBA beschäftigt hast. Damit kannst du dir z. B. Schaltflächen anlegen und bei Klick wird alle abgehakten Punkte deiner To-Do-Liste in die Erledigt-Liste verschoben.
    Da Word eh verwendet wird und dort VBA implementiert ist, würde ich die Arbeit damit ausführen.

  • ordner rekursiv auslesen?

    • BugFix
    • 20. August 2006 um 18:51

    Etwas schneller läßt sich das mit "_FileListToArray()" aus der Beta erledigen.

    Code
    #Include <File.au3>
    #Include <Array.au3>
    $FileList=_FileListToArray("C:\")
    If (Not IsArray($FileList)) and (@Error=1) Then
        MsgBox (0,"","No Files\Folders Found.")
        Exit
    EndIf
    _ArrayDisplay($FileList,"$FileList")
  • Cookies??? Existieren die auch wenn Sie abgelaufen sind?

    • BugFix
    • 20. August 2006 um 16:52

    Da ich den IE nicht verwende ( auch nicht testweise :muah: ), kann ich dir nur etwas theoretisch antworten.
    Da die Cookieverwaltung Bestandteil des Browsers ist, muß dieser natürlich erstmal starten um zu wissen, was er tun oder nicht tun soll. Denn ein Cookie, das beim letzten Betrieb des Browsers noch aktuell war kann ja inzwischen abgelaufen sein.
    Aber was willst du eigentlich machen? Cookieverwaltung brauchst du doch nun wirklich nicht selbst übernehmen.

  • FAQ

    • BugFix
    • 20. August 2006 um 16:33

    Voraussetzung: Beta

    Hallo,
    ich habe hier eine GUI erstellt, an der man die grundlegenden Operationen in einer Liste testen kann. Zu jedem Vorgang wird gleich der ausgeführte Code mit angezeigt.
    Ich denke, das ist verständlicher als die Programmierbeispiele in der Hilfe.
    Es sind noch längst nicht alle möglichen Funktionen eingebunden. Das werde ich mal bei Gelegenheit komplettieren.

    EDIT 09.02.2009 Da ich mal wieder zufällig hier reingeschaut habe, fällt mir auf, dass hier noch aktuell gedownloadet wird. Jedoch gibt es die GuiList.au3 und deren Befehle in der aktuellen Version nicht mehr. Jedoch ist das Prinzip auch auf die GuiListBox.au3 anwendbar.


    Spoiler anzeigen
    Code
    #include <GUIConstants.au3>
    #Include <GuiList.au3>
    
    
    Dim $anzahl, $currPosIndex, $inPos
    Global $i
    $Test_Listbox = GUICreate("Test Listbox-Funktionen", 629, 512, -1,-1)
    $List1 = GUICtrlCreateList("", 40, 40, 217, 240, -1, BitOR( $LBS_MULTIPLESEL, $WS_EX_CLIENTEDGE))
    $bPrev = GUICtrlCreateButton("Markiere Vorigen Eintrag", 280, 40, 320, 22, $BS_LEFT)
    $bNext = GUICtrlCreateButton("Markiere Nächsten Eintrag", 280, 70, 320, 22, $BS_LEFT)
    $bAdd = GUICtrlCreateButton("Addiere Eintrag aus <Eingabefeld>", 280, 100, 320, 22, $BS_LEFT)
    $bDel = GUICtrlCreateButton("Lösche Markierten Eintrag", 280, 130, 320, 22, $BS_LEFT)
    $bPosMark = GUICtrlCreateButton("Markiere Eintrag an <Pos.:>", 280, 160, 320, 22, $BS_LEFT)
    $bPosIns = GUICtrlCreateButton("Einfügen String aus <Eingabefeld> an <Pos.:>", 280, 190, 320, 22, $BS_LEFT)
    $bSelString = GUICtrlCreateButton("Sucht und Markiert String aus <Eingabefeld>", 280, 220, 320, 22, $BS_LEFT)
    $bReplString = GUICtrlCreateButton("Ersetzt Eintrag an <Pos.:> mit String aus <Eingabefeld>", 280, 250, 320, 22, $BS_LEFT)
    $lbEntry = GUICtrlCreateLabel( "Eingabefeld",200,286,77,17)
    $iEntry = GUICtrlCreateInput("", 280, 283, 245, 21, -1, $WS_EX_CLIENTEDGE)
    $lbPos = GUICtrlCreateLabel("Pos.:", 540, 286, 28, 17)
    $iPos = GUICtrlCreateInput("", 572, 283, 28, 21, -1, $WS_EX_CLIENTEDGE)
    $lDeclare = GUICtrlCreateList("",40,314,560,190)
    For $i = 1 To 5
    	GUICtrlSetData($List1, "Entry"&$i)
    Next
    _GUICtrlListSelectIndex($List1, 2)
    GUISetState(@SW_SHOW)
    
    
    While 1
    	$msg = GuiGetMsg()
    	Select
    	Case $msg = $GUI_EVENT_CLOSE
    		ExitLoop
    	Case $msg = $bPrev
    		_Text1()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		If $anzahl > 1  And $currPosIndex > 0 Then
    			_GUICtrlListSelectIndex($List1, $currPosIndex - 1) ; Markierung Element an Index
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex - 1)) ; Abfragen Eintrag an Index
    			GUICtrlSetData($iPos, $currPosIndex)
    		EndIf
    	Case $msg = $bNext
    		_Text2()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		If $anzahl > 1  And $currPosIndex < $anzahl - 1 Then
    			_GUICtrlListSelectIndex($List1, $currPosIndex + 1) ; Markierung Element an Index
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex + 1)) ; Abfragen Eintrag an Index
    			GUICtrlSetData($iPos, $currPosIndex + 2)
    		EndIf		
    	Case $msg = $bDel
    		_Text3()
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		_GUICtrlListDeleteItem($List1, $currPosIndex)          ; Löschen Eintrag an Index
    		$currPosIndex = _GUICtrlListGetCaretIndex($List1)      ; Index des markierten Elementes
    		GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))  ; Abfragen Eintrag an Index
    		GUICtrlSetData($iPos, $currPosIndex + 1)
    		_GUICtrlListSelectIndex($List1, $currPosIndex)         ; Markierung Element an Index
    	Case $msg = $bAdd
    		_Text4()
    		If GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListAddItem($List1, GUICtrlRead($iEntry))  ; Eintrag addieren
    			$anzahl = _GUICtrlListCount($List1)                ; Anzahl Listenelemente
    			For $i = 0 To $anzahl - 1
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then 
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					GUICtrlSetData($iPos, $i + 1)
    					ExitLoop
    				EndIf
    			Next
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	Case $msg = $bPosIns
    		_Text5()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$inPos = GUICtrlRead($iPos)
    		If $anzahl > 2 And $inPos <= $anzahl +1  And GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListInsertItem($List1, GUICtrlRead($iEntry), $inPos - 1)  ; Einfügen Eintrag an Index
    			For $i = 0 To $anzahl ; $anzahl ist um 1 erhöht, daher jetzt $anzahl = Index-max
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					ExitLoop
    				EndIf
    			Next			
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	Case $msg = $bPosMark
    		_Text6()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		$inPos = GUICtrlRead($iPos)
    		If $inPos <= $anzahl Then
    			_GUICtrlListSelectIndex($List1, $inPos - 1)        ; Markierung Element an Index
    			$currPosIndex = _GUICtrlListGetCaretIndex($List1)  ; Index des markierten Elementes
    			GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))  ; Inhalt des markierten Elementes 
    		EndIf
    	Case $msg = $bSelString
    		_Text7()
    		$anzahl = _GUICtrlListCount($List1)                    ; Anzahl Listenelemente
    		If GUICtrlRead($iEntry) <> "" Then
    			For $i = 0 To $anzahl - 1
    				If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then 
    					_GUICtrlListSelectIndex($List1, $i)            ; Markierung Element an Index
    					GUICtrlSetData($iPos, $i + 1)
    					ExitLoop
    				EndIf
    			Next			
    		EndIf
    	Case $msg = $bReplString
    		_Text8()
    		$inPos = GUICtrlRead($iPos)
    		If GUICtrlRead($iEntry) <> "" Then
    			_GUICtrlListReplaceString($List1, $inPos - 1, GUICtrlRead($iEntry))  ;Eintrag an Index mit anderem Eintrag ersetzen
    			_GUICtrlListSelectIndex($List1, $inPos - 1)            ; Markierung Element an Index
    			GUICtrlSetData($iEntry, "")
    		EndIf
    	EndSelect
    WEnd
    Exit
    #region
    Func _Text1()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                 ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                         ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 1  And $currPosIndex > 0 Then")
    	GUICtrlSetData($lDeclare,"04:     _GUICtrlListSelectIndex($List1, $currPosIndex - 1)                                      ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:     GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex - 1))     ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"06:     GUICtrlSetData($iPos, $currPosIndex)")
    	GUICtrlSetData($lDeclare,"07: EndIf")
    EndFunc	
    
    
    Func _Text2()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                 ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                         ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 1  And $currPosIndex < $anzahl - 1 Then")
    	GUICtrlSetData($lDeclare,"04:     _GUICtrlListSelectIndex($List1, $currPosIndex + 1)                                     ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:     GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex + 1))    ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"06:     GUICtrlSetData($iPos, $currPosIndex + 2)")
    	GUICtrlSetData($lDeclare,"07: EndIf")	
    EndFunc
    
    
    Func _Text3()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                    ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"02: _GUICtrlListDeleteItem($List1, $currPosIndex)                                            ; Löschen Eintrag an Index")
    	GUICtrlSetData($lDeclare,"03: $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                    ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"04: GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))         ; Inhalt Element an Index")
    	GUICtrlSetData($lDeclare,"05: GUICtrlSetData($iPos, $currPosIndex + 1)")
    	GUICtrlSetData($lDeclare,"06: _GUICtrlListSelectIndex($List1, $currPosIndex)                                          ; Markierung Element an Index")
    EndFunc
    
    
    Func _Text4()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                    ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    _GUICtrlListAddItem($List1, GUICtrlRead($iEntry))                           ; Eintrag addieren")    
    	GUICtrlSetData($lDeclare,"04:   For $i = 0 To $anzahl - 1")
    	GUICtrlSetData($lDeclare,"05:      If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then      ; Eintrag an Index ermitteln u. vergleichen")
    	GUICtrlSetData($lDeclare,"06:         _GUICtrlListSelectIndex($List1, $i)                                              ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"07:         GUICtrlSetData($iPos, $inPos + 1)")
    	GUICtrlSetData($lDeclare,"08:         ExitLoop")
    	GUICtrlSetData($lDeclare,"09:      EndIf")
    	GUICtrlSetData($lDeclare,"10:   Next")
    	GUICtrlSetData($lDeclare,"11:   GUICtrlSetData($iEntry, "")")    
    	GUICtrlSetData($lDeclare,"12: EndIf")
    EndFunc
    
    
    Func _Text5()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                        ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"03: If $anzahl > 2 And $inPos <= $anzahl +1  And GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListInsertItem($List1, GUICtrlRead($iEntry), $inPos - 1)                           ; Einfügen Eintrag an Index")
    	GUICtrlSetData($lDeclare,"05:    For $i = 0 To $anzahl")
    	GUICtrlSetData($lDeclare,"06:       If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then                         ; Eintrag an Index ermitteln")
    	GUICtrlSetData($lDeclare,"07:          _GUICtrlListSelectIndex($List1, $i)                                                                 ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"08:          ExitLoop")
    	GUICtrlSetData($lDeclare,"09:       EndIf")
    	GUICtrlSetData($lDeclare,"10:    Next")	
    	GUICtrlSetData($lDeclare,"11:    GUICtrlSetData($iEntry, "")")
    	GUICtrlSetData($lDeclare,"12: EndIf")
    EndFunc
    
    
    Func _Text6()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                           ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"03: If $inPos <= $anzahl Then")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListSelectIndex($List1, $inPos - 1)                                             ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:    $currPosIndex = _GUICtrlListGetCaretIndex($List1)                                ; Index des markierten Elementes")
    	GUICtrlSetData($lDeclare,"06:    GUICtrlSetData($iEntry, _GUICtrlListGetText($List1, $currPosIndex))     ; Inhalt Elemente an Index")
    	GUICtrlSetData($lDeclare,"07: EndIf")
    EndFunc
    
    
    Func _Text7()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $anzahl = _GUICtrlListCount($List1)                                                                   ; Anzahl Listenelemente")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    For $i = 0 To $anzahl")
    	GUICtrlSetData($lDeclare,"04:       If GUICtrlRead($iEntry) = _GUICtrlListGetText($List1, $i) Then                    ; Eintrag an Index ermitteln")
    	GUICtrlSetData($lDeclare,"05:          _GUICtrlListSelectIndex($List1, $i)                                                            ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"06:          GUICtrlSetData($iPos, $i + 1)")
    	GUICtrlSetData($lDeclare,"06:          ExitLoop")
    	GUICtrlSetData($lDeclare,"07:       EndIf")
    	GUICtrlSetData($lDeclare,"08:    Next")	
    	GUICtrlSetData($lDeclare,"09: EndIf")
    EndFunc
    
    
    Func _Text8()
    	GUICtrlSetData($lDeclare,"")
    	GUICtrlSetData($lDeclare,"01: $inPos = GUICtrlRead($iPos)")
    	GUICtrlSetData($lDeclare,"02: If GUICtrlRead($iEntry) <> "" Then")
    	GUICtrlSetData($lDeclare,"03:    _GUICtrlListReplaceString($List1, $inPos - 1, GUICtrlRead($iEntry))        ; Element an Index mit Eintrag ersetzen")
    	GUICtrlSetData($lDeclare,"04:    _GUICtrlListSelectIndex($List1, $inPos - 1)                                              ; Markierung Element an Index")
    	GUICtrlSetData($lDeclare,"05:    GUICtrlSetData($iEntry, "")")
    	GUICtrlSetData($lDeclare,"06: EndIf")
    EndFunc
    #endregion
    Alles anzeigen
  • Thunderbird Mail

    • BugFix
    • 18. August 2006 um 16:46

    Ja so in der Art kann man das lösen. Aber wie gesagt, ist das nicht mein Problem.

    An das Absenderfeld kann ich nur einen Buchstaben senden. Ich kann aber schlecht den User anweisen, zu jedem Konto einen Alias mit unterschiedlichem Anfangsbuchstaben anzulegen. - Dann wäre das Problem gelöst.
    Aber wird z.B. kein Alias angelegt, generiert TB automatisch beim Versand diesen mit der Mailadresse (z.B. <meine.mail@123.de>). Ist das mehrfach der Fall,werden diese also identisch mit "<" angesprochen.

  • Thunderbird Mail

    • BugFix
    • 18. August 2006 um 16:06

    Da sind noch mehr Fallen:
    - mehrere Absenderadressen mit gleichem Aliasnamen (z.B. Max <max@web.de>; Max <max@gmx.de)
    - Usereinstellung, dass nur Mailadresse ohne Alias angezeigt wird bzw. gar kein Alias existiert

    Aber das ist eh Banane, da selbst bei aktivem Absenderfeld das Senden von Anfangsbuchstaben oder kpl. Absendernamen keine Auswahl bewirkt. Und da liegt der Hund begraben.

  • Thunderbird Mail

    • BugFix
    • 18. August 2006 um 15:31
    Zitat

    weil du meinstest bei Path müsste man den eigenen path eintragen

    Jo, den eigenen Pfad sollst du schon eintragen - im fertigen Script frag ich das auch nicht in der Registry ab, weil ein Großteil der Mozilla-Nutzer nicht die Installationsversion nutzt. Alle Produkte der Mozillafamilie lassen sich ja zum Glück auch ohne Install-routine ausführen.
    Im fertigen Produkt muß der User einmalig seinen Pfad auswählen, wird dann in einer INI-Datei abgelegt.

    Edit:
    @Aspirin Junkie:

    Sry, mf aber da irrst du. Beim Öffnen des Verfassen-Fensters bist du nicht im Absender sondern im Adressfeld. Und das Absenderfeld nimmt keine Send()-Befehle entgegen.

  • UDF funktioniert nicht mit Variablenübergabe

    • BugFix
    • 18. August 2006 um 14:16

    @pee: Muß ich mal testen.

    Bernd: werd ich machen.


    Edit:
    Oh man, machmal könnte man sich selbst in den Hintern treten. Ich Idiot habe beim Befüllen des Arrays ein falsches Array angesprochen. Das hatte ich gleichzeitig umgestellt und dabei mich verschrieben.
    Trotzdem Danke für eure Hilfe.

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™