RichEdit Hintergrundfarbe ändern klappt nicht??

[user64629]

Hallo Forum,
diesmal mit einem (wahrscheinlich) gaaanz dummen Fehler... Irgendwie kann ich bei mir die Hintergrundfarbe bei einem RichEdit nicht ändern...
Hier mal der Quelltext:

Delphi-Quellcode:

uses ...RichEdit;

var Hintergrundfarbe: TColor;
    Formatierung: TCharFormat2;

procedure TEditor.GelbExecute(Sender: TObject);
begin
 Hintergrundfarbe := clYellow;
 TexthervorhebungsfarbeExecute(Gelb);
end;

procedure TEditor.HellgrünExecute(Sender: TObject);
begin
 Hintergrundfarbe := clLime;
 TexthervorhebungsfarbeExecute(Hellgrün);
end;

... 

procedure TEditor.TexthervorhebungsfarbeExecute(Sender: TObject);
begin
 Formatierung.cbSize := SizeOf(Formatierung);
 Formatierung.dwMask := Formatierung.dwMask or CFM_BACKCOLOR;
 Formatierung.crBackColor := Hintergrundfarbe;
 SendMessage(Text.Handle, EM_SETCHARFORMAT, SCF_SELECTION, LongInt(@Formatierung));
end;

Ich hab auch http://swissdelphicenter.ch/de/showcode.php?id=1438 durchsucht und eins zu eins übernommen, es scheint einfach nicht zu klappen...???

[DeddyH]

In einem kurzen Test hat das hier zumindest bei mir funktioniert:

Delphi-Quellcode:

var
  Formatierung: TCharFormat2;
begin
  Formatierung.cbSize := SizeOf(Formatierung);
  SendMessage(RichEdit1.Handle, EM_GETCHARFORMAT, SCF_SELECTION,
    LongInt(@Formatierung));
  Formatierung.dwMask := Formatierung.dwMask or CFM_BACKCOLOR;
  Formatierung.dwEffects := Formatierung.dwEffects and not CFE_AUTOBACKCOLOR;
  Formatierung.crBackColor := clRed;
  SendMessage(RichEdit1.Handle, EM_SETCHARFORMAT, SCF_SELECTION,
    LongInt(@Formatierung));
end;

[user64629]

Okay ich weiß zwar nicht wieso es voher geklappt hat, aber mit dem Zusatz von

Delphi-Quellcode:

 Formatierung.dwEffects := Formatierung.dwEffects and not CFE_AUTOBACKCOLOR;

klappt es jetzt...
Danke :thumb:

[DeddyH]

Das steht im MSDN zur CHARFORMAT2-Struktur:

Zitat:

CFE_AUTOBACKCOLOR
The background color is the return value of GetSysColor(COLOR_WINDOW). If this flag is set, crBackColor member is ignored.

[user64629]

Ja hab ich nicht dran gedacht, weil es komischerweise vorher ohne funktioniert hat...

[DeddyH]

Dann war das Flag wohl vorher nicht gesetzt. Ich denke aber, dass man mit der Vorgehensweise
- aktuelle Formatierung ermitteln
- manipulieren
- zurückschreiben
am besten fährt, wie man hier sieht.