Blue-Editor 2.3

xXTobi93Xx

Hab mal aus spaß nen editor gemacht der Text Dateien erstellen und bearbeiten kann.
Funktionen seht ihr im ersten Spoiler und den Quellcode im zweiten oder einfach downloaden^^

Danke an MehmeX, Sircool und AutoBert fürs helfen

Funktionen

Spoiler anzeigen

Version 1.1: -Text dateien öffnen, bearbeiten und speichern oder neu erstellen
Version 1.2: -Zeilenumbruch hinzugefügt
Version 1.3: -Ersetzen hinzugefügt
Version 1.4: -Info hinzugefügt
Version 1.5: -Absatz hinzugefügt also Linksbündig, Zentriert und Rechtsbündig
Version 1.6: -Nun auch mit Steuerung+a alles markieren-Ersetzen hinzugefügt
Version 1.7: -Unterstrichen und Durchgestrichen hinzugefügt
Version 1.8: -Kontakt hinzugefügt
Version 1.9: -Bug beseitigt
Version 2.0: -Formatierung vom text werden nichtmehr in einer config.ini gespeichert sondern in der text datei.
-Bug gefixt (Von H2112 war nur ein rechtschreibfehler xD)
-Kann maximiert werden
Version 2.1: -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.
Version 2.2: -Bugs beseitigt
Version 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.
-Such-Funktion hinzugefügt

Downloadzahlen:

Spoiler anzeigen

10.06.09: 20 mal heruntergeladen

Script im Anhang!

MfG xXTobi93Xx

Sithlord95

versuch mal in zele 51 glaub cih war das

FileWrite($var & ".txt", $Text)

dann wirds als textdatei gespeichert

xXTobi93Xx

OK danke habs dazugemacht und geht^^

**autoBert**

Hallo xXTobi93Xx,

mir sind folgende Fehler aufgefallen:

Schriftart auswählen, hier kommt bei Größe 10|12|120|14|16|24
Das Skript lässt sich nicht starten, du hast die AutoIT-Tags im Skript dabei.
Wenn das Fenster Schriftart geöffnet ist und man auf den Editor klickt kommt dieser in den Vordergrund

(in der Reihenfolge gelistet was mich am meisten stört)

Wenn man einen Text geschrieben hat und eine andere Datei öffnen will, solltest du eine Abfrage hin machen, ob man den erstellten Text vorher speichern will (Ja|Nein|abbrechen).
Das Skript ist leider sehr schwer zu lesen, da du alles linksbündig geschrieben hast.

Sieh alles nur als Anregung und Verbesserungsvorschläge an,

mfg (Auto)Bert

Awesome

Ich finds fürs erste gut

Nur man kann nicht alles Makieren

STRG+A

=)

So muss man es selber machen

MFG

MehmeX

Ich habe das ganze mal überarbeitet.

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ListBoxConstants.au3>
#include <StaticConstants.au3>

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

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

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

$Edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE+$WS_VSCROLL+$ES_AUTOVSCROLL+$ES_NOHIDESEL)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

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

$Datei = GUICtrlCreateMenu("Datei")
$Speichern = GUICtrlCreateMenuItem("Speichern", $Datei)
$oeffnen = GUICtrlCreateMenuItem("Öffnen", $Datei)

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

$Format = GUICtrlCreateMenu("Format")
$Schriftart = GUICtrlCreateMenuItem("Schriftart", $Format)
#EndRegion ### Editor © By xXTobi93Xx ================================================

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

#Region ### Schriftart ================================================
$Form2 = GUICreate("Schriftart", 380, 237, 204, 129)

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

$Label1 = GUICtrlCreateLabel("Schriftart:", 8, 8, 49, 17)
$Input1 = GUICtrlCreateInput("", 8, 24, 113, 21)
GUICtrlSetCursor (-1, 5)
$List1 = GUICtrlCreateList("", 8, 48, 113, 97)
GUICtrlSetData(-1, "Arial|Arial Black|Comic Sans MS|Times New Roman")

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

$Label2 = GUICtrlCreateLabel("Schriftschnitt:", 128, 8, 68, 17)
$Input2 = GUICtrlCreateInput("", 128, 24, 113, 21)
$List2 = GUICtrlCreateList("", 128, 48, 113, 97)
GUICtrlSetData(-1, "Fett|Fett Kursiv|Kursiv|Standard")

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

