Smileys im RichEdit

Jam00

Also ich hab mal ein Script gemacht, mit einer RichEdit, und da wollte ich jetzt es so machen, das sobald bestimmte zeichenfolgen (":-)" usw.) im text sind, das die von bildern überschreiben werden!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>

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

$Form1 = GUICreate("Form1", 633, 447, 372, 251)
$Edit = _GUICtrlRichEdit_Create($Form1, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState(@SW_SHOW)

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

While 1
$Text =_GUICtrlRichEdit_GetText($Edit)
$Suche = StringReplace ($Text,":-)","Hier soll jetzt das bild erscheinen")
If $Suche <> $Text Then
_GUICtrlRichEdit_SetText($Edit,$Suche)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

L3viathan

Wo ist da das RichEdit?

**BugFix**

Nicht nur Kein RichEdit, sondern überhaupt kein Edit...

**peethebee**

Eigeninitiative wird in diesem (und in allen) Foren sehr geschätzt.
Wenn wir sagen, dass wir Code sehen wollen, dann bitte auch einen ernsthaften Versuch, irgendwelchen Code können wir auch selbst schreiben...

Zum Thema:
Soweit ich weiß, unterstützen RichEdit-Controls das nicht. HTML anzeigen in einem Embedded-IE ist wohl der leichtere Weg.

peethebee

Jam00

Oh, blöder fehler hab das falsche Script gepostet Hab es geändert, Post 1

Jam00

Kann mir niemand helfen?

**peethebee**

Hilfe durch Wiederholung:

Zitat von peethebee

Zum Thema:
Soweit ich weiß, unterstützen RichEdit-Controls das nicht. HTML anzeigen in einem Embedded-IE ist wohl der leichtere Weg.

peethebee

progandy

RichEdits unterstützen schon Bilder aber mit dem IE ist das um einiges einfacher
Bei RichEdit muss man das ganze mit RTF-Code machen, dazu die Bilder als OLE-Objekt erstellen...
Ein Beispiel ist hier: http://www.autoitscript.com/forum/index.php?showtopic=83763&hl=Rich+Edit (nur .bmp, alles andere zu schwer)

Jam00

Wie geht das denn mit dem IE? Kann man da denn auch text reinmachen und so?

progandy

Ja: ein Beispiel: http://www.autoitscript.com/forum/index.php?showtopic=71506

Jam00

Das ist aber ein bischen kompliziert, also als beispeil!

Sollte bei dem Beispiel von der RichEdit nich ein bild drin sein? Bei mir ist da nähmlick keins!

progandy

Oh, ja. Dann ist da ein Fehler in meiner UDF, dachte das war nur in meiner Test-Version und hab es schon länger gefixt...
*Update*
[OT] Die Downloadzahlen gefallen mir

OT

Code

.  	   Datei   	  Kategorie   	   Unterkat.   	  Veröffentlicht   	   Donwloads
  	  AutoIt Editor - with Printing UDF   	AutoIt UDFs  	-  	Published  	205  Link  	 
	Avatar MR-X 	TrackMania United 	- 	Published 	128  Link 	 
	com_securityimages4.1.2 	JOOMLA! Downloads 	/Komponenten 	Published 	231  Link 	 
	Fang Schnappi 	Schnappi 	- 	Published 	63  Link 	 
	GDI UDFs 	AutoIt UDFs 	- 	Published 	172  Link 	 
	GDIplus Progressbar UDF 	Misc 	- 	Published 	645  Link 	 
	Hack - Admin Fehllogin speichern 	JOOMLA! Downloads 	/Hacks 	Published 	84  Link 	 
	Hack - administrator -fehllogin speichern 1.0.13 	JOOMLA! Downloads 	/Hacks 	Published 	100  Link 	 
	Hack - Template Choose Ext 	JOOMLA! Downloads 	/Hacks 	Published 	86  Link 	 
	IEView with [CODE] patch 	Misc 	- 	Published 	81  Link 	 
	Mambot - MosTitleBreak 	JOOMLA! Downloads 	/Bots 	Published 	148  Link 	 
	Mambot - MosTitleBreakCategory 	JOOMLA! Downloads 	/Bots 	Published 	98  Link 	 
	mambot - passwort 	JOOMLA! Downloads 	/Bots 	Published 	1120  Link 	 
	Mambot - ponysearchcat0.3 	JOOMLA! Downloads 	/Bots 	Published 	85  Link 	 
	Modul - Latest News CutMod 	JOOMLA! Downloads 	/Module 	Published 	66  Link 	 
	Modul - PHPCODE 	JOOMLA! Downloads 	/Module 	Published 	103  Link 	 
	Modul - Popular CutMod 	JOOMLA! Downloads 	/Module 	Published 	57  Link 	 
	MySQL UDf 	AutoIt UDFs 	- 	Published 	400  Link 	 
	Plugin - passwort Joomla 1.5 	JOOMLA! Downloads 	/Bots 	Published 	443  Link 	 
	RichEdit UDF 	AutoIt UDFs 	- 	Published 	408  Link

Alles anzeigen

[/OT]

Jam00

Wo ist denn das Update?

Jam00

Oki, hab das Update, jetzt gehts Kann mir jetzt jemand sagen wie ich es hinbekomme, das bei jeder Zeichenfolge (wie ":-)") ein Bild eingefügen kann? Es muss nicht umbedingt sofor pasieren! Also ich will einen Chat machen, und da Smylies reinmachen, dann kann man es senden, und erst dann tuachen die Smylies auf, wenn es so besser geht

EDIT: Ich hab hier mal was probiert, warum geht das nicht?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>

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

$Form1 = GUICreate("Form1", 633, 447, 372, 251)
$Edit = _GUICtrlRichEdit_Create($Form1, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState(@SW_SHOW)
While 1
$Text =_GUICtrlRichEdit_GetText($Edit)
$Suche = StringReplace ($Text,":-)",_RTF_GetBMPRTF(@WindowsDir & "\Angler.bmp") )
If $Suche <> $Text Then
_GUICtrlRichEdit_SetText($Edit,$Suche)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _RTF_GetBMPRTF($BMPFile)
If Not (StringRight($BMPFile,4) = ".bmp") Then Return SetError(1, 0, "")
Local $Data = FileOpen($BMPFile, 16)
If FileRead($Data, 2) <> "0x424D" Then Return SetError(1, 0, "")
FileRead($Data, 12)
Local $RTF = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($Data)) & '}}'
FileClose($Data)
Return $RTF
EndFunc ;==>_RTF_GetBMPRTF

[/autoit]

progandy

weil du RTF-Code und normalen Text nicht mischen kannst. Du musst den normalen Text und den RTF-Bildcode getrennt setzen.

Jam00

Kants du das genauer erklären? THX

progandy

die bilder werden in RTF-code umgewandelt. Dieser kann aber nicht innerhalb von "normalem" Text eingefügt werden, sondern nur, wenn der kompplette String RTF-Code ist. Also musst du erst den Teil vor dem Smiley, dann den Smiley und dann den Teil nach dem Smiley einfügen.

Jam00

Achso, dann probier ich das mal

EDIT: Warum geht das dann nicht? Genau so ist das doch auch im beispiel!

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiRichEdit.au3>

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

$Form1 = GUICreate("Form1", 633, 447, 372, 251)
$Edit = _GUICtrlRichEdit_Create($Form1, 10, 10, 480, 420, BitOR($ES_WANTRETURN, $ES_SUNKEN, $ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
GUISetState(@SW_SHOW)

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

While 1
$Text =_GUICtrlRichEdit_GetText($Edit)
$Suche = StringReplace ($Text,":-)","")
If $Suche <> $Text Then
_GUICtrlRichEdit_SetText($Edit,$Suche)
_GUICtrlRichEdit_AppendText($Edit,_RTF_GetBMPRTF(@WindowsDir & "\Angler.bmp"))
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _RTF_GetBMPRTF($BMPFile)
If Not (StringRight($BMPFile,4) = ".bmp") Then Return SetError(1, 0, "")
Local $Data = FileOpen($BMPFile, 16)
If FileRead($Data, 2) <> "0x424D" Then Return SetError(1, 0, "")
FileRead($Data, 12)
Local $RTF = '{\rtf1{\pict\dibitmap ' & Hex(FileRead($Data)) & '}}'
FileClose($Data)
Return $RTF
EndFunc ;==>_RTF_GetBMPRTF

[/autoit]

Jam00

Kann mir das jemand sagen, wa sich falsch mache?

progandy

Für Bilder brauchst du ein OLE-Callback:
_GUICtrlRichEdit_SetOLECallback($Edit)