Unterschiedliches Verhalten ?

[Norton]

Hallo Delphi User,

Folgende Code funktioniert unter Windows98 bei mir so ..

Delphi-Quellcode:

Form1.RichEdit1.SelAttributes.Color := clSilver;  // Color ändern
 Form1.RichEdit1.Lines.Add('Color clSilver');     // erster RichEdit Eintrag
  Form1.RichEdit1.Lines.Add('bleibt Silber');   // Color wie eingestellt

Gleiches Prog. unter Windows XP ändert bei mir 'nur' den ersten Eintrag nach
SelAttributes.Color := clSilver, nachfolgende benutzen dann wieder den im Objektinspektor eingestellten Color Wert.Weiß jemand wieso das Zustande kommt, oder ist bei mir woanders der Wurm drin ?

Gruß, Norton

[Mr_G]

Kurze Rückfrage: Du änderst ja die Color bei den SelAttributes, also nur bei dem makierten Text. Ist das auch deine Absicht oder möchtest du die allgemeine Textfarbe ändern?

[Norton]

Die Textfarbe sollte allgemein geändert werden.
Hmm,benutzt man dafür nicht SelAttributes.Color ?

[Mr_G]

Dafür nutzt man Font.Color. SelAttributes bezieht sich auf den makierten Text.

[Die Muhkuh]

Ansonsten zum kurzzeitigen ändern:

Delphi-Quellcode:

RichEdit1.SelAttributes.Color := clWhite;
RichEdit1.SelText := 'Ich werde hinzugefügt :-)'; // Ohne Markierung hintendran, ansonsten wird Markierung überschrieben
RichEdit1.SelAttributes.Color := clBlack;

[Norton]

Hab nochmal nachgedacht:

Ich mußte SelAttributes benutzen weil ich zwei Farben im RichEdit benutze.Hab eigentlich mein Proggi mit folgendem Code wieder am laufen.

Delphi-Quellcode:

for j:=1 to i0 do
  begin
   Form1.RichEdit1.SelAttributes.Color := clYellow;
    Form1.RichEdit1.Lines.Add(Sor0[j]);
     end;

Vielleicht nicht elegant aber macht was es soll.
Was mich halt nur gewundert hatt,warum gleiches Prog. sich unterschiedlich von W98 zu Xp verhält.

Gruß, Norton

[Die Muhkuh]

Mach es so, wie mein Vorschlag. Der ist sauberer, als deiner

[Norton]

Ich will für jeden Eintrag im RichEdit eine neue Zeile haben.
Dein Code macht da nicht mit wie´s aussieht.
RichEdit1.SelText := 'Ich werde hinzugefügt :-)'; // Ohne Markierung hintendran, ansonsten wird Markierung überschrieben Die eigenliche Frage bleibt aber noch bestehen.
Ich denk da steckt der Teufel wohl im Detail oder mein Programmierstiel ist nicht mehr up to date.

[Die Muhkuh]

Hi,

ich hatte auch nie gesagt, dass der code in eine neue Zeile geht, sondern er wird hintendran gesetzt.

Delphi-Quellcode:

RichEdit1.SelAttributes.Color := clWhite;
RichEdit1.Lines.Add('');
RichEdit1.SelText := 'Ich werde hinzugefügt :-)'; // Ohne Markierung hintendran, ansonsten wird Markierung überschrieben
RichEdit1.SelAttributes.Color := clBlack;