Problem mit RichEdit und ColorBox

[Davidlocke13]

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

Code:

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

  ColorBox1.ItemIndex := x;

  Inc(x);

 end;
end;

Was ist mein Fehler :?:

[DeddyH]

Dass Du keine Delphi-Tags benutzt, x nicht initialisierst und nicht mit dem Debugger arbeitest :mrgreen:

[Davidlocke13]

Wie mache ich das denn richtig ?

[DeddyH]

Ich habe noch nie mit TColorBox gearbeitet, aber die Hilfe liest sich, als ob dies hier kein Problem sein sollte:

Delphi-Quellcode:

ColorBox1.Selected := RichEdit1.SelAttributes.Color;

[himitsu]

Auf die "Fehlerhinweise" des Compilers hören und diese beseitigen.

Und wenn das immernoch nicht hilft, dann
den debugger benutzen und rausfinden warum du eine Endlosschleife hast.

Zitat:

Zitat von DeddyH (Beitrag 1192960)

als ob dies hier kein Problem sein sollte:

Gut, man kann es sich natürlich auch einfach machen. (muß man aber nicht :stupid:)

[Popov]

Was willst du machen?

Edit:

Was macht es jetzt? Solange die Farbe der ColorBox unterschiedlich der Textfarbe ist, wird ItemIndex der ColorBox um einen Wert erhöht.

[himitsu]

Zitat:

Zitat von Popov (Beitrag 1192962)

Was willst du machen?

Er will die ausgewählte Farbe der ColorBox zuweisen. :zwinker:

Zitat:

Mein Programm hängt sich immer auf !

Am Schönsten sind Fehlermeldungen, wo die halbe Fehlerbeschreibung fehlt.
Die Exception hat einen Namen und auch einen Text, den man gerne nennen (abschreiben/kopieren) darf, damit wir eine Ahnung bekommen, warum es nicht gehen könnte. (Stacküberlauf)

[DeddyH]

Zu beachten ist auch noch, dass man beim Vergleich zweier Farben ggf. unerwartete Ergebnisse erhält, zumindest dann, wenn die Schriftfarbe des RichEdit auch aus anderen Quellen kommen kann und nicht zwingend über dieselbe Colorbox wie die zum Vergleich herangezogene festgelegt wurde.

[p80286]

Wenn ich das richtig verstehe, soll in Colorbox die gleiche Farbe ausgewählt sein wie im Text.

Glaube ich, könnte sein.

Gruß
K-H

[Davidlocke13]

Das Problem ist, ich bekomme keine Fehlermeldung nur das Programm ist wie eingefroren

Code:

Abhängigkeiten des Projekts werden überprüft...
Compilieren von Keypress.dproj (Debug-Konfiguration)
Erfolg
Verstrichene Zeit: 00:00:01.0

[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).

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1193001)

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).

Du hast da völlig recht ...

es ist aber die Antwort auf die Frage:

Zitat:

Zitat von Davidlocke13 (Beitrag 1192938)

Mein Programm hängt sich immer auf !
...
Was ist mein Fehler :?:

[DeddyH]

Das hatte ich in #2 ja schon angedeutet ;). Aber ist jetzt auch egal, das Problem scheint ja gelöst zu sein.

[himitsu]

Zitat:

Zitat von Davidlocke13 (Beitrag 1192972)

Das Problem ist, ich bekomme keine Fehlermeldung nur das Programm ist wie eingefroren

Code:

Abhängigkeiten des Projekts werden überprüft...
Compilieren von Keypress.dproj (Debug-Konfiguration)
Erfolg
Verstrichene Zeit: 00:00:01.0

Tu das Projekt mal "erzeugen" oder ändere vorher irgendwas im Code (braucht auch nur ein Leerzeichen zu sein).

Es muß auf jeden Fall etwas vonwegen "x sei nicht initialisiert" kommen.