Öhmm....
Ich weiß nun nicht ob ich da flasch liege....
aber der text wird nicht ausgeblendet...
Das Probloem ist das an Weissen text nicht auf weisem Hintergrund Sieht...
bzw mit dem Cream Text:
ich habe es so gemacht:
Delphi-Quellcode:
if aRow > 0 then begin
c.Font.Color:=ClBlack;
if (aRow mod 2) = 0 then begin
c.Brush.Color := $00E6E7E8;
c.FillRect(Rect);
end else begin
c.Brush.Color := ClWhite;
c.FillRect(Rect);
end;
if arow = TStringgrid(sender).Row then begin
c.Font.Color:=ClYellow;
c.Brush.Color := ClBlue;
c.FillRect(Rect);
end;
s := TStringGrid(sender).Cells[ACol, ARow];
c.FillRect(Rect);
rect.Left:=rect.Left+5;
rect.Top:=rect.Top+2;
DrawText(c.Handle, PChar(s), Length(s), Rect, DT_SINGLELINE or DT_LEFT);
end;
MfG Real Thunder
habe bei mir allerdings ein rowselect drin.....
ansonsten einfach die makierte zelle abfangen... und dass sollte es denn sein