Problem mit RichEdit und ColorBox

[DeddyH]

So habe ich das auch verstanden. Es ist aber immerhin möglich, dass die Schriftfarbe überhaupt nicht in der Auswahl enthalten ist, siehe meine vorherigen Ausführungen. Das sollte man abfangen (oder eben einfach Farbe zuweisen, vermutlich wird die dann ggf. hinzugefügt).

[p80286]

Aber die beiträge #2 und #3 hast du schon gelesen und verstanden?

und was willst Du eigentlich erreichen?

Gruß
K-H

DeddyH ist nicht gemeint!!
Wo ist der rote Kasten???????

[Davidlocke13]

ich will über die ColorBox die Farbe meines Textes aus dem RichEdit ändern

[Popov]

Delphi-Quellcode:

procedure TForm1.ColorBox1Select(Sender: TObject);
begin
  RichEdit1.SelAttributes.Color := ColorBox1.Selected;
end;

[Davidlocke13]

Danke damit geht es !

Nur wenn ich es Drucke wird es wieder schawarz

[Popov]

Das ist dann ein anderes Problem und hat mit dem oberen wohl nichts zu tun.

[p80286]

das ist bei den meisten S/W-Druckern so.

Gruß
K-H

[Popov]

Sind wir heute vielleicht sarkastisch?

[Sir Rufo]

Zitat:

Zitat von Davidlocke13 (Beitrag 1192938)

Habe ein Problem beim Einfärben der Schrift im RichEdit.
Mein Programm hängt sich immer auf !

Delphi-Quellcode:

procedure TForm1.ColorBox1Select(Sender: TObject);
var
x : integer;
begin
while ColorBox1.Selected <> RichEdit1.SelAttributes.Color do begin

  ColorBox1.ItemIndex := x; // <- welcher Wert???

  Inc(x);

 end;
end;

Was ist mein Fehler :?:

Wenn dein Programm zum ersten Mal an die Stelle kommt

Delphi-Quellcode:

ColorBox1.ItemIndex := x;

, welchen Wert - denkst du - hat dann x?

Dieser Gedanke ist falsch und die (vermeintliche) Endlosschleife ist nicht endlos, sondern du bis nur zu ungeduldig.
(Warte einfach ein paar Minuten, je nach CPU-Geschwindigkeit und Mondphase)

[DeddyH]

Zumal das Ziel

Zitat:

ich will über die ColorBox die Farbe meines Textes aus dem RichEdit ändern

auch bei fehlerbereinigter Schleife nicht erreicht wird, da falsch herum (Änderung der Colorbox statt des RichEdits).