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