Witam.
Mam taką tabelkę:
W OnDrawCell mam:
with TStringGrid(Sender).Canvas do
begin
{ COLORS }
IF (aCol = 0) OR (aRow = 0)
THEN
begin
Pen.Color := $00DCE8ED;
Brush.Color := $00DCE8ED;
Font.Style := [fsBold];
end
ELSE
begin
Pen.Color := $00E1E1E1;
Brush.Color := StringToColor(StringGrid1.Cells[5, aRow]);
end;
{ BACKGROUND }
Rectangle(aRect);
{ TEXT }
Font.Color:=clBlack;
TextOut(aRect.Left + 4, aRect.Top + 2, TStringGrid(Sender).Cells[aCol, aRow]);
Font.Style := [];
end;
Jedyne co chciałbym zmienić, a z czym nie mogę sobie poradzić to kolor zaznaczenia wybranego wiersza (w ustawieniach StringGrid mam goRowSelect=True).
Próbowałem dodać:
if gdSelected in aState then
begin
Pen.Color := clGreen;
Pen.Style := psSolid;
pen.Width:=3;
end;
jednak nie zdaje to egzaminu ponieważ:
- nadal widać "oryginalne" czerwone obramowanie
- każda z komórek w wierszu obramowana jest osobno.
W jaki sposób podmienić to "oryginalne" obramowanie?