Ich habe zwei Probleme

[Claiver]

Ich will dass ich in einem Edit das verschiedene Wörter verschiedene Farben haben... z.b so :


Und das man des Edit nicht bearbeiten kann wenn man draufdrückt und etwas eingibt... Halt wie bei einem Chat, nur wenn man Senden drückt soll es geschickt werden...

[BladeTiger12]

Wenn du nicht mal das kannst:
"Und das man des Edit nicht bearbeiten kann wenn man draufdrückt und etwas eingibt... Halt wie bei einem Chat, nur wenn man Senden drückt soll es geschickt werden..."

Dann lern lieber erstmal die AutoIt Grundlagen. Das mit den Farbigen Chat kannst du dann auch ein anderes mal machen.

[Croco™]

Um das Edit Control zu deaktivieren benutzt du GUICtrlSetState() und für die Farbe die RichEdit UDF. Den Rest musst du dir selbst erarbeiten.

[alpines]

Wenn du mehrere Farben bzw. Styles innerhalb eines Edits haben möchtest, dann musst du -sofern du es keine andere Variante gibt- den RichEdit Ctrl nutzen.
Das Färben ist anfangs ein bisschen schwer aber man gewöhnt sich dran.

[Claiver]

Originally Posted by Croco™

Um das Edit Control zu deaktivieren benutzt du GUICtrlSetState() und für die Farbe die RichEdit UDF. Den Rest musst du dir selbst erarbeiten.

Und was muss dann bei GUICtrlSetState rein?

GuiCtrlSetState(-1, ???)

[BladeTiger12]

Claiver jetzt im ernst.
Lern bitte die Grundlagen.
Wenn du jetzt auch nicht weißt was dahin muss...
"$GUI_DISABLE oder 128".
Dann ist es echt fail.

[Claiver]

Originally Posted by BladeTiger12

Claiver jetzt im ernst.
Lern bitte die Grundlagen.
Wenn du jetzt auch nicht weißt was dahin muss...
"$GUI_DISABLE oder 128".
Dann ist es echt fail.

Des weis ich doch! Das Problem ist, dass die Farben dann nicht sichtbar sind... Dann ist alles nur noch grau!

[BladeTiger12]

Ja deswegen gibts $ES_READONLY.
Das fügt man aber per:

#include <EditConstants.au3>
GUICtrlSetStyle($Edit,$ES_READONLY)

[alpines]

GUICtrlSetData hat bei dem RichEdit Control nichts verloren.

Die Befehle wirst du wahrscheinlich brauchen:

_GUICtrlRichEdit_SetFont($Edit1, 14, "Consolas")
_GUICtrlRichEdit_SetCharAttributes($Edit1, "+bo")
_GUICtrlRichEdit_AppendText($Edit1, $sEntry)
_GUICtrlRichEdit_SetSel($Edit1, _GUICtrlRichEdit_GetFirstCharPosOnLine($Edit1, $iLine), -1, True)
_GUICtrlRichEdit_SetCharColor($Edit1, 16711680)

Habs aus meinem Programm einfach mal rausgeschnitten. Das färbt jede neue Zeile mit den Eigenschaften.

Wichtig bei der Farbe ist aber das keine Hex-Farbcodes sind! Farbkonvertierung erledigst du mit

#include <Color.au3>

[Claiver]

Ehhm... Ich brauche des RichEdit zum Download, da ich es finde aber Fehler auftreten wenn ich es include... Oder ich mache etwas falsch...

[alpines]

GUIRichEdit.au3 musst du includen, die Befehle sind nur Beispiele und werden eingefügt nicht funktionieren.

[Claiver]

Originally Posted by alpines

GUIRichEdit.au3 musst du includen, die Befehle sind nur Beispiele und werden eingefügt nicht funktionieren.

Ich hab es includet... Ich habe nichtmal deinen Code gemacht. Sogar wenn ich nur einen Script öffne mit nur 1 Zeile wo #include <GuiRichEdit.au3> steht, funktioniert es nicht...
Da kommt dieser Fehler

