-.- RichEdit Zeilen färben, aber richtig bitte

[MacBones]

sers leute ^^

also mein Prob is folgendes, ich will son blödes richedit färben und joa das will nit so ganz ^^
hab mir schon einen abgesucht und auch vieles gefunden, so isses nicht, aber alles was ich fand war irgendwie unbrauchbar für mich...

ich weiß wie ich einen Text mit ner hintergrundfarbe versehen kann aber mein prob is nun, ich will die ganze zeile so einfärben, auch wenn dort noch kein text steht, wie mach ich das???????????


:wall: :?: :wall:

das ist der code um was geschriebenes "farbig" zu "markieren" oder wie mans nennen will, aber ich will eben wie gesagt die komplette zeile dann so haben...

Delphi-Quellcode:

uses richedit;

procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
  Format: CHARFORMAT2;
begin
  FillChar(Format, SizeOf(Format), 0);
  with Format do
  begin
    cbSize := SizeOf(Format);
    dwMask := CFM_BACKCOLOR;
    crBackColor := AColor;
    Richedit.Perform(EM_SETCHARFORMAT, SCF_ALL, Longint(@Format));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RE_SetSelBgColor(RichEdit1, clSkyblue);
end;

[marabu]

Hallo,

deine Anforderung an das RichEdit Control erscheint mir sehr ungewöhnlich. Kannst du kurz beschreiben, warum du ein TRichEdit und kein TListBox verwenden willst?

Grüße vom marabu

[Balu der Bär]

Zitat:

ich will die ganze zeile so einfärben, auch wenn dort noch kein text steht, wie mach ich das???????????

Wie du bereits richtig erkannt hast steht in der Zeile kein Text drin, also kann die Zeile auch nicht eingefärbt werden. Eine Quick & Dirty Lösung wäre die entsprechende Zeile voher mit Leerzeichen aufzufüllen, dann sollte das Einfärben klappen.

Edit: Ein Fragezeichen sollte auch reichen.

[MacBones]

also thX für die schnelle antwort erstmal...

Zitat:

deine Anforderung an das RichEdit Control erscheint mir sehr ungewöhnlich. Kannst du kurz beschreiben, warum du ein TRichEdit und kein TListBox verwenden willst?

ich brauch ein richedit, weil ich ne Art Editor bauen will, der unterschiedlich gefärbte Zeilen hat, so ähnlich wie in Mac OS und nunja, hab die Geschichte auch schon mit ner Listbox realisiert nur ist das eben total krank und aufwending, da man die einfachsten Dinge, die in einem Memo oder Richedit gegeben sind, mühsam selbst bauen muss...
deshalb dachte ich mir, es wäre eleganter wenn ich das ganze mal mit nem Richedit versuche ^^

Zitat:

Eine Quick & Dirty Lösung wäre die entsprechende Zeile voher mit Leerzeichen aufzufüllen, dann sollte das Einfärben klappen.

Joa ich denke, so werd ichs wohl oder übel auch machen müssen, falss euch doch noch was einfällt wärs nett wenn ihr bescheid gebt ^^ ansonsten werd ich es dann so machen, das ich die ganzen Lehrzeichen auffülle und nach bedarf wieder rausschmeiße ^^

[raffo32]

kleiner Lösungsvorschlag, in HTML behelfe ich mir immer mit ner Table, ist sowas nicht auch in RichEdit möglich, wenn ich mich nicht ganz irre? Dann könnte man die Table einfärben...

[3_of_8]

Nein, in RTF gibts IMHO keine Tabellen. Nebenbei, in HTML sind <div>s besser geeignet.

[raffo32]

Schreibt dann Wordpad keine echte .rtf? Ich musste die Tabelle über WORD erstellen, aber Wordpad selbst zeigt die Tabelle wiederum an, also muss es doch einen Weg dahin geben?

Datei (rtf ist hier verboten, dann so (auf meiner HP): http://www.my-virtualworld.de/1.rtf)

Ziel speichern unter... Deskop, dann rechte Maus und Öffnen mit - Wordpad MFC

[raffo32]

Ok, ich gebs zu, im Delphi RichEdit zeigt er die Tabellenbereiche, aber nicht die Farben, in Wordpad schon (scheint, das er sich ein wenig des WORD bedient...)

[Schwedenbitter]

Zunächst bitte ich um Entschuldigung, dass ich dieses Thema wieder aufwärme.

Ich hatte schon vor Jahren eine Chat programmiert. Diesen möchte ich gern optisch aufwerten aber bei den Delphi hauseigenen Komponenten bleiben. Das Einfärben, Einrücken, Vorwärtsscrollen etc. des TRichEdit klappt soweit ohne Probleme. Probleme bereitet mir aber das Einfärben des Textes. Den aktuellen Stand habe ich als Screenshot angehängt.

Ich bin soweit, dass die Hintergrundfarbe geändert wird. Allerdings wird dies leider nur für den Text erledigt. Ich möchte aber gern die ganze (Rest)Zeile einfärben, damit es noch besser aussieht.

Falls Bedarf besteht, hänge ich auch gern noch den Quelltext an.

Gruß, Alex

[DeddyH]

Meinst Du so etwas wie einen Absatzhintergrund? Das kann das RichEdit nicht, aber falls es Dich interessiert (Achtung, längerer Thread): http://www.delphipraxis.net/161467-r...nd-setzen.html

[Sir Rufo]

Warum machst du dir das Leben so schwer?

Teile das doch in kleine Teile auf, anstatt alles auf einen Schlag machen zu wollen. So ein Chat-Verlauf besteht aus einzelnen ChatMessages. Also eine Liste mit den Nachrichten. Ganz simpel könnte man das mit einer ScrollBox und pro Nachricht eine PaintBox, die eben in der Scrollbox liegt. Die PaintBox stellt dann jeweils die entsprechende Nachricht dar.

Und beim Zeichnen hast du alle Möglichkeiten der Welt, wie du das zeichnest. Das ist auf jeden Fall schneller und vor allem besser umgesetzt, als aus Uschi einen Peter zu bauen.

BTW: Eine ListBox bringt eigentlich schon passend alles mit inkl.
http://docwiki.embarcadero.com/RADSt...nten_festlegen