GUI - Text in Edit-Feld an derzeitiger Text-Cursor-Position einfügen

Schrubber

Hallo,

ich bin nach langer Abwesenheit mal wieder da. Hier mir einer (für mich) schweren Fragen.

Ich programmiere gerade eine Art "HTML-Liveeditor. Neben der Tatsache, dass er immer meinen IE10 nimmt (und ich ihn nich in den IE9-Modus gepackt krieg) hab ich ein kleines Problem. Und zwar würde ich gerne, wenn der Cursor in dem Edit-Feld ist und der Button / Shortcut gedrückt wird, an der aktuellen Stelle (wo der Text-Cursor ist) einen Text einfügen. Wie mach ich das?

Mein derzeitiges Programm ist ja unwichtig, da es sich um eine grundlegende Frage handelt.

Grüße,
Schrubber

Yjuq

Zitat von "Schrubber"

Mein derzeitiges Programm ist ja unwichtig, da es sich um eine grundlegende Frage handelt.

Hast was zu verbergen was? oO
Zudem wäre ein Skript immer gut...
Vor allem weil ich so faul bin eine GUI zu programmieren...
Aber ich will mal nicht so sein und gehe mal davon aus dass du nächstes mal ein Skript mitlieferst.

Du musst als erstes die Cursor Position ermitteln.
Dafür gibt es keine eigene Funktion, aber du kannst den markierten Bereich ermitteln.
Eine Funktion dazu findest du in der GUIEdit.au3.

Mit einer weiteren Funktion kannst du dann an einer bestimmten Stelle wieder ein String einfügen.
Auch so eine Funktion findest du in der GUIEdit.au3.

Da es sich um eine grundliegende Antwort handelt, ist das Skript was ich dazu geschrieben habe ja unwichtig.

LG. Make-Grafik

Spoiler anzeigen

[autoit]

; Aber ich will mal nicht so sein...

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

#include <GUIConstants.au3>
#include <GUIEdit.au3>

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

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

$hGUI = GUICreate('Example', 400, 300)
$idEdit = GUICtrlCreateEdit('', 0, 0, 400, 280)
$idButton = GUICtrlCreateButton('Shortcut', 300, 280, 100, 20)
GUISetState()

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

; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +

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

While True
$aiSel = _GUICtrlEdit_GetSel($idEdit) ; Ermittelt Start und Endposition der Markierung
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $idButton
_GUICtrlEdit_InsertText($idEdit, 'Make-Grafik', $aiSel[1]) ; String einfügen
EndSwitch
WEnd

[/autoit]

Schrubber

Nö, nix zu verbergen. Wenn ich aber eine Frage wie z.B. "Wie mäht man einen Rasen?", fragt auch keiner nach einem Bild vom Rasen

Wenns wirklich einen interessiert:

Spoiler anzeigen

[autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>

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

_IEErrorHandlerRegister()

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

Local $s_TempFile
Local $sIni = ".\Templator.ini"
Local $oIE = _IECreateEmbedded()

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

If Iniread($sIni, "Preferences", "Tempfile", "") == "" Then
IniWrite($sIni, "Preferences", "Tempfile", $s_TempFile)
$s_TempFile = _TempFile(@TempDir, "", ".html", 7)
Else
$s_TempFile = Iniread($sIni, "Preferences", "Tempfile", "")
EndIf

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

FileDelete($s_TempFile)
FileCopy("./Examples/New.html", $s_TempFile)

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

$guiWidth = Iniread($sIni, "Preferences", "Desktopwidth", 800)
$guiHeight = Iniread($sIni, "Preferences", "Desktopheight", 600)

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Tabbed Notebook Dialog", $guiWidth-10, $guiHeight, 65, 0)
$MenuDatei = GUICtrlCreateMenu("&Datei")
$MenuDatei1 = GUICtrlCreateMenuItem("Neu", $MenuDatei)
$MenuDatei2 = GUICtrlCreateMenuItem("Save Lothar", $MenuDatei)
$MenuDatei3 = GUICtrlCreateMenuItem("Save Monika", $MenuDatei)
$MenuDatei4 = GUICtrlCreateMenuItem("Beenden", $MenuDatei)
$MenuAdd = GUICtrlCreateMenu("&Hinzufügen")
$MenuAdd1 = GUICtrlCreateMenuItem("Liste", $MenuAdd)
$MenuAdd2 = GUICtrlCreateMenuItem("Textbox", $MenuAdd)
$MenuFormat = GUICtrlCreateMenu("&Formatieren")
$MenuFormat1 = GUICtrlCreateMenuItem("Schriftgröße", $MenuFormat)
$MenuFormat2 = GUICtrlCreateMenuItem("Ausrichtung", $MenuFormat)
$MenuFormat3 = GUICtrlCreateMenuItem("Schriftfarbe", $MenuFormat)
$MenuInfo = GUICtrlCreateMenu("&Info")
$MenuInfo1 = GUICtrlCreateMenuItem("Hilfe", $MenuInfo)
GUISetBkColor(0xFFFFFF)
$PageControl1 = GUICtrlCreateTab(2, 2, $guiWidth-15, $guiHeight-50)
$Normal = GUICtrlCreateTabItem("Normal")
$edit_NORMAL = GUICtrlCreateEdit("", 8, 30, $guiWidth-30, $guiHeight-90)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$HTML = GUICtrlCreateTabItem("HTML")
$edit_HTML = GUICtrlCreateEdit("", 8, 30, $guiWidth-30, $guiHeight-90)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Vorschau = GUICtrlCreateTabItem("Vorschau")
GUICtrlCreateObj($oIE, 8, 35, $guiWidth-30, $guiHeight-90)
$spacer = GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_IENavigate($oIE, $s_TempFile)

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

While 1
$nMsg = GUIGetMsg()
if $nMsg > 0 Then
;MSGBOX(0, "", $nMsg)
EndIf

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

Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Normal
MSGBOX(0, "", "Normal")

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

Case 17
_reloadAll()

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

EndSwitch
WEnd

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

Func _reloadAll()
FileDelete($s_TempFile)
FileWrite($s_tempFile, GUICtrlRead($edit_HTML))
_IEAction($oIE, "refresh")
EndFunc

[/autoit]

Werde mal schauen, was ich finde. Hab da noch nen weiteres Problem, aber das erläuter ich beim nächsten Mal

Grüße,
Schrubber

Schrubber

Hey,

ich bins nochmal. Irgendwie schaff ich es nicht, deine Lösung bei mir zu Nutzen. Bekomme keinen Rückgabewert Hier mein Code:

[autoit]

#include <EditConstants.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIEdit.au3>
#include <IE.au3>
#include <File.au3>