Hallöle,
ich hab ein kleines Anliegen:
Ich bastel im Moment an einem Texteditor, und hänge an der Schriftauswahl. _ChooseFont ist nichts für mich, ich will keinen eigenen Dialog, sondern eine ComboBox, wie z.B. in WordPad. Der untenstehende Versuch, die *.ttf-Dateien aus dem Fontordner auszulesen, ist auch nichts, weil die Schrift ja trotzdem anders heißt... Ich weiß erstmal nicht weiter, google konnte mir auch nicht helfen... Habt ihr eine Idee?
Auslesen des Font-Ordners
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]$Fonts = ""
$FirstFile = FileFindFirstFile("C:\Windows\Fonts\*.ttf")
While 1
$NextFile = FileFindNextFile($FirstFile)
If @error Then ExitLoop
$Fonts&= _MakeFirstChrBig(StringTrimRight($NextFile,4)) & "|"
WEnd
;~ Example()
[/autoit] [autoit][/autoit] [autoit];~ Func Example()
Local $msg
GUICreate("Meine GUI combo") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
$Combo = GUICtrlCreateCombo("ITEM", 10, 10) ; Erstellt das erste Item
GUICtrlSetData(-1, $Fonts) ; Fügt andere Items hinzu und setzt einen neuen Standard
GUISetState()
; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
ExitLoop
EndIf
WEnd
;~ EndFunc ;==>Example
Func _MakeFirstChrBig($String)
$FirstChr = StringLeft($String,1)
If Asc($FirstChr) > 96 Then
Return Chr(Asc($FirstChr) - 32) & StringTrimLeft($String,1)
Else
Return $String
EndIf
EndFunc
lg chess