StringGrid - kolorowanie komórki

Rejestracja:prawie 13 lat
Ostatnio:4 dni
Postów:1857

Witam

Potrzebuje w SringGridzie zaznaczyć kolorem nie które wiersze. Te które mają być kolorowe w jednej z kolumn mają wpisany "x".

W zdarzeniu StringGrid1DrawCell wpisałem:

Kopiuj

     StringGrid1.Canvas.Brush.Color := clFuchsia;
    StringGrid1.Canvas.FillRect(aRect);

Komórki są kolorowe lecz nie widać w nich tekstu (tekst jest - edytując komórkę można go zobaczyć, lecz jest on "przykryty").
Podpowiedzcie mi co zrobić aby tekst był widoczny.

Z góry dziękuję, pozdrawiam

agilob 2012-10-21 19:58

Przed które stawiamy przecinek :D

xeo545x39

2012-10-21 18:09

xeo545x392012-10-21 18:09

Rejestracja:ponad 14 lat
Ostatnio:ponad 5 lat
Lokalizacja:Kosmos
Postów:1571

Na pewno chodzi o Canvas? A nie o jakąś właściwość określająca tło komórek?

pelsta

2012-10-21 18:18

pelsta2012-10-21 18:18

Rejestracja:prawie 19 lat
Ostatnio:16 dni
Postów:819

Po pomalowaniu komórki musisz samodzielnie odrysować tekst (ja najchętniej używam funkcję DrawText).

0DFh

2012-10-21 18:24

~~0DFh~~2012-10-21 18:24

Rejestracja:ponad 14 lat
Ostatnio:około 11 lat
Postów:60

Kopiuj

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  S : String;
begin
  StringGrid1.Canvas.Brush.Color := clBlue;
  StringGrid1.Canvas.FillRect(Rect);
  S := StringGrid1.Cells[ACol, ARow];
  StringGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, S);
end;