$Label3 = GUICtrlCreateLabel("Schriftgröße:", 256, 8, 60, 17)
$Input3 = GUICtrlCreateInput("", 256, 24, 113, 21, $ES_AUTOHSCROLL+$ES_NUMBER)
$List3 = GUICtrlCreateList("", 256, 48, 113, 97)
GUICtrlSetData(-1, "10|12|14|16|18|20|24")

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

$OK = GUICtrlCreateButton("OK", 8, 152, 75, 25)
$Abbrechen = GUICtrlCreateButton("Abbrechen", 8, 184, 75, 25)

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

$Group1 = GUICtrlCreateGroup("Vorschau", 168, 152, 201, 81)
$Label4 = GUICtrlCreateLabel("AaBbYyZz", 176, 168, 188, 60)
GUICtrlSetFont(-1, 20, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Vorschau = GUICtrlCreateButton("Vorschau", 88, 152, 75, 25)
#EndRegion ### Schriftart ================================================

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

GUISetState(@SW_SHOW, $Form1)

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

While 1
$nMsg = GUIGetMsg(1)

Switch $nMsg[1]

Case $Form1

Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$var = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($Edit)
FileWrite($var & ".txt", $Text)
Case $oeffnen
$var2 = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
If Not @error Then
$Text2 = FileRead($var2)
GUICtrlSetData($Edit, $Text2)
Else
MsgBox(48,"Achtung","Bitte eine Text-Datei auswählen!")
EndIf
Case $Schriftart
GUISetState(@SW_SHOW, $Form2)
EndSwitch

Case $Form2

Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
Case $List1
$Textart2 = GUICtrlRead($List1)
GUICtrlSetData($Input1, $Textart2)
Case $List2
$Schriftschnitt2 = GUICtrlRead($List2)
GUICtrlSetData($Input2, $Schriftschnitt2)
Case $List3
$Schriftgrad2 = GUICtrlRead($List3)
GUICtrlSetData($Input3, $Schriftgrad2)
Case $Abbrechen
GUISetState(@SW_HIDE, $Form2)
Case $OK
$Textart = GUICtrlRead($Input1)
$Schriftgrad = GUICtrlRead($Input3)
If $Schriftschnitt2 = "Standard" Then
GUICtrlSetFont($Edit, $Schriftgrad, 400, 0, $Textart)
;Standart: $size = "400" $wight = "0"
ElseIf $Schriftschnitt2 = "Fett Kursiv" Then
GUICtrlSetFont($Edit, $Schriftgrad, 800, 2, $Textart)
;Fett Kursiv: size = "800" And $wight = "2"
ElseIf $Schriftschnitt2 = "Fett" Then
GUICtrlSetFont($Edit, $Schriftgrad, 800, 0, $Textart)
;Fett: $size = "800" And $wight = "0"
ElseIf $Schriftschnitt2 = "Kursiv" Then
GUICtrlSetFont($Edit, $Schriftgrad, 400, 2, $Textart)
;Kursiv: $size = "400" And $wight = "2"
EndIf
GUISetState(@SW_HIDE, $Form2)
Case $Vorschau
$Textart = GUICtrlRead($Input1)
$Schriftgrad = GUICtrlRead($Input3)
If $Schriftschnitt2 = "Standard" Then
GUICtrlSetFont($Label4, $Schriftgrad, 400, 0, $Textart)
ElseIf $Schriftschnitt2 = "Fett Kursiv" Then
GUICtrlSetFont($Label4, $Schriftgrad, 800, 2, $Textart)
ElseIf $Schriftschnitt2 = "Fett" Then
GUICtrlSetFont($Label4, $Schriftgrad, 800, 0, $Textart)
ElseIf $Schriftschnitt2 = "Kursiv" Then
GUICtrlSetFont($Label4, $Schriftgrad, 400, 2, $Textart)
EndIf
EndSwitch
EndSwitch
WEnd

[/autoit]

Programm beendet sich nicht mehr, beim schließen des Schriftartfensters.
Quelltext wurde sauberer geschrieben.

Sonst muss ich sagen, gute Arbeit.

xXTobi93Xx

Zitat von AutoBert

Hallo xXTobi93Xx,

mir sind folgende Fehler aufgefallen:

1. Schriftart auswählen, hier kommt bei Größe 10|12|120|14|16|24

2. Das Skript lässt sich nicht starten, du hast die AutoIT-Tags im Skript dabei.

3. Wenn das Fenster Schriftart geöffnet ist und man auf den Editor klickt kommt dieser in den Vordergrund

(in der Reihenfolge gelistet was mich am meisten stört)

Wenn man einen Text geschrieben hat und eine andere Datei öffnen will, solltest du eine Abfrage hin machen, ob man den erstellten Text vorher speichern will (Ja|Nein|abbrechen).
Das Skript ist leider sehr schwer zu lesen, da du alles linksbündig geschrieben hast.

Sieh alles nur als Anregung und Verbesserungsvorschläge an,

mfg (Auto)Bert

Alles anzeigen

Beim 1. das is ein fehler weil der smiley das sollte eig 18 | sein und 2. der autoit tag war schlecht von mir eingefügt^^ und 3. hat MehmeX für mich verbessert DANKE dafür^^
Heute mach ich noch ein bisschen weiter mal sehen was sich da noch machen lässt.
MfG

oliverh

bug entdeckt...

script ausführen -> cm schriftart -> ohne was auszuwählen auf "vorschau" -> fehler:

Code

test.au3 (93) : ==> Variable used without being declared.:
If $Schriftschnitt2 = "Standard" Then
If ^ ERROR
>Exit code: 1	Time: 3.255

xXTobi93Xx

Zitat von oliverh
bug entdeckt...

script ausführen -> cm schriftart -> ohne was auszuwählen auf "vorschau" -> fehler:
Code
test.au3 (93) : ==> Variable used without being declared.: 
If $Schriftschnitt2 = "Standard" Then 
If ^ ERROR 
>Exit code: 1 Time: 3.255

Hab den Bug beseitigt neues script im ersten post

simon

Hi ich würde diese styles wählen (fürs edit feld)

[autoit]

$ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN

[/autoit]

Somit und den style mit d rausnehmen
Ansonsten sehr schön

xXTobi93Xx

Hab heute mal bisschen weiter gearbeitet und neue sachen hinzugefügt neues:

-Zeilenumbruch hinzugefügt
-Ersetzen hinzugefügt
-Info hinzugefügt

Mit dem markieren hab ich ABSOLUT keine ahnung wie ich das angehen soll
MfG

/Edit: ohh script is natürlich im ersten beitrag^^

Ok gerade noch Absatz hinzugefügt also Linksbündig, Zentriert und Rechtsbündig^^

**autoBert**

Zu STrg-A Text markieren, fällt mir ein, dass ~~entweder~~ Progandy ~~oder Peethebee erst diese oder letzte Woche etwas~~ hierzu ingeschrieben ~~haben~~hat,

Edit1: Link hinzugefügt, dadurch enstellten Sinn wieder hergestellt

mfg (Auto)Bert

MehmeX

Also ich habe für dich das ganze nochmal überarbeitet. Ich habe ein paar sachen verbessert und ein paar neue Funktionen eingebaut. Ich hoffe es gefällt dir. Falls du noch Fragen hast, kannst du gerne jederzeit schreiben.

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

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

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

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

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

$edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_NOHIDESEL)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

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

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

