StringGrid Problem nach draw cell

[MrFish]

Nabend an alle; :hi:

Ich habe mit Folgendem Code Zellen im StrinGrid eingfärbt.

Code:

 with Sender as TStringGrid do
        begin
          s := Cells[ACol, ARow];
          Canvas.Brush.Color := CellColor[Acol,Arow];
          Canvas.FillRect(Rect);
          DrawText(Canvas.Handle, PChar(s), Length(s), Rect, DT_CENTER);
        end;

Funktioniert nur wird jetzt die jeweils markierte Zelle in weiss hinterlegt, und nicht wie normal in blau.Da die Schrift ebenfalls in weiss dargestellt wird, solange die zelle selektiert ist, ist das ziemlich blöd.
Ich habe bereits versucht FillRect Brush auf clBackground zu stellen. ohne Erfolg. Wat nu?

[Keldorn]

Hallo

du mußt den State abfragen und die Selektionsfarbe entsprechend setzen

Delphi-Quellcode:

if gdselected in state then canvas.Brush.Color:=clHighlight;
canvas.fillrect...

Mfg Frank

[MrFish]

Klappt!


Ich danke dir.

Gruß MrFish :hello: