[Nicht gelöst] Tenso Font Editor - Einstellungen

1. offizieller Beitrag

    Hallo Leute!

    Ich brauch wieder mal eure hilfe! =)

    Spoiler anzeigen
    [autoit]


    #include <GUIConstants.au3>

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

    $lesen = IniRead("einstellungen.ini", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ini", "SPEICHER", "Schreiben", "NotFound")
    ;--------------------------------------------------------------------------------
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Config.kxf
    $Form1 = GUICreate("Tenso Soldat Font Editor - Setup", 385, 286, 193, 115)
    $Input1 = GUICtrlCreateInput($lesen, 160, 72, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input2 = GUICtrlCreateInput($schreiben, 160, 120, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label1 = GUICtrlCreateLabel("Laden:", 48, 72, 37, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Speichern:", 48, 120, 55, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Button1 = GUICtrlCreateButton("Save", 208, 184, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Setup:", 48, 32, 40, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Copyright by Tenso", 248, 256, 98, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button1
    $lesen = IniWrite("einstellungen.ini", "SPEICHER", "Lesen", $lesen)
    $schreiben = IniWrite("einstellungen.ini", "SPEICHER", "Schreiben", $schreiben)
    MsgBox(4096, "Speichern", "Speichern! Erfolgreich!", 10)
    Exit

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

    EndSelect
    WEnd

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

    Wenn ich auf Save klicke.. speichert er nichts ab? denn Text von Input1 & 2.?? Ich möchte nur denn Text von Input 1 & 2 speichern -.-" und nicht nochmal die ini Datei..

    Danke & Gruss Tince ~~

    2 Mal editiert, zuletzt von tince (13. September 2007 um 16:07)

    • Offizieller Beitrag

    Hallo

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

    $lesen = IniRead("einstellungen.ini", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ini", "SPEICHER", "Schreiben", "NotFound")
    ;--------------------------------------------------------------------------------
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Config.kxf
    $Form1 = GUICreate("Tenso Soldat Font Editor - Setup", 385, 286, 193, 115)
    $Input1 = GUICtrlCreateInput($lesen, 160, 72, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input2 = GUICtrlCreateInput($schreiben, 160, 120, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label1 = GUICtrlCreateLabel("Laden:", 48, 72, 37, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Speichern:", 48, 120, 55, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Button1 = GUICtrlCreateButton("Save", 208, 184, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Setup:", 48, 32, 40, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Copyright by Tenso", 248, 256, 98, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button1
    $lesen = GUICtrlRead($Input1)
    $schreiben = GUICtrlRead($Input2)
    $lesen = IniWrite("einstellungen.ini", "SPEICHER", "Lesen", $lesen)
    $schreiben = IniWrite("einstellungen.ini", "SPEICHER", "Schreiben", $schreiben)
    MsgBox(4096, "Speichern", "Speichern! Erfolgreich!", 10)
    Exit

    EndSelect
    WEnd

    [/autoit]

    Mfg Spider

    danke! =)


    PS: Könnte mir jemand eine SaveDialog einfügen.. ?? Nur der Zeit hat =)
    habs versucht.. aber ging irgendwie nicht richtig ^^

    • Offizieller Beitrag

    Hallo

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    $lesen = IniRead("einstellungen.ini", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ini", "SPEICHER", "Schreiben", "NotFound")
    ;--------------------------------------------------------------------------------
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Config.kxf
    $Form1 = GUICreate("Tenso Soldat Font Editor - Setup", 385, 286, 193, 115)
    $Input1 = GUICtrlCreateInput($lesen, 160, 72, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input2 = GUICtrlCreateInput($schreiben, 160, 120, 185, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label1 = GUICtrlCreateLabel("Laden:", 48, 72, 37, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Speichern:", 48, 120, 55, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Button1 = GUICtrlCreateButton("Save", 208, 184, 75, 25, 0)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Setup:", 48, 32, 40, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Copyright by Tenso", 248, 256, 98, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Button1
    $file = FileSaveDialog("",@ScriptDir,"INI Dateien(*.ini)|Alle Dateien(*.*)",0,"einstellungen.ini")
    If @error Then ContinueLoop
    $lesen = GUICtrlRead($Input1)
    $schreiben = GUICtrlRead($Input2)
    $lesen = IniWrite($file, "SPEICHER", "Lesen", $lesen)
    $schreiben = IniWrite($file, "SPEICHER", "Schreiben", $schreiben)
    MsgBox(4096, "Speichern", "Speichern! Erfolgreich!", 10)
    Exit

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

    EndSelect
    WEnd

    [/autoit]

    Ich weiß, ich bin heute sehr gesprächig :D

    Mfg Spider

    hehe! danke!

    ~gelöst~ ---> ~offen~


    öhm hab gerade mein script verbessert .. ^^ *wieder brauch ich eure hilfe! xD*

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=Icon1.ico
    #AutoIt3Wrapper_outfile=Tenso_Editor.exe
    #AutoIt3Wrapper_Compression=3
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_Description=Tenso 2007
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Tenso 2007
    #AutoIt3Wrapper_Res_Language=2055
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    HotKeySet("{PAUSE}", "TogglePause")

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

    Func TogglePause()
    Exit
    EndFunc
    ;--------------------------------------------------------------------------
    ;Einstellungen
    Opt("TrayMenuMode",1)

    TraySetState()
    TraySetToolTip("Soldat Font Editor")
    ;--------------------------------------------------------------------------
    ; Ini Einstellungen
    $ort = IniRead("einstellungen.ten", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ten", "SPEICHER", "Schreiben", "NotFound")
    $version = IniRead("version.ten", "VERSION", "Beta", "NotFound")
    $standard = IniRead("einstellungen.ten", "SPEICHER", "Standard", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifont1 = IniRead($ort, "FONTS", "Font1", "NotFound")
    $inifont2 = IniRead($ort, "FONTS", "Font2", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifontmenusize = IniRead($ort, "FONTS", "FontMenuSize", "NotFound")
    $inifontconsole = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigsize = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigbold = IniRead($ort, "FONTS", "FontBigBold", "NotFound")
    $inifontconsolesmallsize = IniRead($ort, "FONTS", "FontConsoleSmallSize", "NotFound")
    $inifontconsolesmallbold = IniRead($ort, "FONTS", "FontConsoleSmallBold", "NotFound")
    $inifontconsolebold = IniRead($ort, "FONTS", "FontConsoleBold", "NotFound")
    $inifontweaponmenusize = IniRead($ort, "FONTS", "FontWeaponMenuSize", "NotFound")
    $inifontweaponmenubold = IniRead($ort, "FONTS", "FontWeaponMenuBold", "NotFound")
    $fontmenubold = IniRead($ort, "FONTS", "FontMenuBold", "NotFound")
    $inifontkill = IniRead($ort, "FONTS", "KillConsoleNameSpace", "NotFound")
    ;--------------------------------------------------------------------------
    ; Form
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Editor.kxf
    $Form1 = GUICreate("Soldat Font Editor", 617, 435, 197, 118)
    $Label1 = GUICtrlCreateLabel("Font1", 16, 48, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Font 2:", 16, 80, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Font Menu Size:", 304, 184, 81, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Font Console Size:", 16, 224, 93, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label5 = GUICtrlCreateLabel("Font Big Size:", 16, 112, 69, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label6 = GUICtrlCreateLabel("Font Weapon Menu Size:", 304, 48, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label7 = GUICtrlCreateLabel("Font Console Small Size:", 16, 256, 120, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label8 = GUICtrlCreateLabel("Font Menu Bold:", 304, 152, 82, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label9 = GUICtrlCreateLabel("Font Console Bold:", 16, 320, 94, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label10 = GUICtrlCreateLabel("Font Big Bold:", 16, 144, 70, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label11 = GUICtrlCreateLabel("Font Weapon Menu Bold:", 304, 80, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label12 = GUICtrlCreateLabel("Font Console Small Bold:", 16, 288, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label13 = GUICtrlCreateLabel("Kill Console Name Space:", 16, 352, 123, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input3 = GUICtrlCreateInput($inifontconsole, 160, 224, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input4 = GUICtrlCreateInput($inifontconsolesmallsize, 160, 256, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label14 = GUICtrlCreateLabel("Font:", 16, 16, 32, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label15 = GUICtrlCreateLabel("Console:", 16, 192, 51, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input5 = GUICtrlCreateInput($inifontconsolesmallbold, 160, 288, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input6 = GUICtrlCreateInput($inifontconsolebold, 160, 320, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input7 = GUICtrlCreateInput($inifontkill, 160, 352, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label16 = GUICtrlCreateLabel("Weapon Menu:", 304, 16, 87, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label17 = GUICtrlCreateLabel("Menu:", 304, 120, 38, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input8 = GUICtrlCreateInput($inifontweaponmenusize, 456, 48, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input9 = GUICtrlCreateInput($inifontweaponmenubold, 456, 80, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input10 = GUICtrlCreateInput($fontmenubold, 456, 152, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input11 = GUICtrlCreateInput($inifontmenusize, 456, 184, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input12 = GUICtrlCreateInput($inifontbigsize, 160, 112, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input13 = GUICtrlCreateInput($inifontbigbold, 160, 144, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label18 = GUICtrlCreateLabel("Copyright by Tenso 2007", 472, 400, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    $Save = GUICtrlCreateButton("Save", 408, 296, 129, 33, 0)
    $Change = GUICtrlCreateButton("Change", 160, 48, 67, 17, 0)
    $Button1 = GUICtrlCreateButton("Change", 160, 80, 67, 17, 0)
    $S = GUICtrlCreateButton("Font 1", 56, 48, 50, 17, 0)
    $Button2 = GUICtrlCreateButton("Font 2", 56, 80, 50, 17, 0)
    $Exit = GUICtrlCreateButton("Exit", 424, 400, 33, 17, 0)
    $About = GUICtrlCreateButton("About", 360, 400, 51, 17, 0)
    $Button3 = GUICtrlCreateButton("Standard", 272, 400, 75, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    Global $b_font[3], $a_font[3]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Save
    $inifont1 = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    $inifont2 = IniWrite($schreiben, "FONTS", "Font2", $a_font[2])
    $inifontmenusize = GUICtrlRead($Input11)
    $inifontmenusize = IniWrite($schreiben, "FONTS", "FontMenuSize", $inifontmenusize)
    $inifontconsole = GUICtrlRead($Input3)
    $inifontconsole = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontconsole)
    $inifontbigsize = GUICtrlRead($Input12)
    $inifontbigsize = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontbigsize)
    $inifontbigbold = GUICtrlRead($Input13)
    $inifontbigbold = IniWrite($schreiben, "FONTS", "FontBigBold", $inifontbigbold)
    $inifontconsolesmallsize = GUICtrlRead($Input4)
    $inifontconsolesmallsize = IniWrite($schreiben, "FONTS", "FontConsoleSmallSize", $inifontconsolesmallsize)
    $inifontconsolesmallbold = GUICtrlRead($Input5)
    $inifontconsolesmallbold = IniWrite($schreiben, "FONTS", "FontConsoleSmallBold", $inifontconsolesmallbold)
    $inifontconsolebold = GUICtrlRead($Input6)
    $inifontconsolebold = IniWrite($schreiben, "FONTS", "FontConsoleBold", $inifontconsolebold)
    $inifontweaponmenusize = GUICtrlRead($Input8)
    $inifontweaponmenusize = IniWrite($schreiben, "FONTS", "FontWeaponMenuSize", $inifontweaponmenusize)
    $inifontweaponmenubold = GUICtrlRead($Input9)
    $inifontweaponmenubold = IniWrite($schreiben, "FONTS", "FontWeaponMenuBold", $inifontweaponmenubold)
    $fontmenubold = GUICtrlRead($Input10)
    $fontmenubold = IniWrite($schreiben, "FONTS", "FontMenuBold", $fontmenubold)
    $inifontkill = GUICtrlRead($Input7)
    $inifontkill = IniWrite($schreiben, "FONTS", "KillConsoleNameSpace", $inifontkill)
    MsgBox(0, "", " Successfully! ")
    Exit
    Case $msg = $Change
    $a_font = _ChooseFont($inifont1, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $a_font[2])
    $a_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $a_font[2])
    EndIf
    Case $msg = $Button1
    $b_font = _ChooseFont($inifont2, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $b_font[2])
    $b_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    EndIf
    Case $msg = $S
    MsgBox(4096, "Font1", $inifont1, 10)
    Case $msg = $Exit
    Exit
    Case $msg = $Button2
    MsgBox(4096, "Font2", $inifont2, 10)
    Case $msg = $About
    MsgBox(4096, "About", "Programmierer: Tesno, Version: " & $version, 10)
    Case $msg = $Button3
    $up = FileSaveDialog("",@ScriptDir,"Tenso File (Standard Font) (*.ini)|Alle Dateien(*.*)",9,"font.ini"
    FileCopy("font.ini", $up)
    MsgBox(0, "", " Sucessfully! ")
    Exit

    EndSelect
    Wend

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

    Zeile 181 - 185

    Irgendwie funktioniert diese Zeile nicht.. =S
    Die Datei font.ini hab ich im gleichem Ordner..

    danke & gruss tince~~

    2 Mal editiert, zuletzt von tince (11. September 2007 um 07:59)

    ^^ oke hab gefixt..

    aber geht immer noch nicht =S

    ich will das man auch in anderen ordner speichern kann =?

    jemand ne lösung

    danke # gruss tince~~

    Edit 2: wenn ich abspeicher wird es nicht als ini datei abgespeichert -.-"xD

    ich muss immer am ende: .ini einfügen ''

    Einmal editiert, zuletzt von tince (11. September 2007 um 12:38)

    • Offizieller Beitrag

    Hallo

    Probiers mal so:

    [autoit]

    Case $msg = $Button3
    $up = FileSaveDialog("",@ScriptDir,"Tenso File (Standard Font) (*.ini)|Alle Dateien(*.*)",9,"font.ini")
    If @error Then ContinueLoop
    If StringRight($up,4) <> ".ini" Then $up &= ".ini"
    FileCopy("font.ini", $up)
    MsgBox(0, "", " Sucessfully! ")
    Exit

    [/autoit]

    Mfg Spider

    danke! das problem als ini zu speichern hat sich gelöst =)

    leider kann ich immer noch nicht in anderen ordner speichern =S

    in einem anderen verzeichnis zu speichern funktioniert irgendwie nicht =S

    Spoiler anzeigen
    [autoit]


    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=Icon1.ico
    #AutoIt3Wrapper_outfile=Tenso_Editor.exe
    #AutoIt3Wrapper_Compression=3
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_Description=Tenso 2007
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Tenso 2007
    #AutoIt3Wrapper_Res_Language=2055
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    HotKeySet("{PAUSE}", "TogglePause")

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

    Func TogglePause()
    Exit
    EndFunc
    ;--------------------------------------------------------------------------
    ;Einstellungen
    Opt("TrayMenuMode",1)

    TraySetState()
    TraySetToolTip("Soldat Font Editor")
    ;--------------------------------------------------------------------------
    ; Ini Einstellungen
    $ort = IniRead("einstellungen.ten", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ten", "SPEICHER", "Schreiben", "NotFound")
    $version = IniRead("version.ten", "VERSION", "Beta", "NotFound")
    $standard = IniRead("einstellungen.ten", "SPEICHER", "Standard", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifont1 = IniRead($ort, "FONTS", "Font1", "NotFound")
    $inifont2 = IniRead($ort, "FONTS", "Font2", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifontmenusize = IniRead($ort, "FONTS", "FontMenuSize", "NotFound")
    $inifontconsole = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigsize = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigbold = IniRead($ort, "FONTS", "FontBigBold", "NotFound")
    $inifontconsolesmallsize = IniRead($ort, "FONTS", "FontConsoleSmallSize", "NotFound")
    $inifontconsolesmallbold = IniRead($ort, "FONTS", "FontConsoleSmallBold", "NotFound")
    $inifontconsolebold = IniRead($ort, "FONTS", "FontConsoleBold", "NotFound")
    $inifontweaponmenusize = IniRead($ort, "FONTS", "FontWeaponMenuSize", "NotFound")
    $inifontweaponmenubold = IniRead($ort, "FONTS", "FontWeaponMenuBold", "NotFound")
    $fontmenubold = IniRead($ort, "FONTS", "FontMenuBold", "NotFound")
    $inifontkill = IniRead($ort, "FONTS", "KillConsoleNameSpace", "NotFound")
    ;--------------------------------------------------------------------------
    ; Form
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Editor.kxf
    $Form1 = GUICreate("Soldat Font Editor", 617, 435, 197, 118)
    $Label1 = GUICtrlCreateLabel("Font1", 16, 48, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Font 2:", 16, 80, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Font Menu Size:", 304, 184, 81, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Font Console Size:", 16, 224, 93, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label5 = GUICtrlCreateLabel("Font Big Size:", 16, 112, 69, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label6 = GUICtrlCreateLabel("Font Weapon Menu Size:", 304, 48, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label7 = GUICtrlCreateLabel("Font Console Small Size:", 16, 256, 120, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label8 = GUICtrlCreateLabel("Font Menu Bold:", 304, 152, 82, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label9 = GUICtrlCreateLabel("Font Console Bold:", 16, 320, 94, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label10 = GUICtrlCreateLabel("Font Big Bold:", 16, 144, 70, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label11 = GUICtrlCreateLabel("Font Weapon Menu Bold:", 304, 80, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label12 = GUICtrlCreateLabel("Font Console Small Bold:", 16, 288, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label13 = GUICtrlCreateLabel("Kill Console Name Space:", 16, 352, 123, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input3 = GUICtrlCreateInput($inifontconsole, 160, 224, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input4 = GUICtrlCreateInput($inifontconsolesmallsize, 160, 256, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label14 = GUICtrlCreateLabel("Font:", 16, 16, 32, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label15 = GUICtrlCreateLabel("Console:", 16, 192, 51, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input5 = GUICtrlCreateInput($inifontconsolesmallbold, 160, 288, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input6 = GUICtrlCreateInput($inifontconsolebold, 160, 320, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input7 = GUICtrlCreateInput($inifontkill, 160, 352, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label16 = GUICtrlCreateLabel("Weapon Menu:", 304, 16, 87, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label17 = GUICtrlCreateLabel("Menu:", 304, 120, 38, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input8 = GUICtrlCreateInput($inifontweaponmenusize, 456, 48, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input9 = GUICtrlCreateInput($inifontweaponmenubold, 456, 80, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input10 = GUICtrlCreateInput($fontmenubold, 456, 152, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input11 = GUICtrlCreateInput($inifontmenusize, 456, 184, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input12 = GUICtrlCreateInput($inifontbigsize, 160, 112, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input13 = GUICtrlCreateInput($inifontbigbold, 160, 144, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label18 = GUICtrlCreateLabel("Copyright by Tenso 2007", 472, 400, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    $Save = GUICtrlCreateButton("Save", 408, 296, 129, 33, 0)
    $Change = GUICtrlCreateButton("Change", 160, 48, 67, 17, 0)
    $Button1 = GUICtrlCreateButton("Change", 160, 80, 67, 17, 0)
    $S = GUICtrlCreateButton("Font 1", 56, 48, 50, 17, 0)
    $Button2 = GUICtrlCreateButton("Font 2", 56, 80, 50, 17, 0)
    $Exit = GUICtrlCreateButton("Exit", 424, 400, 33, 17, 0)
    $About = GUICtrlCreateButton("About", 360, 400, 51, 17, 0)
    $Button3 = GUICtrlCreateButton("Standard", 272, 400, 75, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    Global $b_font[3], $a_font[3]

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Save
    $inifont1 = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    $inifont2 = IniWrite($schreiben, "FONTS", "Font2", $a_font[2])
    $inifontmenusize = GUICtrlRead($Input11)
    $inifontmenusize = IniWrite($schreiben, "FONTS", "FontMenuSize", $inifontmenusize)
    $inifontconsole = GUICtrlRead($Input3)
    $inifontconsole = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontconsole)
    $inifontbigsize = GUICtrlRead($Input12)
    $inifontbigsize = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontbigsize)
    $inifontbigbold = GUICtrlRead($Input13)
    $inifontbigbold = IniWrite($schreiben, "FONTS", "FontBigBold", $inifontbigbold)
    $inifontconsolesmallsize = GUICtrlRead($Input4)
    $inifontconsolesmallsize = IniWrite($schreiben, "FONTS", "FontConsoleSmallSize", $inifontconsolesmallsize)
    $inifontconsolesmallbold = GUICtrlRead($Input5)
    $inifontconsolesmallbold = IniWrite($schreiben, "FONTS", "FontConsoleSmallBold", $inifontconsolesmallbold)
    $inifontconsolebold = GUICtrlRead($Input6)
    $inifontconsolebold = IniWrite($schreiben, "FONTS", "FontConsoleBold", $inifontconsolebold)
    $inifontweaponmenusize = GUICtrlRead($Input8)
    $inifontweaponmenusize = IniWrite($schreiben, "FONTS", "FontWeaponMenuSize", $inifontweaponmenusize)
    $inifontweaponmenubold = GUICtrlRead($Input9)
    $inifontweaponmenubold = IniWrite($schreiben, "FONTS", "FontWeaponMenuBold", $inifontweaponmenubold)
    $fontmenubold = GUICtrlRead($Input10)
    $fontmenubold = IniWrite($schreiben, "FONTS", "FontMenuBold", $fontmenubold)
    $inifontkill = GUICtrlRead($Input7)
    $inifontkill = IniWrite($schreiben, "FONTS", "KillConsoleNameSpace", $inifontkill)
    MsgBox(0, "", " Successfully! ")
    Exit
    Case $msg = $Change
    $a_font = _ChooseFont($inifont1, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $a_font[2])
    $a_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $a_font[2])
    EndIf
    Case $msg = $Button1
    $b_font = _ChooseFont($inifont2, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $b_font[2])
    $b_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    EndIf
    Case $msg = $S
    MsgBox(4096, "Font1", $inifont1, 10)
    Case $msg = $Exit
    Exit
    Case $msg = $Button2
    MsgBox(4096, "Font2", $inifont2, 10)
    Case $msg = $About
    MsgBox(4096, "About", "Programmierer: Tesno, Version: " & $version, 10)
    Case $msg = $Button3
    $up = FileSaveDialog("",@ScriptDir,"Tenso File (Standard Font) (*.ini)|Alle Dateien(*.*)",9,"font.ini")
    If @error Then ContinueLoop
    If StringRight($up,4) <> ".ini" Then $up &= ".ini"
    FileCopy("font.ini", $up)
    MsgBox(0, "", " Sucessfully! ")
    Exit

    EndSelect
    Wend

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

    Hier nochmal der Code..


    Edit:

    ~tut mir leid wegen doppelpost ~ bitte zusammenfügen~

    ach kommt leute! keine lösung? =S brauch heute irgendwie das skript ^^

    wäre dankbar wenn jemand diss löst =)


    Problem: Ich kann nicht unter einem anderen Pfad speichern... -.-" ich möchte das man überall speichern kann und nicht unter C:\Soldat\Txt\ oder soo ^^

    Script .. *see top*

    danke @gruss tince~~

    Edit GtaSpider: [13.09.2007 16:21]
    Editieren ist nich soo schwer ;) Einfach auf "ändern" drücken und editieren pusht auch...
    [Blockierte Grafik: http://img-up.net/img/Edit71gqbY.JPG]

    Edit: Naja ^^ hatte einpaar probleme mit dem Browser -.-"

    Einmal editiert, zuletzt von tince (13. September 2007 um 16:38)

    • Offizieller Beitrag

    Hi,

    habe mir gerade deine PN angeguckt. Aus meiner Sicht hast du einen Logikfehler, oder ich verstehe dein Vorgehen nicht

    Du möchstest die font.ini irgendwo speichern können. Dann würde ich sie nicht kopieren, sondern einfach neuschreiben. Wenn du Sie beim nächsten Mal automatisiert einlesen können willst, dann brauchst aber eine Datei, die immer an derselben Stelle liegt in der dieser neue Pfad gespeichert wird. Diesen liest du dann zuerst aus und anschließend deine font.ini.

    So long,

    Mega

    Habe dir den Anfang mal gemacht.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=Icon1.ico
    #AutoIt3Wrapper_outfile=Tenso_Editor.exe
    #AutoIt3Wrapper_Compression=3
    #AutoIt3Wrapper_UseAnsi=y
    #AutoIt3Wrapper_Res_Description=Tenso 2007
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Tenso 2007
    #AutoIt3Wrapper_Res_Language=2055
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstants.au3>
    #include <Misc.au3>

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

    HotKeySet("{PAUSE}", "TogglePause")

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

    Func TogglePause()
    Exit
    EndFunc ;==>TogglePause
    ;--------------------------------------------------------------------------
    ;Einstellungen
    Opt("TrayMenuMode", 1)

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

    TraySetState()
    TraySetToolTip("Soldat Font Editor")
    ;--------------------------------------------------------------------------
    ; Ini Einstellungen
    $ort = IniRead("einstellungen.ten", "SPEICHER", "Lesen", "NotFound")
    $schreiben = IniRead("einstellungen.ten", "SPEICHER", "Schreiben", "NotFound")
    $version = IniRead("version.ten", "VERSION", "Beta", "NotFound")
    $standard = IniRead("einstellungen.ten", "SPEICHER", "Standard", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifont1 = IniRead($ort, "FONTS", "Font1", "NotFound")
    $inifont2 = IniRead($ort, "FONTS", "Font2", "NotFound")
    ;-------------------------------------------------------------------------
    ; Ini Einstellungen
    $inifontmenusize = IniRead($ort, "FONTS", "FontMenuSize", "NotFound")
    $inifontconsole = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigsize = IniRead($ort, "FONTS", "FontConsoleSize", "NotFound")
    $inifontbigbold = IniRead($ort, "FONTS", "FontBigBold", "NotFound")
    $inifontconsolesmallsize = IniRead($ort, "FONTS", "FontConsoleSmallSize", "NotFound")
    $inifontconsolesmallbold = IniRead($ort, "FONTS", "FontConsoleSmallBold", "NotFound")
    $inifontconsolebold = IniRead($ort, "FONTS", "FontConsoleBold", "NotFound")
    $inifontweaponmenusize = IniRead($ort, "FONTS", "FontWeaponMenuSize", "NotFound")
    $inifontweaponmenubold = IniRead($ort, "FONTS", "FontWeaponMenuBold", "NotFound")
    $fontmenubold = IniRead($ort, "FONTS", "FontMenuBold", "NotFound")
    $inifontkill = IniRead($ort, "FONTS", "KillConsoleNameSpace", "NotFound")
    ;--------------------------------------------------------------------------
    ; Form
    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\USER\Desktop\[Tenso] Soldat Font Editor\Tenso_Editor.kxf
    $Form1 = GUICreate("Soldat Font Editor", 617, 435, 197, 118)
    $Label1 = GUICtrlCreateLabel("Font1", 16, 48, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label2 = GUICtrlCreateLabel("Font 2:", 16, 80, 39, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label3 = GUICtrlCreateLabel("Font Menu Size:", 304, 184, 81, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label4 = GUICtrlCreateLabel("Font Console Size:", 16, 224, 93, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label5 = GUICtrlCreateLabel("Font Big Size:", 16, 112, 69, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label6 = GUICtrlCreateLabel("Font Weapon Menu Size:", 304, 48, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label7 = GUICtrlCreateLabel("Font Console Small Size:", 16, 256, 120, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label8 = GUICtrlCreateLabel("Font Menu Bold:", 304, 152, 82, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label9 = GUICtrlCreateLabel("Font Console Bold:", 16, 320, 94, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label10 = GUICtrlCreateLabel("Font Big Bold:", 16, 144, 70, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label11 = GUICtrlCreateLabel("Font Weapon Menu Bold:", 304, 80, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label12 = GUICtrlCreateLabel("Font Console Small Bold:", 16, 288, 121, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label13 = GUICtrlCreateLabel("Kill Console Name Space:", 16, 352, 123, 17)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input3 = GUICtrlCreateInput($inifontconsole, 160, 224, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input4 = GUICtrlCreateInput($inifontconsolesmallsize, 160, 256, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label14 = GUICtrlCreateLabel("Font:", 16, 16, 32, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label15 = GUICtrlCreateLabel("Console:", 16, 192, 51, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input5 = GUICtrlCreateInput($inifontconsolesmallbold, 160, 288, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input6 = GUICtrlCreateInput($inifontconsolebold, 160, 320, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input7 = GUICtrlCreateInput($inifontkill, 160, 352, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label16 = GUICtrlCreateLabel("Weapon Menu:", 304, 16, 87, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Label17 = GUICtrlCreateLabel("Menu:", 304, 120, 38, 17)
    GUICtrlSetFont(-1, 8, 800, 0, "Tahoma")
    $Input8 = GUICtrlCreateInput($inifontweaponmenusize, 456, 48, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input9 = GUICtrlCreateInput($inifontweaponmenubold, 456, 80, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input10 = GUICtrlCreateInput($fontmenubold, 456, 152, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input11 = GUICtrlCreateInput($inifontmenusize, 456, 184, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input12 = GUICtrlCreateInput($inifontbigsize, 160, 112, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Input13 = GUICtrlCreateInput($inifontbigbold, 160, 144, 121, 21)
    GUICtrlSetFont(-1, 8, 400, 0, "Tahoma")
    $Label18 = GUICtrlCreateLabel("Copyright by Tenso 2007", 472, 400, 125, 17)
    GUICtrlSetFont(-1, 8, 400, 2, "Tahoma")
    $Save = GUICtrlCreateButton("Save", 408, 296, 129, 33, 0)
    $Change = GUICtrlCreateButton("Change", 160, 48, 67, 17, 0)
    $Button1 = GUICtrlCreateButton("Change", 160, 80, 67, 17, 0)
    $S = GUICtrlCreateButton("Font 1", 56, 48, 50, 17, 0)
    $Button2 = GUICtrlCreateButton("Font 2", 56, 80, 50, 17, 0)
    $Exit = GUICtrlCreateButton("Exit", 424, 400, 33, 17, 0)
    $About = GUICtrlCreateButton("About", 360, 400, 51, 17, 0)
    $Button3 = GUICtrlCreateButton("Standard", 272, 400, 75, 17, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    Global $b_font[3], $a_font[3]

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

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $Save
    _save(@ScriptDir & 'font.ini')
    MsgBox(0, "", " Successfully! ")
    Exit
    Case $msg = $Change
    $a_font = _ChooseFont($inifont1, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $a_font[2])
    $a_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $a_font[2])
    EndIf
    Case $msg = $Button1
    $b_font = _ChooseFont($inifont2, 8)
    If (@error) Then
    MsgBox(0, "", "Error _ChooseFont: " & @error)
    Else
    MsgBox(0, "", "Font Name: " & $b_font[2])
    $b_font_schreiben = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    EndIf
    Case $msg = $S
    MsgBox(4096, "Font1", $inifont1, 10)
    Case $msg = $Exit
    Exit
    Case $msg = $Button2
    MsgBox(4096, "Font2", $inifont2, 10)
    Case $msg = $About
    MsgBox(4096, "About", "Programmierer: Tesno, Version: " & $version, 10)
    Case $msg = $Button3
    $up = FileSaveDialog("", @ScriptDir, "Tenso File (Standard Font) (*.ini)|Alle Dateien(*.*)", 18, "font.ini")
    If @error Then ContinueLoop
    If StringRight($up, 4) <> ".ini" Then $up &= ".ini"
    _save($up)
    MsgBox(0, "", " Sucessfully! ")
    Exit

    EndSelect
    WEnd

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

    Func _save($schreiben)
    $inifont1 = IniWrite($schreiben, "FONTS", "Font1", $b_font[2])
    $inifont2 = IniWrite($schreiben, "FONTS", "Font2", $a_font[2])
    $inifontmenusize = GUICtrlRead($Input11)
    $inifontmenusize = IniWrite($schreiben, "FONTS", "FontMenuSize", $inifontmenusize)
    $inifontconsole = GUICtrlRead($Input3)
    $inifontconsole = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontconsole)
    $inifontbigsize = GUICtrlRead($Input12)
    $inifontbigsize = IniWrite($schreiben, "FONTS", "FontConsoleSize", $inifontbigsize)
    $inifontbigbold = GUICtrlRead($Input13)
    $inifontbigbold = IniWrite($schreiben, "FONTS", "FontBigBold", $inifontbigbold)
    $inifontconsolesmallsize = GUICtrlRead($Input4)
    $inifontconsolesmallsize = IniWrite($schreiben, "FONTS", "FontConsoleSmallSize", $inifontconsolesmallsize)
    $inifontconsolesmallbold = GUICtrlRead($Input5)
    $inifontconsolesmallbold = IniWrite($schreiben, "FONTS", "FontConsoleSmallBold", $inifontconsolesmallbold)
    $inifontconsolebold = GUICtrlRead($Input6)
    $inifontconsolebold = IniWrite($schreiben, "FONTS", "FontConsoleBold", $inifontconsolebold)
    $inifontweaponmenusize = GUICtrlRead($Input8)
    $inifontweaponmenusize = IniWrite($schreiben, "FONTS", "FontWeaponMenuSize", $inifontweaponmenusize)
    $inifontweaponmenubold = GUICtrlRead($Input9)
    $inifontweaponmenubold = IniWrite($schreiben, "FONTS", "FontWeaponMenuBold", $inifontweaponmenubold)
    $fontmenubold = GUICtrlRead($Input10)
    $fontmenubold = IniWrite($schreiben, "FONTS", "FontMenuBold", $fontmenubold)
    $inifontkill = GUICtrlRead($Input7)
    $inifontkill = IniWrite($schreiben, "FONTS", "KillConsoleNameSpace", $inifontkill)
    EndFunc ;==>_save

    [/autoit]

    oke! dann mach ich es so =)

    Edit: danke! hat super funktioniert.. ein bisschen abgeändert aber danke für den tipp!

    2 Mal editiert, zuletzt von tince (15. September 2007 um 12:09)