[/autoit] [autoit][/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)
#EndRegion ### Editor © By xXTobi93Xx ================================================

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

#Region ### Schriftart ================================================
$gui_schriftart = GUICreate("Schriftart", 380, 237, 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", 8, 152, 75, 25)
$button_schriftart_abbrechen = GUICtrlCreateButton("Abbrechen", 8, 184, 75, 25)

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

$group_vorschau = GUICtrlCreateGroup("Vorschau", 168, 152, 201, 81)
$label_vorschau = GUICtrlCreateLabel("AaBbYyZz", 176, 168, 188, 60)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button_vorschau = GUICtrlCreateButton("Vorschau", 88, 152, 75, 25)
#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)
;Hier wird der Button als Standard-Button Fokusiert, damit es mit der Enter-Taste betätigt werden kann.
GUICtrlSetState(-1, $GUI_DEFBUTTON)

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

$button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
#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)
$button_absatz_abbrechen = GUICtrlCreateButton("Abbrechen", 112, 40, 73, 25, 0)
#EndRegion ### Absatz ================================================

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

Dim $keys[1][2] = [["^A", "_allesmarkieren"]]

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

;Diese Funktion dient sich besser für HotKeys, da diese nur innerhalb des Fensters möglich ist.
GUISetAccelerators($keys, $gui_editor)

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

GUISetState(@SW_SHOW, $gui_editor)

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

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

Switch $nMsg[1]
Case $gui_editor

Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $beenden
Exit
Case $speichern
If $open_dialog <> -1 Then
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Else
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
EndIf
Case $speichern_unter
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Case $oeffnen
$open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
If Not @error Then
$Text2 = FileRead($open_dialog)
GUICtrlSetData($edit, $Text2)
Else
MsgBox(48,"Achtung","Bitte eine Text-Datei auswählen!")
EndIf
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 $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_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
$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^^")
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $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 $Ausschneiden
ControlFocus($edit, "", "")
Send("^X")
Case $Rueckgaengig
ControlFocus($edit, "", "")
Send("^Z")
EndSwitch

Case $gui_schriftart

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
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 0, $Textart)
;Standart: size = "400" und wight = "0"
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 2, $Textart)
;Fett Kursiv: size = "800" und wight = "2"
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 0, $Textart)
;Fett: size = "800" und wight = "0"
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 2, $Textart)
;Kursiv: size = "400" und wight = "2"
EndIf
Form2()
Case $button_vorschau
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
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
EndSwitch

