Hallo just me!
Hast Du nun alles, was Du brauchst?
Noch nicht ganz.
Separat in einem Probescript funktioniert das Ding. Mich irritiert allerdings etwas, daß bei Deiner Version als Werte der Variablen 1 und 2 ausgegeben werden, während im Handbuch von den klassischen boolschen Werten 0 und 1 gesprochen wird. Wodurch wird das festgelegt? Das wäre letztlich aber egal, wenn man sie nur eindeutig zuordnen kann.
Wenn ich den Code aber in mein Script in die bereits existierende Gui einbaue, dann kommt überhaupt kein Wert mehr dabei raus.
Code: Select all
; Auswahlfenster erstellen und anzeigen
Rows := (L := Vorgaben.Length()) > 10 ? 10 : L
GuiText_1 := "Wählen Sie hier den Standard für das nächste Umbenennungsprojekt aus!"
Gui, Margin, 20, 20
Gui, Font, s10 , Verdana
Gui, Add, Text, xm w350, %GuiText_1%
Gui, Add, ListView, xm wp r%Rows% -Multi vBestandAuswahl Sort, Bestand|Signatur|Index
Gui, Add, Radio, checked vSignTyp, Sammlungen
Gui, Add, Radio, , einzelne Akten
For Each, Vorgabe In Vorgaben
{
Felder := StrSplit(Vorgabe, "`t")
Option := (Felder[1] = Auswahl) ? "Focus Select" : ""
LV_Add(Option, Felder*)
}
Loop, % LV_GetCount("Column")
LV_ModifyCol(A_Index, "AutoHdr")
If (LizenzKey = "ja") ; Einblendung zusätzlicher Optionen bei der erweiterten Version
{
Gui, Add, Edit, cblue xm h25 w100 vAktSignEingabe, ;%Auswahl%
Gui, Add, Edit, cblue x137 yp h25 w70 vSignEingabe, ;%SignVorlage%
Gui, Add, Edit, cblue x224 yp h25 w70 vIndexEingabe, ;%IndexVorlage%
Gui, Add, Text, x124 yp+5 h25 w13 , % chr(863)
Gui, Add, Text, x211 yp+4 h25 w13 , % chr(862)
Gui, Add, Button, xm h30 w100 Default gAnwenden, Anwenden
; Button "Neu Erstellen" wird in der Standardversion auskommentiert
Gui, Add, Button, x145 yp h30 w100 gNeuerstellen, Neu Erstellen
Gui, Add, Button, x270 yp h30 w100 gAbbrechen, Abbrechen
}
else
{
Gui, Add, Button, xm h30 w145 Default gAnwenden, Anwenden
Gui, Add, Button, x225 yp h30 w145 gAbbrechen, Abbrechen
}
Menu, Tray, Icon, , , 1
GuiControl, Focus, BestandAuswahl
Gui, Show, x100 y100, Signierungsvorlagen
Return
Wenn ich aber dann später abfrage:
Code: Select all
If (SignTyp = 0)
{
LetzterIndex := 1
IndexTrenner := "_"
}
else
{
LetzterIndex := 0
IndexTrenner := "-"
}
MsgBox, , , Das Trennzeichen für Indizes ist %IndexTrenner%
oder auch nur prüfe:
Code: Select all
MsgBox, , , der Signaturtypus ist %SignTyp%
dann ist die Variable
SignTyp leer.
Viele Grüße von Meister Lampe