Problem mit Edit Komponente

[BKHero2004]

Hallo,

ich habe gerade einen Editor programmiert. Mich stört jetzt zur Zeit
allerdings noch, dass der markierte Text in meinem RichEdit-Feld immer noch
schwarz ist. Ich würde den nämlich gerne Blau haben, so wie es eigentlich auch Stantard ist.

Ich habe schon einiges ausprobiert, leider ohne Erfolg.
Jetzt frage ich Euch; vielleicht kann mir einer von Euch helfen!?!

Danke

Gruß BKHero

[alcaeus]

Hi BKHero!

Zitat von BKHero2004:

Mich stört jetzt zur Zeit
allerdings noch, dass der markierte Text in meinem RichEdit-Feld immer noch
schwarz ist. Ich würde den nämlich gerne Blau haben, so wie es eigentlich auch Stantard ist.

Welches OS verwendest du? In meinem Editor (notepad.exe) ist der markierte Text auch schwarz

greetz
alcaeus

[BKHero2004]

Win2k

Bei mir war der markierte Text in allen Win-Versionen bisher gleich(auch bei notepad.exe), nämlich blau.

Gruß

[Fourcorner]

Hallo,
unter Ereignisse gibts "OnSelectionChange". Beim aufrufen kast du folgendes hinschreiben:

Delphi-Quellcode:

var inUse: Boolean;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
var Start: integer;
var length: integer;
begin
  if inuse = true then
    exit;

  inUse := true;

  Start :=  Richedit1.SelStart;
  length := richedit1.SelLength;
  richedit1.SelectAll;
  richedit1.SelAttributes.Color := clBlack;
  Richedit1.selStart := Start;
  Richedit1.SelLength := length;
  Richedit1.SelAttributes.Color := clBlue;
  inuse := false;
end;

Funktioniert eigentlich gar nicht so schlecht...
Falls die schreibwiese manchen komisch vorkommt, bin newb.