C:\Program Files (x86)\AutoIt3\Include\GuiRichEdit.au3(340,82) : ERROR: $WM_LBUTTONDBLCLK previously declared as a 'Const'.
If Not IsDeclared("WM_LBUTTONDBLCLK") Then Global Const $WM_LBUTTONDBLCLK = 0x203
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\GuiRichEdit.au3(341,78) : ERROR: $WM_LBUTTONDOWN previously declared as a 'Const'.
If Not IsDeclared("WM_LBUTTONDOWN") Then Global Const $WM_LBUTTONDOWN = 0x201
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\GuiRichEdit.au3(344,82) : ERROR: $WM_RBUTTONDBLCLK previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONDBLCLK") Then Global Const $WM_RBUTTONDBLCLK = 0x206
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\GuiRichEdit.au3(345,78) : ERROR: $WM_RBUTTONDOWN previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONDOWN") Then Global Const $WM_RBUTTONDOWN = 0x204
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Program Files (x86)\AutoIt3\Include\GuiRichEdit.au3(346,74) : ERROR: $WM_RBUTTONUP previously declared as a 'Const'.
If Not IsDeclared("WM_RBUTTONUP") Then Global Const $WM_RBUTTONUP = 0x205
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Users\Kagan\Desktop\AutoIt\ChatBot.au3 - 5 error(s), 0 warning(s)

[alpines]

Reinstallier mal die 3.3.8.1 oder die 3.3.10.1.

[Claiver]

Okee klappt jetzt... Jetzt muss ich nurnoch des mit der Farbe hinbekommen... Dankee

...
Also Ich mache jetzt einfach ein: _GUICtrlRichEdit_SetCharColor($Edit1,"") rein aber ich weis jetzt nicht wie ich die Farbe mache... Kannst du mir vllr kurz eins in rot schreiben und ich probier es dann vllt.?

[alpines]

//Ich poste es lieber hier damit jeder was davon hat:

Achtung, der Code ist sehr schlecht formattiert und ist aus meinem Projekt rausgerissen nur um zu zeigen wie das geht.

Wenn die InputBox aufploppt tipp mal ein Ich: 123 und klick auf Ok und wenn die 2. aufploppt tipp mal ein Er: 456 und dann klick auf Ok. Du wirst sehen das da unterschiedliche Farben sind. Wie das ganze funktioniert ist im Source zu sehen. Die Attribute wie +bo findest du unter

 Spoiler

#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiRichEdit.au3>
#include <Color.au3>

Opt("GUIOnEventMode", 1)

Global $sLog, _
	   $bFirstStart = True, _
	   $bFirstMessage = True, _
	   $iLine = 1

$Form1 = GUICreate("", 659, 312, 192, 124, BitOr($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
$Edit1 = _GUICtrlRichEdit_Create($Form1, "", 0, 0, 659, 292, BitOR($ES_MULTILINE, $ES_READONLY, $WS_VSCROLL, $ES_AUTOVSCROLL), 0)
_GUICtrlRichEdit_SetBkColor($Edit1, 0)
GUISetState(@SW_SHOW)

While GUIGetMsg() <> -3
	_LogLog(InputBox("", ""))
WEnd

Func _LogLog($sMessage)
	Local $sEntry, $aSplit = StringSplit($sMessage, @CRLF, 2)

	For $i = 0 To UBound($aSplit) - 1

		If $bFirstMessage Then
			$bFirstMessage = Not $bFirstMessage
			$sEntry = $aSplit[$i]
			$sLog &= $aSplit[$i]
		Else
			$sEntry = @CRLF & $aSplit[$i]
			$sLog &= @CRLF & $aSplit[$i]
		EndIf

		_GUICtrlRichEdit_SetFont($Edit1, 14, "Consolas")
		_GUICtrlRichEdit_SetCharAttributes($Edit1, "+bo")
		_GUICtrlRichEdit_AppendText($Edit1, $sEntry)
		_GUICtrlRichEdit_SetSel($Edit1, _GUICtrlRichEdit_GetFirstCharPosOnLine($Edit1, $iLine), -1, True)

		If StringInStr($sMessage, "Ich: ") Then
			_GUICtrlRichEdit_SetCharColor($Edit1, 16711680)
		ElseIf StringInStr($sMessage, "Er: ") Then
			_GUICtrlRichEdit_SetCharColor($Edit1, 65280)
		EndIf

		$iLine += 1
	Next
EndFunc