sers leute ^^
also mein Prob is folgendes, ich will son blödes richedit färben und joa das will nit so ganz ^^
hab mir schon einen abgesucht und auch vieles gefunden, so isses nicht, aber alles was ich fand war irgendwie unbrauchbar für mich...
ich weiß wie ich einen Text mit ner hintergrundfarbe versehen kann aber mein prob is nun, ich will die ganze zeile so einfärben, auch wenn dort noch kein text steht, wie mach ich das???????????
das ist der code um was geschriebenes "farbig" zu "markieren" oder wie mans nennen will, aber ich will eben wie gesagt die komplette zeile dann so haben...
Delphi-Quellcode:
uses richedit;
procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do
begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR;
crBackColor := AColor;
Richedit.Perform(EM_SETCHARFORMAT, SCF_ALL, Longint(@Format));
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RE_SetSelBgColor(RichEdit1, clSkyblue);
end;