Case $gui_ersetzen

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

Case $gui_absatz

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
EndSwitch
WEnd

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

Func Form2()
GUISetState(@SW_HIDE, $gui_schriftart)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc

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

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

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

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

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

Func _allesmarkieren()
ControlFocus($edit, "", "")
_GUICtrlEdit_SetSel($edit, 0, -1)
EndFunc

[/autoit]

MfG

MehmeX

Sirocool

habe mir mal erlaubt noch die funktion drucken rein zu machen

Spoiler anzeigen

[autoit]

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

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

AutoIt Version: 3.3.0.0
Author: myName

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

Script Function:
Template AutoIt script.

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

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

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

; Script Start - Add your code below here

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

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#INCLUDE<File.au3>
Global $open_dialog = -1
$iniread = IniRead(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", "")

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

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

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

$edit = GUICtrlCreateEdit("", 0, 0, 601, 417, $ES_MULTILINE+$WS_VSCROLL+$ES_WANTRETURN+$ES_NOHIDESEL)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

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

$datei = GUICtrlCreateMenu("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][/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)
#EndRegion ### Editor © By xXTobi93Xx ================================================

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

#Region ### Schriftart ================================================
$gui_schriftart = GUICreate("Schriftart", 380, 237, 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", 8, 152, 75, 25)
$button_schriftart_abbrechen = GUICtrlCreateButton("Abbrechen", 8, 184, 75, 25)

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

$group_vorschau = GUICtrlCreateGroup("Vorschau", 168, 152, 201, 81)
$label_vorschau = GUICtrlCreateLabel("AaBbYyZz", 176, 168, 188, 60)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button_vorschau = GUICtrlCreateButton("Vorschau", 88, 152, 75, 25)
#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)
;Hier wird der Button als Standard-Button Fokusiert, damit es mit der Enter-Taste betätigt werden kann.
GUICtrlSetState(-1, $GUI_DEFBUTTON)

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

$button_ersetzen_abbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
#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)
$button_absatz_abbrechen = GUICtrlCreateButton("Abbrechen", 112, 40, 73, 25, 0)
#EndRegion ### Absatz ================================================

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

Dim $keys[1][2] = [["^A", "_allesmarkieren"]]

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

;Diese Funktion dient sich besser für HotKeys, da diese nur innerhalb des Fensters möglich ist.
GUISetAccelerators($keys, $gui_editor)

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

GUISetState(@SW_SHOW, $gui_editor)

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

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

Switch $nMsg[1]
Case $gui_editor

Switch $nMsg[0]
Case $GUI_EVENT_CLOSE, $beenden
Exit
Case $speichern
If $open_dialog <> -1 Then
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Else
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
EndIf
Case $speichern_unter
$save_dialog = FileSaveDialog("Speichern...", @DesktopDir, "Text Datei (*.txt)", 16)
$Text = GUICtrlRead($edit)
FileWrite($save_dialog & ".txt", $Text)
Case $oeffnen
$open_dialog = FileOpenDialog("Öffnen...", @DesktopDir, "Text Datei (*.txt)")
If Not @error Then
$Text2 = FileRead($open_dialog)
GUICtrlSetData($edit, $Text2)
Else
MsgBox(48,"Achtung","Bitte eine Text-Datei auswählen!")
EndIf
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 $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_NOHIDESEL)
IniWrite(@ScriptDir & "\Config.ini", "Config", "Zeilenumbruch", 1)
$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^^")
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $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 $Ausschneiden
ControlFocus($edit, "", "")
Send("^X")
Case $Rueckgaengig
ControlFocus($edit, "", "")
Send("^Z")

Case $drucken
$MSprint = GUICtrlRead($Edit)
$MSwriteprint = FileWrite(@TempDir & "\printtest.txt", $MSprint)
$File = @TempDir & "\printtest.txt"
_FilePrint($File)
Sleep(500)
FileDelete(@TempDir & "\printtest.txt")
EndSwitch

Case $gui_schriftart

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
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
If $Schriftschnitt = "Standard" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 0, $Textart)
;Standart: size = "400" und wight = "0"
ElseIf $Schriftschnitt = "Fett Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 2, $Textart)
;Fett Kursiv: size = "800" und wight = "2"
ElseIf $Schriftschnitt = "Fett" Then
GUICtrlSetFont($edit, $Schriftgrad, 800, 0, $Textart)
;Fett: size = "800" und wight = "0"
ElseIf $Schriftschnitt = "Kursiv" Then
GUICtrlSetFont($edit, $Schriftgrad, 400, 2, $Textart)
;Kursiv: size = "400" und wight = "2"
EndIf
Form2()
Case $button_vorschau
$Textart = GUICtrlRead($input_schriftart)
$Schriftschnitt = GUICtrlRead($input_schriftschnitt)
$Schriftgrad = GUICtrlRead($input_schriftgroese)
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
EndSwitch

Case $gui_ersetzen

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

Case $gui_absatz

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
EndSwitch
WEnd

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

Func Form2()
GUISetState(@SW_HIDE, $gui_schriftart)
GUISetState(@SW_ENABLE, $gui_editor)
GUISetState(@SW_RESTORE, $gui_editor)
EndFunc

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

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

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

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

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

Func _allesmarkieren()
ControlFocus($edit, "", "")
_GUICtrlEdit_SetSel($edit, 0, -1)
EndFunc

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

MehmeX

Wird ja immer mehr.

Sirocool

wie so machst du es nicht so mit makieren und ausschneiden

Spoiler anzeigen

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

Case $Kopieren
Send("^C")
Case $AllesKopieren

Case $Ausschneiden
Send("^C")
Send("{DELETE}")
Case $Rueckgaengig
_GUICTRLEDIT_UNDO($Edit)
Case $Einfuegen
Send("^V")

[/autoit]

achso eb ich es vergesse beim speichern ist ein fehler diese antwort kommt da

C:\Dokumente und Einstellungen\Administrator\Desktop\Neu AutoIt v3 Script (6).au3(147,48) : WARNING: $save_dialog: possibly used before declaration.
FileWrite($save_dialog &
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^

Sen

Dürfte ich einige Code Teile bei Bedarf übernehmen?

xXTobi93Xx

Klar darfst du wenn du ein kleines danke oder so irgendwo hinmachst

Und danke an MehmeX fürs erneute überarbeiten und an Sirocool für die druken funktion^^

MfG

Achja nochmal schnell offtopic: Weis einer warum firefox abstürtzt wenn ich auf autoit.de geh?

Sen

Klar, kriegst nen Eintrag wenn ich was benutze

Danke nochmal.

Gaia297

Nette Sache, nur soweit ich das überblicken kann funktioniert die Vorschau Funktion der Schriftarten nicht, ist das gewollt?