FAQ

geRRus · 3. Mai 2006

Hallo liebe Community
hier wird mit der Zeit ein FAQ entstehen.
Falls jemand Tips oder interesante und themabezogene Links hat, einfach mal hier posten.

[link_int=#post2028]Wie ueberwache ich bei AutoIt ob eine Taste gedrueckt worden ist?[/link_int]
[link_int=#post2029]Wo sind alle rundll32 Befehle aufgelistet?[/link_int]
[link_int=#post2116]Gibt es auch Tips für SciTe?[/link_int]

geRRus · 3. Mai 2006

Wie ueberwache ich bei AutoIt ob eine Taste gedrueckt worden ist?

Die UDF (User Defined Functions -> Funktionen von AutoIt-Benutzern definiert) "_IsPressed" bietet die Moeglichkeit Eingabegeraete wie die Tastatur und Maus auf Ereignisse durch Bedienung eines Benutzer zu ueberwachen. In der aktuellen stabilen Version von AutoIt (v3.1.1) ist die UDF _IsPressed aber leider noch nicht integriert. Die Hilfe der Version 3.1.1 enthaellt auch keine Informationen zu _IsPressed.
Es bestehen dennoch mehrere Moeglichkeit _IsPressed in einen AutoIt v3.1.1 Script zu integrieren. Bei mir hat das so funktioniert, ich habe mir die neueste Beta von AutoIt besorgt und mir erst mal die AutoIt-Hilfe angeschaut (die Hilfe der Beta-Version!). Hier ist unter "User Defined Functions -> Misc Management" auch die UDF _IsPressed behandelt. Dort kann entnommen werden, dass durch "#Include <Misc.au3>" die UDF _IsPressed verfuegbar gemacht werden kann.

Also habe ich mir mal die "Misc.au3" der Beta Version angeschaut und dort folgendes gefunden:

code:

Spoiler anzeigen

Dann habe ich die Funktion direkt in meinen AutoIt v3.1.1 Script uebernommen und die UDF _IsPressed war verfuegbar. großes Grinsen

Es besteht natuerlich auch die Moeglichkeit per "#Include <Misc.au3>" die Beta "Misc.au3" in einem v3.1.1 Script verfuegbar zu machen.

Dank an: Kruemel_02

geRRus · 3. Mai 2006

Wo sind alle rundll32 Behfele auf gelistet?

Auf den Seiten hier und hier sind so ziemlich alle Befehle aufgelistet.

Dank an: ytwinky

geRRus · 5. Mai 2006

Gibt es auch Tips für SciTe?

Ja einen Tip habe ich.Viele kennen ihn vielleicht schon, ich aber bin nur du Zufall drauf gestossen, weil ich nie die Hilfe von den jeweiligen Programmen lese, schon gar nicht wenn diese auf englisch sind:)

Also, in SciTe besteht die Möglichkeit Abkürzungen zu benutzen, was das Schreiben vom Code deutlich beschleunigt.
Am besten mache ich einfach ein Beispiel:

Wenn man in SciTE z.B. cmd schreibt und danach die Leertaste drückt, wird cmd durch diesen Code ersetzt:

Code

RunWait(@ComSpec & ' /c ', '', @SW_HIDE)

was wirklich praktisch ist. Natürlich wäre SciTe nicht SciTe wäre es nicht noch mehr solcher Abkürzungen im Programm integriert:)
Die ganze Liste könnt ihr der SciTE-Hilfe entnehmen, Stichwort Abbreviation List.
Es soll wohl sogar die Möglichkeit bestehen diese Liste seine Bedürfnissen anzupassen, nur bin ich noch nicht dahinter gekommen wie das geht.

Dank an: Gtaspider

**BugFix** · 15. August 2006

Zitat

Es soll wohl sogar die Möglichkeit bestehen diese Liste seine Bedürfnissen anzupassen, nur bin ich noch nicht dahinter gekommen wie das geht.

Schaut erstmal nach, ob das überhaupt nötig ist , denn eigentlich ist ja schon alles drin.
Öffnet in SciTE die Datei "..\SciTE\au3abbrev.properties". Hier findet ihr die komplette Auflistung in der Form

Code

Kürzel=gesamter Befehl od. Makro
z.B.
slp1=Sleep(1000)\n|

Wenn ihr also etwas erweitern möchtet, prüft mit Suchbefehl ob das Kürzel noch frei ist und fügt es dann mit der Befehlsfolge in obiger Form in der entsprechenden Gruppe oder einer eigenen (z.B. #; -- UserDef -- ) ein.

Edit:
Ihr könnt allerdings einige Vorlagen an eure Einstellungen anpassen, z.B. die Funktionsbeschreibung läßt sich mit "setupudf" erstellen, sieht dann so aus:

Code

;===============================================================================
;
; Function Name:   
; Description::    
; Parameter(s):    
; Requirement(s):  
; Return Value(s): 
; Author(s):       
;
;===============================================================================
;

Alles anzeigen

Hier läßt sich schonmal der Autor eintragen und natürlich kann man dann auch deutsch schreiben. =)

**BugFix** · 20. August 2006

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

**peethebee** · 30. August 2006

SciTE, AutoiT-Quelltext öffnen "setupudf" eingeben (wird rot), Leertaste drücken. Ist in der abrrev-Datei für SciTE hinterlegt.

peethebee

**BugFix** · 17. September 2006

Wie kann ich auf dem ausführenden Rechner bestimmte Datums-oder Ländereinstellungen garantieren?

Erzeuge ich z.B. ein Datumsauswahlfeld

GUICtrlCreateDate("", 384, 50, 120, 21,$DTS_SHORTDATEFORMAT) ; Kurzform TT.MM.JJJJ

ist die Darstellung abhängig von den Ländereinstellungen in der Systemsteuerung des Rechners auf dem das Programm läuft.
Um sicherzugehen, dass das von mir erforderte Format erscheint, muß ich es in der Registry überprüfen und ggf. korrigieren.
Zum Programmende muß natürlich der Originalzustand wiederhergestellt werden.

Mein Bsp. überwacht die Darstellung des Datums in der Kurzform (Registry 'sShortDate') und kann natürlich analog für die anderen Werte verwendet werden.

Spoiler anzeigen

**BugFix** · 13. Januar 2007

Eigene Abkürzungen in SciTE

SciTE verfügt über eine Liste von Abkürzungen (zu finden in der Datei "abbrev.properties"), die das Codieren sehr vereinfachen.
Durch Eingabe der Abkürzung + Leertaste wird der hinterlegte Code eingefügt.
In einem vorigen Beitrag hatte ich bereits zur Änderung bestehender Abkürzungen geschrieben. Zu den bestehenden Abkürzungen lassen sich auch ganz einfach eigene hinzufügen.

Code

Die Syntax ist folgende:


Abkürzung=Code
Zeilenumbruch:		\n
Tabulatorschritt:	\t
Cursorposition:		|


Alle Anweisungen müssen innerhalb einer Zeile geschrieben werden.


Um z.B. einen Scriptheader zu erstellen der so aussieht:


#cs ----------------------------------------------------------------------------


 AutoIt Version:	        3.2.1.14 (beta)
 Author:			Dein Name
 Script Function:		hier soll der Cursor stehen


#ce ----------------------------------------------------------------------------


mußt du diese Zeile erstellen:
scriptheader=#cs ----------------------------------------------------------------------------\n\n AutoIt Version:		3.2.1.14 (beta)\n Author:				Dein Name\n Script Function:		|\n\n#ce ----------------------------------------------------------------------------\n

Alles anzeigen

Die Datei "abbrev.properties" kannst du direkt über SciTE -> Optionen -> Abkürzungsdatei öffnen.
Füge einfach die neue Zeile in die Dateie ein (Position ist eigentlich egal - Hauptsache vor der Markierung [#-#-#-#..]) - aber für eine bessere Übersicht macht es vielleicht Sinn, eine eigene Sektion (#; -- Eigene Abkürzungen --) einzufügen.
Damit das Kürzel auch aktiv wird, mußt du es in der "au3.keywords.properties" (SciTE -> Optionen -> Öffnen au3.keywords.properties) eintragen.
Füge das Kürzel an das Ende der Sektion: ".keywords.abbrev=..." an. Hier aufpassen, dass als letztes immer ein Zeilenumbruch in der Datei bleibt - gibt sonst 'nen Fehler.
Ab sofort steht die neue Abkürzung zur Verfügung.

**BugFix** · 14. Februar 2007

Label als Button

Mit der Funktion von rakudave habe ich hier mal ein Bsp. erstellt, wie man farbige Button erstellen kann.
Ich habe die Funktion noch etwas erweitert, damit ich auch den Schriftstyle verändern kann.
Für die meisten Anwendungen sollte dies ausreichen.
Was nicht geht: Verändern der Buttoneigenschaften (Beschriftung, Farbe, Style) zur Laufzeit.

Spoiler anzeigen

#include <GUIConstants.au3>
Dim $steelblue = 0xB0C4DE, $khaki = 0xF0E68C, $violet = 0x800080, $rot = 0xFF0000, $gelb = 0xFFFF00
Dim $aqua = 0x00FFFF, $crimson = 0xDC143C

$Form1 = GUICreate("Colored Button", 504, 186, -1, -1)
GUISetBkColor($steelblue)
; die Erzeugung des Buttons gibt eine Array-Variable zurück
$ret1 = _GUICtrlCreateColorButton("Button1", 25, 75, 85, 25, $khaki, $violet)
; an Position [0] des Arrays ist das Handle, über das der Button abgefragt werden kann
$btn1 = $ret1[0]
$ret2 = _GUICtrlCreateColorButton("Button2", 143, 75, 85, 25, $aqua, $rot, 10, 600, 0, "Verdana")
$btn2 = $ret2[0]
$ret3 = _GUICtrlCreateColorButton("Button3", 267, 75, 85, 25, $crimson, $gelb, 12, 600, 2, "Courier")
$btn3 = $ret3[0]
$ret4 = _GUICtrlCreateColorButton("Button4", 393, 75, 85, 25, $gelb, $crimson, 11, 400, 0, "Arial Narrow")
$btn4 = $ret4[0]
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn1
GUICtrlSetStyle($btn1, $SS_ETCHEDFRAME) ; Button im Gedrückt-Zustand
Sleep(150) ; Verweildauer im Gedrückt-Zustand
GUICtrlSetStyle($btn1, $SS_NOTIFY + $SS_GRAYRECT) ; Button ungedrückt
Sleep(100) ; Pause um Vorgang optisch wahrzunehmen
; ab hier der Code für ButtonClick
MsgBox(0, '', "Standardschrift u. -größe" & @LF & "violett auf khaki")
Case $btn2
GUICtrlSetStyle($btn2, $SS_ETCHEDFRAME)
Sleep(150)
GUICtrlSetStyle($btn2, $SS_NOTIFY + $SS_GRAYRECT)
Sleep(100)
MsgBox(0, '', "Verdana 10, 600 breit" & @LF & "rot auf aqua")
Case $btn3
GUICtrlSetStyle($btn3, $SS_ETCHEDFRAME)
Sleep(150)
GUICtrlSetStyle($btn3, $SS_NOTIFY + $SS_GRAYRECT)
Sleep(100)
MsgBox(0, '', "Courier 12, kursiv, 600 breit" & @LF & "gelb auf crimson")
Case $btn4
GUICtrlSetStyle($btn4, $SS_ETCHEDFRAME)
Sleep(150)
GUICtrlSetStyle($btn4, $SS_NOTIFY + $SS_GRAYRECT)
Sleep(100)
MsgBox(0, '', "Arial Narrow 11" & @LF & "crimson auf gelb")
EndSwitch
WEnd

;=============================================================================
;
; Function Name: _GUICtrlCreateColorButton()
;
; Description: Creates a colored Button
;
; Syntax: _GUICtrlCreateColorButton($text, $left, $top, $width, $height,$bkcolor[,$fontcolor] _
; [,$fontsize][,$fontweight][,$fontattrib][,$fontname])
;
; Parameter(s); $text = The text of the control
; $left = The left side of the control
; $top = The top of the control
; $width = The width of the control
; $height = The height of the control
; $bkcolor = Backgroundcolor of the control
; $fontcolor = [optional] Fontcolor of the control
; $fontsize = [optional] Schriftgröße (default 9)
; $fontweight = [optional] Zeichenbreite (default 400)
; $fontattrib = [optional] Schriftattribut
; (kursiv:2 unnterstrichen:4 durchgestrichen:8)
; $fontname = [optional] Schriftfont
;
; Return Value(s): array[1] = used to change colors
; array[0] = notifies GUIGetMsg if user clicks
;
; Author: rakudave <[email='rakudave@gmx.net'][/email]>
; Erweiterung $fontsize, $fontweight, $fontattrib, $fontname von BugFix
;==========================================================================================
Func _GUICtrlCreateColorButton($text, $left, $top, $width, $height, $bkcolor, $fontcolor = -1, _
$fontsize = 9, $fontweight = 400, $fontattrib = "default", $fontname = "default")
Local $colbut[2]
If $fontcolor == -1 Then $fontcolor = 0x000000
$colbut[0] = GUICtrlCreateLabel("", $left, $top, $width, $height, $SS_BLACKRECT)
GUICtrlCreateLabel("", $left, $top, $width - 1, $height - 1, $SS_WHITERECT)
GUICtrlCreateLabel("", $left + 1, $top + 1, $width - 2, $height - 2, $SS_GRAYRECT)
$colbut[1] = GUICtrlCreateLabel($text, $left + 1, $top + 1, $width - 3, $height - 3, $SS_NOTIFY & $SS_CENTER)
GUICtrlSetBkColor(-1, $bkcolor)
GUICtrlSetColor(-1, $fontcolor)
GUICtrlSetFont(-1, $fontsize, $fontweight, $fontattrib, $fontname)
Return $colbut
EndFunc ;==>_GUICtrlCreateColorButton

**BugFix** · 27. Oktober 2007

Array Tutorial

Hi,

da doch ziemlich oft Fragen zu Arrays gestellt werden, das richtige Verständnis aber wohl nicht unbedingt entsteht, habe ich mal versucht ein Tutorial zum Thema Array zu verfassen.

Ich habe mich für den Anfang etwas kurz gehalten, man könnte ja problemlos seitenweise zu dem Thema referieren ;).
Es ist gedacht als Einstiegshilfe für all jene, die schon bei dem Wort Array das Grauen kriegen
Daraus resultierende Fragen könnt ihr mir gerne zukommen lassen, ich werde das Tut dann um eine FAQ erweitern.

Also viel Spaß.

Array Tutorial

EDIT 31.10.07

Inhalt aktuell

Code

• 1-D Array
    • Deklaration
    • Wertzuweisung
    • Array als Rückgabewert einer Funktion
    • Prüfen auf Inhalt
    • Prüfen auf Existenz
    • Vergleichscode ohne/mit Array
• 2-D Array
    • Deklaration
    • Wertzuweisung
    • 2D Array als Rückgabewert einer Funktion
• Array statisch oder dynamisch

Alles anzeigen

smoochy · 17. April 2008

Hallo,

dein Array Tutorial ist nicht erreichbar. Würdest du es bitte nochmal hochladen?

Danke.

/Edit: Grad gesehen: Du hast in deiner Signatur nen anderen Link, der funktioniert. Aber der von oben im Post nicht.

**BugFix** · 18. April 2008

Link korrigiert

**BugFix** · 17. Mai 2008

Es gibt ein praktisches Tool zum Konfigurieren von SciTE ohne Gefahr zu laufen, die Einstellungsdatei zu vermurksen.
Hier der Link.

**BugFix** · 15. August 2009

Hi,
da immer wieder angefragt wird, wie man mit Dll's arbeitet, habe ich mich aufgerafft und mal versucht ein kleines Tut zu erstellen. Die Datentypenbeschreibung aus der AutoIt-Hilfe habe ich mit übernommen, damit alles beieinander ist.

Hier findet ihr das Tut. Ich hab es auch angehängt.

Sollte irgendwas fehlerhaft sein, bitte melden. 100% fit bin ich bei dem Thema noch nicht.

Edit: Habe es nochmal überarbeitet und um Strukturen und Pointer erweitert. Außerdem ist es optisch aufgefrischt

Greek · 17. August 2009

Zitat von peethebee

SciTE, AutoiT-Quelltext öffnen "setupudf" eingeben (wird rot), Leertaste drücken. Ist in der abrrev-Datei für SciTE hinterlegt.

peethebee

Ich hab setupgui in der Datei au3abbrev.properties verändert, weil mir die andere nicht so gefallen hat ( ich benutzt auch immer switch statt select ) :

Code

#; -- GUI setup --
setupgui=#include <GUIConstantsEx.au3>\n#include <WindowsConstants.au3>\n\n$MainGUI=GUICreate("",400,300,-1,-1)\nGUISetState()\n\nWhile 1\n$msg=GUIGetMsg()\nSwitch $msg\nCase $GUI_EVENT_CLOSE\nExit\nEndSwitch\nWEnd

So sieht das jetzt aus, aber wenn ich setupgui eingeben kommt immer noch das alte, obwohl das jetzt garnicht mehr drinsteht.
Warum geht das nicht?

**BugFix** · 17. August 2009

Zitat von Greek

Warum geht das nicht?

Du hast die falsche Datei geändert.

Die Abbrevs findest du unter: ".\Dokumente und Einstellungen\USER\abbrev.properties"

Du kannst es dir einfacher machen, indem du mein Tool zur Abbrev-Verwaltung nutzt: Abkürzungen in SciTE verwalten

Teilen