Hallo Leute, ich hab da nen kleines Problem
ich möchte mir einen Html Editor basteln
nur so zum Spaß und um Autoit besser zu verstehen
Hier mein aktueller code (bin neuling)
[autoit]#include <GUIConstants.au3>
#include <Misc.au3>
;Initialize variables
Global $GUIWidth = 800
Global $GUIHeight = 400
;Create window
$GUI = GUICreate("HTML Editor", $GUIWidth, $GUIHeight)
;Create an edit box with no text in it
$Edit_1 = GUICtrlCreateEdit("", 10, 10, 480, 380, 1)
;Cerate an TabItem
$tab = GUICtrlCreateTab(500, 10, 290, 380)
;Create Tab HTML
GUICtrlCreateTabItem("<Head>")
$Grund = GUICtrlCreateButton("Farbauswahl", 650, 340)
GUICtrlCreateLabel ("Backgroundcolor" ,510,40)
$bg = GUICtrlCreateEdit ("",600,40,60,20,1)
$farbe = GUICtrlCreateButton("Farbe einfügen", 680, 40, 100, 20)
GUICtrlCreateLabel ("Textcolor" ,510,60)
$text = GUICtrlCreateEdit ("",600,60,60,20,1)
$farbe_2 = GUICtrlCreateButton("Farbe einfügen", 680, 60, 100, 20)
GUICtrlCreateLabel ("Linkcolor" ,510,80)
$link = GUICtrlCreateEdit ("",600,80,60,20,1)
$farbe_3 = GUICtrlCreateButton("Farbe einfügen", 680, 80, 100, 20)
GUICtrlCreateLabel ("A Link" ,510,100)
$alink = GUICtrlCreateEdit ("",600,100,60,20,1)
$farbe_4 = GUICtrlCreateButton("Farbe einfügen", 680, 100, 100, 20)
GUICtrlCreateLabel ("V Link" ,510,120)
$vlink = GUICtrlCreateEdit ("",600,120,60,20,1)
$farbe_5 = GUICtrlCreateButton("Farbe einfügen", 680, 120, 100, 20)
GUICtrlCreateLabel ("Seiten Titel" ,510,140)
$titel = GUICtrlCreateEdit ("",600,140,60,20,1)
GUICtrlCreateLabel ("Author" ,510,160)
$aut = GUICtrlCreateEdit ("",600,160,60,20,1)
$ein = GUICtrlCreateButton ("Erstellen",600,340)
[/autoit][autoit][/autoit][autoit];Create an Tab Link
GUICtrlCreateTabItem("<Link>")
GUICtrlCreateLabel ("http://" ,510,40)
$url = GUICtrlCreateEdit("",570,40,180,20,1)
$send = GUICtrlCreateButton("Einfügen", 650, 340)
GUICtrlCreateLabel ("Linkname" ,510,60)
$urlname = GUICtrlCreateEdit("",570,60,180,20,1)
;Show window/Make the window visible
GUISetState(@SW_SHOW)
;Variablen
Global $color =""
While 1
;After every loop check if the user clicked something in the
$msg = GUIGetMsg()
Select
;Check if user clicked on the close button
Case $msg = $GUI_EVENT_CLOSE
;Destroy the GUI including the controls
GUIDelete()
;Exit the script
Exit
Case $msg = $Grund
_color()
Case $msg = $farbe
GUICtrlSetData($bg,"" & $color)
Case $msg = $farbe_2
GUICtrlSetData($text,"" & $color)
Case $msg = $farbe_3
GUICtrlSetData($link,"" & $color)
Case $msg = $farbe_4
GUICtrlSetData($alink,"" & $color)
Case $msg = $farbe_5
GUICtrlSetData($vlink,"" & $color)
Case $msg = $ein
$textfarbe = GUICTRLRead($text)
$hintergrund = GUICTRLRead($bg)
$Linkfarbe = GUICTRLRead($link)
$alinkfarbe = GUICTRLRead($alink)
$vlinkfarbe = GUICTRLRead($vlink)
$titel_1 = GUICTRLRead($titel)
$aut_1 = GUICTRLRead($aut)
GUICtrlSetData($Edit_1,'<html>'& @CRLF &'<head>'& @CRLF &'<title>'& $titel_1 &'</title>'& @CRLF &'<meta name="author" content="'& $aut_1 &'">'& @CRLF &'</head>'& @CRLF &'<body text="#'& $textfarbe &'" bgcolor="#'& $hintergrund &'" link="#' & $Linkfarbe &'" alink="#'& $alinkfarbe & '" vlink="#'& $vlinkfarbe &'">'& @CRLF &'</body>'& @CRLF &'</html>')
Case $msg = $send
$ziel = GUICtrlRead($url)
$lname = GUICtrlRead($urlname)
GUICtrlSetData ($Edit_1,'<a href="http://'& $ziel & '">'& $lname &'</a>')
EndSelect
WEnd
Func _color()
$color = _ChooseColor(1)
If (@error) Then
MsgBox(0, "", "Error _ChooseColor: " & @error)
Else
MsgBox(0, "_ChooseColor", "Hex BGR Color: " & $color)
EndIf
EndFunc ;==>_color
Das Html Grundgerüst funtioniert schon
doch wenn ich einen Link einfügen will löscht er den rest wieder aus der
Editbox
Wäre für Hilfe und Tips dankbar