Blue-Editor 2.3

    So sine ein paar neue funktionen drin:
    -Unterstrichen und Durchgestrichen hinzugefügt
    -Kontakt hinzugefügt
    -Farben wählen hinzugefügt

    Hab auch versucht eine 2. farbe hinzuzufügen hab aber nicht geklappt wenn einer will kann er es versuchen wird dann auch wie MehmeX und Sircool in dem programm unter Info gedankt^^

    /edit: hab den beitrag vorher mal gelöscht das es kein doppelpost ist da war nur dringestanden das neue funktionen kommen und nochwas vergessen das script ist wieder im ersten beitrag

    2 Mal editiert, zuletzt von xXTobi93Xx (14. Mai 2009 um 12:47)

    Hi Leute,

    ich habe mir erneuert den Code angeschaut und habe zwei Sachen bemerkt.

    1.
    Anstatt _IECreate() würde ich ShellExcute() benutzen. Dies ist besser, weil wenn einer den Firefox als Standard-Browser benutzt, ist es auch besser, den Browser zu öffnen.

    2.
    Zu den Speichern-Funktion, wie ich gesehen habe ist dort eine Fehlermeldung aufgetaucht. Ich habe es überarbeitet.

    Spoiler anzeigen
    [autoit]

    If $open_dialog <> -1 Then
    $Text = GUICtrlRead($edit)
    FileWrite($open_dialog & ".txt", $Text)
    Else
    $save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
    $Text = GUICtrlRead($edit)
    FileWrite($save_dialog & ".txt", $Text)
    EndIf

    [/autoit]

    Einfach kopieren und ersetzen. ;)

    Und noch was, wenn du den Quellcode hochladen willst, dann lade ihn doch immer im ersten Post hoch. Sonst haben wir in einem Thema lauder Quellcode-Dateien rumschwiren.

    Habe es im 1. beitrag hochgeladen das im beitrag hochgeladen das im post über dir ist mein versuch das man auf wunsch die farbe wechseln kann was aber nicht funktioniert^^ und danke^^

    Also es wechselt die hintergrund farbe nicht sondern nur die label und button farbe

    Hallo xXTobi93Xx,

    dein Editor wird von Tag zu Tag besser, wenn du es auch noch schaffst selektiertem Text eigene Schriftattribute zuzuweisen ist er besser als der Standard-Editor :thumbup: .Ein kleiner Bug hat sich noch eingeschichen: Ich bekomme beim Speichern einer über öffnen bearbeiteten Datei folgende Fehlermeldung beim Speichern

    Zitat

    C:\Programme\AutoIt3\Downloads\xxTobias93xx\Editor2.au3(165,48) : WARNING: $save_dialog: possibly used before declaration.
    FileWrite($save_dialog &


    dies kannst du beheben, indem du entweder direkt nach dem oeffnen $save_dialog mit dem Wert von $open_dialog vorbelegst, also so:

    Spoiler anzeigen
    [autoit]

    Case $oeffnen
    GUISetState(@SW_DISABLE, $gui_editor)
    $open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
    $save_dialog = $open_dialog

    [/autoit]

    oder beim normalen speichern den Wert von $open_dialog verwendest, also so:

    Spoiler anzeigen
    [autoit]

    Case $speichern
    GUISetState(@SW_DISABLE, $gui_editor)
    If $open_dialog <> -1 Then
    $Text = GUICtrlRead($edit)
    FileWrite($open_dialog & ".txt", $Text)

    [/autoit]

    zwecks der besseren Lesbarkeit des Skripts würde ich die 1. Lösung nehmen, funktionieren aber beide

    mfg (Auto)Bert

    Einmal editiert, zuletzt von AutoBert (14. Mai 2009 um 14:07)


    Danke für den Bug und ich werde es einmal morgen versuchen selektiertem Text eigene Schriftattribute zuzuweisen mal sehen^^
    Und danke für die verbesserung vom bug habs jetzt so gemacht und stehst auch im programm unter Info ;)

    Hallo xXTobi93Xx,

    Zitat

    Und danke für die verbesserung vom bug habs jetzt so gemacht und stehst auch im programm unter Info

    für den Bugreport mit Lösungsvorschlag, ist das der Ehre zuviel,

    mfg (Auto)Bert

    Zitat von AutoBert

    Hallo xXTobi93Xx,


    für den Bugreport mit Lösungsvorschlag, ist das der Ehre zuviel,

    mfg (Auto)Bert


    Nö^^ jeder der mir bei etwas entscheidenem (also bugs etc.) hilft der wird genannt ;)
    Achja hab noch ne neue version hochgeladen man kann jetzt nichtnur zwischen den Farben in der combo auswählen sondern alle die man will^^
    (Im ersten beitrag)
    /edit: kannst ja nochmehr helfen dann ist die "ehre" gerecht ;):rofl:
    MfG und schonmal gute nacht xXTobi93Xx

    Hallo xXTobi93Xx,

    hab dir anscheinend beim Löösungsvorschlag einen schechten Tip gegeben, einen Fehler beseitigt und dafür einen neuen eingebaut habs jetzt erst gemerkt, deshalb neuen bug beseitigt:

    Spoiler anzeigen
    [autoit]

    ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ; Author: xXTobi93Xx <[email='tobse44@googlemail.com'][/email]>
    ; Thanks to: MehmeX, Sircool and AutoBert
    ; License: CC No-Commerce
    ; Never delete this comment
    ; Never ever
    ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <ListBoxConstants.au3>
    #include <StaticConstants.au3>
    #include <GuiEdit.au3>
    #include <Misc.au3>
    #include <File.au3>
    #include <IE.au3>

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

    ;Opt('MustDeclareVars', 1) ;wenn diese Zeile aktiviert wird, müssen alle Variablen vor dem 1. Benutzen deklariert werden

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

    Global $open_dialog = -1, $save_dialog = - 1, $Farbe, $Text = ""
    $iniread = IniRead(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", "")

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

    #Region ### Editor © By xXTobi93Xx ================================================
    $gui_editor = GUICreate("Editor © By xXTobi93Xx", 602, 438, 193, 125)

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

    Global $edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
    GUICtrlSetFont(-1, 10, 400, 0, "Arial")
    If $iniread = 4 Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_NOHIDESEL)
    Else
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
    EndIf

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

    $datei = GUICtrlCreateMenu("Datei")
    $neu = GUICtrlCreateMenuItem("Neu", $datei)
    $oeffnen = GUICtrlCreateMenuItem("Öffnen...", $datei)
    $speichern = GUICtrlCreateMenuItem("Speichern", $datei)
    $speichern_unter = GUICtrlCreateMenuItem("Speichern unter...", $datei)
    GUICtrlCreateMenuItem("", $datei, -1)
    $drucken = GUICtrlCreateMenuItem("Drucken", $datei)
    GUICtrlCreateMenuItem("", $datei, -1)
    $beenden = GUICtrlCreateMenuItem("Beenden", $datei)

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

    $Format = GUICtrlCreateMenu("Format")
    $Schriftart = GUICtrlCreateMenuItem("Schriftart...", $Format)
    $Absatz = GUICtrlCreateMenuItem("Absatz...", $Format)
    $zeilenumbruch = GUICtrlCreateMenuItem("Zeilenumbruch", $Format)
    If $iniread = 4 Then
    GUICtrlSetState($zeilenumbruch, 4)
    Else
    GUICtrlSetState($zeilenumbruch, 1)
    EndIf

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

    $Bearbeiten = GUICtrlCreateMenu("Bearbeiten")
    $Rueckgaengig = GUICtrlCreateMenuItem("Rückgängig", $Bearbeiten)
    GUICtrlCreateMenuItem("", $Bearbeiten, -1)
    $Ausschneiden = GUICtrlCreateMenuItem("Ausschneiden", $Bearbeiten)
    $Kopieren = GUICtrlCreateMenuItem("Kopieren", $Bearbeiten)
    $AllesKopieren = GUICtrlCreateMenuItem("Alles Kopieren", $Bearbeiten)
    $Einfuegen = GUICtrlCreateMenuItem("Einfügen", $Bearbeiten)
    GUICtrlCreateMenuItem("", $Bearbeiten, -1)
    $Ersetzen = GUICtrlCreateMenuItem("Ersetzen...", $Bearbeiten)

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

    $MenuItem = GUICtrlCreateMenu("?")
    $Info = GUICtrlCreateMenuItem("Info...", $MenuItem)
    $Kontakt = GUICtrlCreateMenuItem("Kontakt (Für Bugs etc.)", $MenuItem)
    GUISetState(@SW_SHOW, $gui_editor)
    #EndRegion ### Editor © By xXTobi93Xx ================================================

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

    #Region ### Schriftart ================================================
    $gui_schriftart = GUICreate("Schriftart", 375, 257, 204, 129)
    GUICtrlCreateLabel("Schriftart:", 8, 8, 49, 17)
    $input_schriftart = GUICtrlCreateInput("Arial", 8, 24, 113, 21)
    GUICtrlSetCursor(-1, 5)
    $list_schriftart = GUICtrlCreateList("", 8, 48, 113, 97)
    GUICtrlSetData(-1, "Arial|Arial Black|Comic Sans MS|Times New Roman")

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

    GUICtrlCreateLabel("Schriftschnitt:", 128, 8, 68, 17)
    $input_schriftschnitt = GUICtrlCreateInput("Standart", 128, 24, 113, 21)
    GUICtrlSetCursor(-1, 5)
    $list_schriftschnitt = GUICtrlCreateList("", 128, 48, 113, 97)
    GUICtrlSetData(-1, "Fett|Fett Kursiv|Kursiv|Standard")

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

    GUICtrlCreateLabel("Schriftgröße:", 256, 8, 60, 17)
    $input_schriftgroese = GUICtrlCreateInput("10", 256, 24, 113, 21, $ES_AUTOHSCROLL + $ES_NUMBER)
    GUICtrlSetCursor(-1, 5)
    $list_schriftgroese = GUICtrlCreateList("", 256, 48, 113, 97)
    GUICtrlSetData(-1, "10|12|14|16|18|20|24|26|28|36|48|72")

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

    $button_schriftart = GUICtrlCreateButton("OK", 120, 152, 75, 25)
    GUICtrlSetColor(-1, 0x5353FF)
    $button_schriftart_abbrechen = GUICtrlCreateButton("Abbrechen", 120, 184, 75, 25)
    GUICtrlSetColor(-1, 0x5353FF)
    $group_vorschau = GUICtrlCreateGroup("Vorschau", 200, 152, 161, 57)
    $label_vorschau = GUICtrlCreateLabel("AaBbYyZz", 216, 168, 132, 36)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $button_vorschau = GUICtrlCreateButton("Vorschau", 120, 216, 75, 25)
    GUICtrlSetColor(-1, 0x5353FF)
    $Farben_Combo = GUICtrlCreateCombo("Farben", 8, 200, 105, 25)
    GUICtrlSetData(-1, "Rot|Grün|Gelbgrün|Gelb|Blau|Violett|Aquamarin|Weiß")
    $Checkbox_Unterstrichen = GUICtrlCreateCheckbox("Unterstrichen", 8, 152, 81, 17)
    $Checkbox_Durchgestrichen = GUICtrlCreateCheckbox("Durchgestrichen", 8, 176, 97, 17)
    $button_schriftart_farbe = GUICtrlCreateButton("Farbe auswählen", 8, 224, 105, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)

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

    #EndRegion ### Schriftart ================================================

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

    #Region ### Ersetzen ================================================
    $gui_ersetzen = GUICreate("Ersetzen", 335, 78, 194, 125)

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

    GUICtrlCreateLabel("Suchen Nach:", 8, 8, 73, 17)
    $input_ersetzen = GUICtrlCreateInput("", 88, 8, 145, 21)

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

    GUICtrlCreateLabel("Ersetzen mit:", 8, 40, 64, 17)
    $input_ersetzen_mit = GUICtrlCreateInput("", 88, 40, 145, 21)

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

    $button_ersetzen = GUICtrlCreateButton("Ersetzen", 248, 8, 81, 25, 0)
    GUICtrlSetState(-1, $GUI_DEFBUTTON)
    GUICtrlSetColor(-1, 0x5353FF)

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

    $button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)
    #EndRegion ### Ersetzen ================================================

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

    #Region ### Absatz ================================================
    $gui_absatz = GUICreate("Absatz", 193, 91, 231, 157)

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

    $radio_linksbuendig = GUICtrlCreateRadio("Linksbündig", 16, 16, 81, 17)
    GUICtrlSetState($radio_linksbuendig, 1)
    GUICtrlSetCursor(-1, 0)

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

    $radio_zentriert = GUICtrlCreateRadio("Zentriert", 16, 40, 81, 17)
    GUICtrlSetCursor(-1, 0)

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

    $radio_rechtsbuendig = GUICtrlCreateRadio("Rechtsbündig", 16, 64, 89, 17)
    GUICtrlSetCursor(-1, 0)

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

    $button_absatz_ok = GUICtrlCreateButton("OK", 112, 8, 73, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)
    $button_absatz_abbrechen = GUICtrlCreateButton("Abbrechen", 112, 40, 73, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)
    #EndRegion ### Absatz ================================================

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

    #Region ### Kontakt ================================================
    $gui_kontakt = GUICreate("Kontakt", 254, 134, 200, 129)
    $label_icq = GUICtrlCreateLabel("ICQ : 332632936", 8, 54, 85, 17)
    $label_autoit = GUICtrlCreateLabel("AutoIt.de Thread", 8, 80, 84, 17)
    GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    GUICtrlSetCursor(-1, 0)
    $label_text = GUICtrlCreateLabel("Ich würde mich über das Melden von Bugs" & @CRLF & "etc. freuen und fals ihr fragen habt fragt einfach^^", 8, 8, 214, 40)
    $label_email = GUICtrlCreateLabel("E-Mail: tobse44@googlemail.com", 8, 112, 161, 17)
    $button_kontakt_schliessen = GUICtrlCreateButton("Schließen", 176, 104, 73, 25, 0)
    GUICtrlSetColor(-1, 0x5353FF)
    #EndRegion ### Kontakt ================================================

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

    HotKeySet("^a", "_Allesmarkieren")

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

    While 1
    $Umbruch = True
    $NotUmbruch = False
    $nMsg = GUIGetMsg(1)

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

    Switch $nMsg[1]
    Case $gui_editor

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

    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE, $beenden
    Exit
    Case $speichern
    GUISetState(@SW_DISABLE, $gui_editor)
    If $open_dialog <> -1 Then
    If StringLower(StringRight($open_dialog, 4)) <> '.txt' Then $open_dialog = $open_dialog & '.txt'
    $Text = GUICtrlRead($edit)
    FileOpen($open_dialog, 2)
    FileWrite($open_dialog, $Text)
    FileClose($open_dialog)
    Else
    $save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
    If StringLower(StringRight($save_dialog, 4)) <> '.txt' Then $save_dialog = $save_dialog & '.txt'
    $Text = GUICtrlRead($edit)
    FileOpen($save_dialog, 2)
    FileWrite($save_dialog, $Text)
    FileClose($save_dialog)
    EndIf
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    Case $speichern_unter
    $save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
    GUISetState(@SW_DISABLE, $gui_editor)
    If StringLower(StringRight($save_dialog, 4)) <> '.txt' Then $save_dialog = $save_dialog & '.txt'
    $Text = GUICtrlRead($edit)
    FileOpen($save_dialog, 2)
    FileWrite($save_dialog, $Text)
    FileClose($save_dialog)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    Case $oeffnen
    GUISetState(@SW_DISABLE, $gui_editor)
    $open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
    If Not @error Then
    $save_dialog = $open_dialog
    $Text2 = FileRead($open_dialog)
    FileOpen($open_dialog, 0)
    GUICtrlSetData($edit, $Text2)
    FileClose($open_dialog)
    $Text = $Text2
    Else
    MsgBox(48, "Achtung", "Bitte eine Text-Datei auswählen!")
    EndIf
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    #cs doppelt
    Case $oeffnen
    GUISetState(@SW_DISABLE, $gui_editor)
    $open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
    $save_dialog = $open_dialog
    If Not @error Then
    $Text2 = FileRead($open_dialog)
    FileOpen($open_dialog, 0)
    GUICtrlSetData($edit, $Text2)
    $Text = $edit
    FileClose($open_dialog)
    Else
    MsgBox(48, "Achtung", "Bitte eine Text-Datei auswählen!")
    EndIf
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    #ce
    Case $Schriftart
    GUISetState(@SW_SHOW, $gui_schriftart)
    GUISetState(@SW_DISABLE, $gui_editor)
    Case $Ersetzen
    GUISetState(@SW_SHOW, $gui_ersetzen)
    GUISetState(@SW_DISABLE, $gui_editor)
    Case $neu
    ;If $open_dialog <> -1 Then
    If $Text <> GuiCtrlRead($edit) then ;nur wenn wirklich geändert wurde nachfragen daselbe Schema beim Öffnen auch noch einfügen
    ;daher wäre es besser eine Funktion zu schreiben die an beiden Stelen aufgerufen wird
    $MsgBox1 = MsgBox(51, "Achtung!", "Der Text wurde verändert." & @CRLF & "Aktuelle Änderungen speichern?")
    If $MsgBox1 = 6 Then
    $Text = GUICtrlRead($edit)
    FileOpen($save_dialog, 2)
    FileWrite($save_dialog, $Text)
    FileClose($save_dialog)
    $Text = "" ;auch löschen, damit beide gleich sind
    GUICtrlSetData($edit, "")
    ElseIf $MsgBox1 = 7 Then
    GUICtrlSetData($edit, "")
    $Text = "" ;auch löschen, damit beide gleich sind
    ElseIf $MsgBox1 = 2 Then
    Sleep(50)
    EndIf
    Else ;keine Änderung also Kommentarlos löscen
    GUICtrlSetData($edit, "")
    $Text = "" ;auch löschen, damit beide gleich sind
    #cs sollte jetzt überfüssig sein
    Else
    $MsgBox1 = MsgBox(51, "Achtung!", "Der Text wurde verändert." & @CRLF & "Aktuelle Änderungen speichern?")
    If $MsgBox1 = 6 Then
    $save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
    $Text = GUICtrlRead($edit)
    FileOpen($save_dialog, 2)
    FileWrite($save_dialog, $Text)
    FileClose($save_dialog)
    ElseIf $MsgBox1 = 7 Then
    GUICtrlSetData($edit, "")
    $Text = ""
    ElseIf $MsgBox1 = 2 Then
    Sleep(50)
    EndIf
    #ce
    EndIf
    Case $zeilenumbruch
    If $iniread = 4 Then
    GUICtrlSetState($zeilenumbruch, 1)
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_NOHIDESEL)
    IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
    $iniread = 1
    Else
    GUICtrlSetState($zeilenumbruch, 4)
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_NOHIDESEL)
    IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 4)
    $iniread = 4
    EndIf
    Case $Info
    GUISetState(@SW_DISABLE, $gui_editor)
    MsgBox(64, "Info!", "Editor © By xXTobi93Xx von http://www.autoit.de" & @CRLF & "Danke an alle die mir geholfen haben besonders an:" & @CRLF & "MehmeX, Sircool und AutoBert ^^")
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    Case $Kontakt
    GUISetState(@SW_SHOW, $gui_kontakt)
    GUISetState(@SW_DISABLE, $gui_editor)
    Case $Absatz
    GUISetState(@SW_SHOW, $gui_absatz)
    GUISetState(@SW_DISABLE, $gui_editor)
    Case $Kopieren
    ControlFocus($edit, "", "")
    Send("^C")
    Case $AllesKopieren
    $Text = GUICtrlRead($edit)
    ClipPut($Text)
    Case $Einfuegen
    $Clip = ClipGet()
    $Text_Einfuegen = GUICtrlRead($edit)
    GUICtrlSetData($edit, $Text_Einfuegen & $Clip)
    Case $Ausschneiden
    ControlFocus($edit, "", "")
    Send("^X")
    Case $Rueckgaengig
    ControlFocus($edit, "", "")
    Send("^Z")
    Case $drucken
    GUISetState(@SW_DISABLE, $gui_editor)
    $MSprint = GUICtrlRead($edit)
    $MSwriteprint = FileWrite(@TempDir & "\printtest.txt", $MSprint)
    $File = @TempDir & "\printtest.txt"
    _FilePrint($File)
    Sleep(500)
    FileDelete(@TempDir & "\printtest.txt")
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndSwitch

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

    Case $gui_schriftart

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

    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Form2()
    Case $list_schriftart
    $Textart2 = GUICtrlRead($list_schriftart)
    GUICtrlSetData($input_schriftart, $Textart2)
    Case $list_schriftschnitt
    $Schriftschnitt2 = GUICtrlRead($list_schriftschnitt)
    GUICtrlSetData($input_schriftschnitt, $Schriftschnitt2)
    Case $list_schriftgroese
    $Schriftgrad2 = GUICtrlRead($list_schriftgroese)
    GUICtrlSetData($input_schriftgroese, $Schriftgrad2)
    Case $button_schriftart_abbrechen
    Form2()
    Case $button_schriftart_farbe
    $Farbe = _ChooseColor(2, 255, 2, $gui_schriftart)
    Case $button_schriftart
    $Textart = GUICtrlRead($input_schriftart)
    $Schriftschnitt = GUICtrlRead($input_schriftschnitt)
    $Schriftgrad = GUICtrlRead($input_schriftgroese)
    If GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
    ;Durchgestrichen: Attribute = 8
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 8, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 10, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 8, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 10, $Textart)
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
    ;Unterstrichen: Attribute = 4
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 4, $Textart)
    ;Standart: size = "400" und wight = "0"
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 6, $Textart)
    ;Fett Kursiv: size = "800" und wight = "2"
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 4, $Textart)
    ;Fett: size = "800" und wight = "0"
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 6, $Textart)
    ;Kursiv: size = "400" und wight = "2"
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
    ;Unterstrichen und Durchgestrichen: Attribute = 12
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 12, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 14, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 12, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 14, $Textart)
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
    ;Unterstrichen und Durchgestrichen: Attribute = 12
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 0, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 2, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($edit, $Schriftgrad, 800, 0, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($edit, $Schriftgrad, 400, 2, $Textart)
    EndIf
    EndIf
    If GUICtrlRead($Farben_Combo) = "Schwarz" Then
    GUICtrlSetColor($edit, 0)
    ElseIf GUICtrlRead($Farben_Combo) = "Rot" Then
    GUICtrlSetColor($edit, 0xFF0000)
    ElseIf GUICtrlRead($Farben_Combo) = "Grün" Then
    GUICtrlSetColor($edit, 0x008000)
    ElseIf GUICtrlRead($Farben_Combo) = "Gelbgrün" Then
    GUICtrlSetColor($edit, 0x00FF00)
    ElseIf GUICtrlRead($Farben_Combo) = "Gelb" Then
    GUICtrlSetColor($edit, 0xFFFF00)
    ElseIf GUICtrlRead($Farben_Combo) = "Blau" Then
    GUICtrlSetColor($edit, 0x0000FF)
    ElseIf GUICtrlRead($Farben_Combo) = "Violett" Then
    GUICtrlSetColor($edit, 0xFF00FF)
    ElseIf GUICtrlRead($Farben_Combo) = "Aquamarin" Then
    GUICtrlSetColor($edit, 0x00FFFF)
    ElseIf GUICtrlRead($Farben_Combo) = "Weiß" Then
    GUICtrlSetColor($edit, 0xFFFFFF)
    ElseIf GUICtrlRead($Farben_Combo) = "Farben" Then
    GUICtrlSetColor($edit, $Farbe)
    EndIf
    Form2()
    Case $button_vorschau
    $Textart = GUICtrlRead($input_schriftart)
    $Schriftschnitt = GUICtrlRead($input_schriftschnitt)
    $Schriftgrad = GUICtrlRead($input_schriftgroese)
    If GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
    ;Durchgestrichen: Attribute = 8
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 8, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 10, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 8, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 10, $Textart)
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
    ;Unterstrichen: Attribute = 4
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 4, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 6, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 4, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 6, $Textart)
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_CHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_CHECKED Then
    ;Unterstrichen und Durchgestrichen: Attribute = 12
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 12, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 14, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 12, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 14, $Textart)
    EndIf
    ElseIf GUICtrlRead($Checkbox_Durchgestrichen) = $GUI_UNCHECKED And GUICtrlRead($Checkbox_Unterstrichen) = $GUI_UNCHECKED Then
    ;Unterstrichen und Durchgestrichen: Attribute = 12
    If $Schriftschnitt = "Standard" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 0, $Textart)
    ElseIf $Schriftschnitt = "Fett Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 2, $Textart)
    ElseIf $Schriftschnitt = "Fett" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 800, 0, $Textart)
    ElseIf $Schriftschnitt = "Kursiv" Then
    GUICtrlSetFont($label_vorschau, $Schriftgrad, 400, 2, $Textart)
    EndIf
    EndIf
    If GUICtrlRead($Farben_Combo) = "Schwarz" Then
    GUICtrlSetColor($label_vorschau, 0)
    ElseIf GUICtrlRead($Farben_Combo) = "Rot" Then
    GUICtrlSetColor($label_vorschau, 0xFF0000)
    ElseIf GUICtrlRead($Farben_Combo) = "Grün" Then
    GUICtrlSetColor($label_vorschau, 0x008000)
    ElseIf GUICtrlRead($Farben_Combo) = "Gelbgrün" Then
    GUICtrlSetColor($label_vorschau, 0x00FF00)
    ElseIf GUICtrlRead($Farben_Combo) = "Gelb" Then
    GUICtrlSetColor($label_vorschau, 0xFFFF00)
    ElseIf GUICtrlRead($Farben_Combo) = "Blau" Then
    GUICtrlSetColor($label_vorschau, 0x0000FF)
    ElseIf GUICtrlRead($Farben_Combo) = "Violett" Then
    GUICtrlSetColor($label_vorschau, 0xFF00FF)
    ElseIf GUICtrlRead($Farben_Combo) = "Aquamarin" Then
    GUICtrlSetColor($label_vorschau, 0x00FFFF)
    ElseIf GUICtrlRead($Farben_Combo) = "Weiß" Then
    GUICtrlSetColor($label_vorschau, 0xFFFFFF)
    ElseIf GUICtrlRead($Farben_Combo) = "Farben" Then
    GUICtrlSetColor($label_vorschau, $Farbe)
    EndIf
    EndSwitch

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

    Case $gui_ersetzen

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

    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Form3()
    Case $button_ersetzen_abbrechen
    Form3()
    Case $button_ersetzen
    $Text = GUICtrlRead($edit)
    $Suchen = GUICtrlRead($input_ersetzen)
    $Ersetzen = GUICtrlRead($input_ersetzen_mit)
    $String = StringReplace($Text, $Suchen, $Ersetzen)
    If Not @error Then
    GUICtrlSetData($edit, $String)
    Form3()
    Else
    MsgBox(48, "Achtung", "Bitte alles ausfüllen!")
    EndIf
    EndSwitch

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

    Case $gui_absatz

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

    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Form4()
    Case $button_absatz_abbrechen
    Form4()
    Case $button_absatz_ok
    If $Umbruch = True Then
    If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN)
    Form4()
    ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_CENTER)
    Form4()
    ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $ES_RIGHT)
    Form4()
    EndIf
    ElseIf $NotUmbruch = True Then
    If GUICtrlRead($radio_linksbuendig) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL)
    Form4()
    ElseIf GUICtrlRead($radio_zentriert) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_CENTER)
    Form4()
    ElseIf GUICtrlRead($radio_rechtsbuendig) = $GUI_CHECKED Then
    GUICtrlSetStyle($edit, $ES_MULTILINE + $WS_VSCROLL + $ES_WANTRETURN + $WS_HSCROLL + $ES_RIGHT)
    Form4()
    EndIf
    EndIf
    EndSwitch
    Case $gui_kontakt

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

    Switch $nMsg[0]
    Case $GUI_EVENT_CLOSE
    Form5()
    Case $button_kontakt_schliessen
    Form5()
    Case $label_autoit
    $oIE = ShellExecute("http://autoit.de/index.php?page=Thread&threadID=11983")
    EndSwitch
    EndSwitch
    WEnd

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

    #Region ### Funktionen ================================================
    Func Form2()
    GUISetState(@SW_HIDE, $gui_schriftart)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form2

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

    Func Form3()
    GUISetState(@SW_HIDE, $gui_ersetzen)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form3

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

    Func Form4()
    GUISetState(@SW_HIDE, $gui_absatz)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form4

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

    Func Form5()
    GUISetState(@SW_HIDE, $gui_kontakt)
    GUISetState(@SW_ENABLE, $gui_editor)
    GUISetState(@SW_RESTORE, $gui_editor)
    EndFunc ;==>Form5

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

    Func _Allesmarkieren()
    ControlFocus($edit, "", "")
    _GUICtrlEdit_SetSel($edit, 0, -1)
    EndFunc ;==>_Allesmarkieren
    #EndRegion ### Funktionen ================================================

    [/autoit]

    mit den Farben hast du dir ja viel Mühe gegeben, genauso wie mit dem Rest bei der Textformatierung. Nach Neustart und laden der Datei sind alle Formatierungen verschwunden, dass liegt meines Erachtens nach an dem Steuerelement Edit, du müsstest praktisch beim Speichern Zeile für Zeile nach Formatierungen untersuchen, und diese in irgendeiner Art und Weise mit in die Datei speichern, Beim Öffnen genau umgedreht nach deinen eigenen Formatierungsbefehen suchen diese auf den Zeilentext anwenden und aus dem Text entfernen (soll ja nur das Ergebiss sichtbar sein, aber nicht der Formatierubngsbefehl). Ich kann mich natürlich auch täuschen, daher die anderen Editorenprogrammierer fragen, ob es auch einfacher geht, ich hab mir bis jetzt noch keinen Editor geschrieben

    mfg (Auto)Bert

    Also hab mal bisschen weitergearbeitet^^
    Der editor speichert jetzt keine leeren text dateien mehr und er speichert die farbe, schriftart, schriftgröße und durchgestrichen/unterstrichen mit ABER das bis jetzt nur in einer ini datei bin bis jetzt auf keine andere lösung gestoßen^^
    Die config.ini seht nach dem speichern dann so aus:

    Spoiler anzeigen

    [HIER STEHT DER SPEICHERPFAD]
    Farbe=
    Schriftschnitt=
    Schriftgrad=
    Textart=


    MfG xXTobi93Xx :D

    Wird ja immer besser, weiter so. ;) :thumbup:
    Ich würde mich auch sehr freuen wenn Ihr meinen Editor anschauen würdet, danke. :thumbup:

    Ein paar Bugs:
    - Wenn du im Menü Format auf Schrifart gehst und dann einfach so auf Vorschau klickst, bekommst du nen Error, weil in der ListView Farben, "Farben" als Standard angegeben ist.

    Format Bugs:
    - Unterstrichen und Durchgestrichen funktioniert nicht
    - Links-, Rechtsbündig und Zentriert funktionieren nicht
    - Größe und Schriftart ändern funktioniert nicht
    - Bei der Vorschau von Schriftart wird nur die Farbe geändert

    Aber die Format Bugs passieren nicht, wenn du bei Schriftschnitt Standard auswählst.
    Das könnte an dem Rechtschreibfehler liegen, der über der Auswahl ist. (Standar't')

    Sonst find ich den Editor wirklich super! Echt gute Arbeit :)

    PS: Ist keine Kritik, eher Verbessrungsvorschläge! ;)

    Zitat

    [Heute, 11:39] Raupi: Soll ich es dir machen?
    [Heute, 11:47] BugFix: "Soll ich es dir machen? " - also Raupi !! bitte nicht so öffentlich :rofl:

    Zitat

    [Heute, 11:51] BugFix: und ich werde es mir jetzt machen - das Mittagessen :P

    AMsg UDF v1.00.00 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 100%
    OwnStyle UDF Version 1.10.00 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 100%

    alles kopieren geht so den rest schauen ich gerade nach

    Spoiler anzeigen


    Case $AllesKopieren
    ControlFocus($edit, "", "")
    _GUICtrlEdit_SetSel($edit, 0, -1)

    gelobt sei google 8)

    und mit den unterstrich oder druchgestriechen schaumal ihr klick vieleicht hilft dir das weiter bei front würde ich bei dir so machen


    front=(GUICtrlRead(""))deine namen reinschreiben lassen von der auswahl der schriften

    So lange zeit nichts von mir gehört^^
    Neu ist:

    Spoiler anzeigen

    Formatierung vom text werden nichtmehr in einer config.ini gespeichert sondern in der text datei.
    Bug gefixt (Von H2112 war nur ein rechtschreibfehler xD)
    Und Fenster kann Maximiert werden^^

    Script im 1. Beitrag

    alles kopieren geht wieder nicht hast nicht reingemacht was ich oben geschieben habe.
    allso ich weiss nicht ob das bei dir gerade geht mit kopieren oder so also bei mir geht das nicht deine variante wenn ich das von mir rein machen was ich über goggle gesucht habe geht es

    Case $AllesKopieren
    ControlFocus($edit, "", "")
    _GUICtrlEdit_SetSel($edit, 0, -1)

    Sicher das du Alles Kopieren meinst? also bei mir geht es zu 100% das was du geschrieben hast ist alles markieren funktion^^

    Hallo xXTobi93Xx,

    ich habs mir gerade deine 2.0 Version heruntergeladen und wollte eine Datei, die mit Vorgängerversion erstellt war öffnen. Der Text wurde nicht geladen, aber das Fenster wieder normalisiert (ich hatte es vorher maximiert). Ich werde mal weiter testen und dies dann hier melden (bis neue Version kommt).
    Aber bitte keine Hektik, lass dir mit dem Update Zeit, weil lieber eine 2.1 die funkioniert als eine 3.x die immer noch die Kinderkrankheiten von 1.0 hat, oder willst du ins Wettrennen um die höchste Versionsnummer (und den meisten Bugs) einsteigen
    Auch sind keine wichtigen Texte mit der Vorgängerversion gespeichert worden, so dass von meiner Seite kein Bedarf besteht, ein Konvertierungsprogramm zu schreiben.

    Einen schönen sonnigen Feiertag

    mfg (Auto)Bert

    Vorheriger Post 21.05.09, (00:51) (Wieder gelöscht das kein doppelpost ist^^)

    Spoiler anzeigen

    Danke AutoBert ich kenn das problem und diese version ist nur vorübergehend um euch bisschen auf dem laufenden zu halten^^
    Das liegt daran das in zeile 1-4 nicht die formatierung gespeichert ist^^
    Villt kommt die neue version heute wenn nicht spätestens morgen
    /edit: Habs jetzt auch mal als Überschrift geschrieben^^
    /edit2: Fast vergessen :P gute nacht euch allen

    Es wurden Bugs behoben z.B. das auch Text dateien die mit einem anderen Editor erstellt wurden (Ohne formatierung in den ersten 4 zeilen) auch geladen werden können.
    (Script wieder im ersten Beitrag)
    MfG und schönen Feiertag xXTobi93Xx

    Vorheriger Post 21. Mai 2009, (16:29) (Wieder gelöscht das kein doppelpost ist^^)

    Spoiler anzeigen

    Hab das falsche hochgeladen xD
    Hab ein paar bugs beseitigt.
    Jetzt kann man wirklich alle .txt dateien öffnen^^
    (Script im 1. Post)
    MfG und schönen feiertag xXTobi93Xx 8)

    Neue Version des Editors (2.3)

    Der Editor heißt nun "Blue-Editor", Bug gefixt (Wenn fenster Maximiert ist bleibt es auch so^^), Zeit und Datum kann nun eingefügt werden und eine Such-Funktion hinzugefügt.

    MfG xXTobi93Xx