Im Memo eine Zeile farblich verändern.

[tretmine]

Huhu hier bin ich wieder ;)

Ich habe hier ein Problem, an dem ich schon etliche Zeit knabber...
Ich will in einem Memo-Feld einzelne Zeilen einfärben.
Mit

Delphi-Quellcode:

Memo1.font.color:=clred;

färbe ich bekanntlich den gesammten Text ein. Nur leider will ich nur ein paar Zeilen colorieren.
Ich war schon so verzweifelt und probierte es mit

Delphi-Quellcode:

Memo1.font.color[dieZeilenNummer]:=clred;

:oops:
Leider find ich nirgends etwas darüber...


MfG Phil

[Luckie]

Du wirst darüber auch nichts finden, da man mit einem TMemo nur immer dem gesamten Inhalt eine Formatierung zuweisen kann. Da mußt du wohl auf ein TRichEdit zurückgreifen. Und dann kuck mal in der Hilfe unter SelStart, SelLength und SelAttributes nach.

[tretmine]

Ich habe noch nie mit TRichEdit gearbeitet ;)
Wenn ich die Hilfe richtig verstanden habe, musste dieser Quelltext klappen. (Ich muss in schon einen bestehenden Text die Zeilen einfärben)
Doch weder geht das:

Delphi-Quellcode:

RichEdit1.SelAttributes.color:=clred;
RichEdit1.lines[s]:=RichEdit1.Lines[s];

noch das (mit HilfsVariablen):

Delphi-Quellcode:

RichEdit1.SelAttributes.color:=clred;
linetext:=RichEdit1.lines[s];
RichEdit1.Lines[s]:='';
RichEdit1.Lines[s]:=linetext;

Warum wirkt sich das setzen des Attributes nicht aus?

MfG Phil

[Luckie]

Ich habe dir noch zwei andere Stichworte für die Hilfe gegeben und das nicht ohne einen Hintergedanken.

[eddy]

Hallo tretmine,

hier ein paar Befehlszeilen, die Dir vielleicht weiterhelfen:

Code:

// edInfo : TRichEdit;
// erstes Zeichen, das
edInfo.SelStart := p1;
// Anzahl der Zeichen, die geändert dargestellt werden sollen
edInfo.SelLength := anz;
// Farbe blau
edInfo.SelAttributes.Color := clBlue;
// fett
edInfo.SelAttributes.style := edInfo.SelAttributes.style-[fsbold];

mfg
eddy

[tretmine]

Ahhh!
Ich habe die Hilfe dazu schon gelesen, nur blickte ich sie ehrlich
gesagt nicht. Jetzt, nach ewigem rumprobieren, fand ich den richtigen
Weg endlich heraus...

Ach ja, warum klappt dann eigentlich dieser Quelltext, der in der Hilfe steht:

Delphi-Quellcode:

with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('Diese Textzeile wird rot.');

Die Grenzen des Attributes Color sind hier auch nicht angegeben...
(Oder bin ich hier auf dem Irrweg?!? Soweit ich es nun verstanden habe,
sind die Attributsgrenzen SelStart, bzw. SelLenght)

Vielen Dank nochmal für die Hilfe! :D

MfG Phil

[Hansa]

Nimm doch eine normale Listbox. Da geht das auch.

[Luckie]

Zitat:

Zitat von Hansa

Nimm doch eine normale Listbox. Da geht das auch.

Da er es mit einem Memo versucht hat, gehe ich mal davon aus, dass er auch editieren will. Somit dürfte dein Vorschlag mit der Listbox hinfällig sein.

[tretmine]

Hmmm... Eine ListBox wäre auch nicht schlecht (Hatte ich sogar
anfangs). Nur leider sind beide Lösungen (RichEdit und ListBox) zu
langsam.
Ich muss Text Dateien mit bis zu 6MB einlesen (78000 Zeilen)
Die ListBox braucht beim Laden der Datei ewig. Deshalb nahm ich das Memo.
Nur jetzt, mit dem RichText tritt ein weiteres Problem auf. Ich muss die TextDatei auf Strings durchsuchen. Zwar läd der RichText die Datei schnell, doch braucht er zum Suchen ewig (ich wartete ca. 1 Minute und dann brach ich das Programm ab... Volle CPU Auslastung).
Ein Memo sucht mir den String unter 10 Sekunden!

Woran liegt das?

MfG Phil

[Hansa]

Dann läuft aber mit der Listbox was falsch ab. Das ist nicht viel mehr, als ein Memo, oder ?