Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - Text mit Farbe senden und empfangen !


Jagg - Mi 02.07.03 14:43
Titel: Text mit Farbe senden und empfangen !
Hallo !

Ich habe ein Chatproggi gechrieben,jetzt möchte ich,das der Text den ich versende als Farbe "blau" gesendet wird und der Text den ich empfange als Farbe "rot" empfange !

Hier ist mal ein Code für Senden :

Delphi-Quelltext
1:
2:
3:
4:
Edit1.Text := 'Hallo,das ist ein Test';
NewString := 'Martin';
NMMsg1.PostIt (Time+' '+'<'+NewString+'>'+' : '+Edit1.Text);
Memo1.Lines.Add (Time+' '+'<'+NewString+'>'+' : '+Edit1.Text);

Hier ist mal ein Code für Empfangen :

Delphi-Quelltext
1:
2:
3:
Memo1.Lines.Append (sMsg);
FlashWindow(Handle,True);
Flashwindow(Application.Handle,True);

sMsg = Text von Empfänger !

....und das alles wird in einem MemoFeld angezeigt !
Könnt ihr mir helfen ???

Jagg !

Moderiert von user profile iconTino: Code- durch Delphi-Tags ersetzt.


Tino - Mi 02.07.03 15:03

Hi,

benutze statt der TMemo Komponente die TRichEdit Komponente. Damt kannst du die Farben selbst bestimmen. Such mal hier im Forum nach tRichEdit. Dann solltest du mehrere Beispiele finden wie man die Farbe setzt.

Gruß
Tino


Jagg - Mi 02.07.03 15:22

danke


FriFra - Mo 07.07.03 14:12

Also ich habe für ein Chatprogi ein TWebBrowser verwendet. Ich schreibe den Text über eine JavaScript-Funktion dynamisch in das Chatfenster... so habe ich auch die Möglichkeit Emoticons ( :D , :shock: , etc. ) automatisch als animiertes Gif anzuzeigen... so etwas sollte mit einen TRichEdit nur sehr schwer bzw. garnicht möglich sein.