Закраска левой верхней ячейки выбор StringGrid

@kossss · Регистрация: 15.02.2013

Author24 — интернет-сервис помощи студентам

Имеется грид с числами (в данном случае просто случайными).
У каждой ячейки раскраска в зависимости от содержимого. При выборе диапазона ячеек прямоугольник выделения меняет цвет.
Но при этом не закрашивается левая верхняя ячейка. Как поправить?

Закраска левой верхней ячейки выбор StringGrid

Delphi

procedure TForm10.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  hGrid: TStringGrid;
begin
 
if state = [gdSelected] then//закраска прямоугольника выделения
   with TStringGrid(Sender), Canvas do
   begin
     Brush.Color := clHighlight;
     FillRect(Rect);
     TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
   end
 
ELSE BEGIN//закраска обычных, не выделенных ячеек
hGrid:= (Sender as TStringGrid);
if hGrid.Cells[ACol,ARow]='' then Exit;
 
hGrid.Canvas.Brush.Color:=clWhite;
 
if ARow>0 then
    begin
      if (StrToInt(hGrid.Cells[ACol,ARow]) mod 2 = 0) then hGrid.Canvas.Brush.Color:= RGB(216,255,216)
          else hGrid.Canvas.Brush.Color:= RGB(255,216,216)//закраска просто для наглядности
    end;
  hGrid.Canvas.FillRect(Rect);
  hGrid.Canvas.TextOut(Rect.Left+0, Rect.Top+0, hGrid.Cells[ACol, ARow]);
END;
 
end;

Спасибо.

@northener · 20.02.2014, 20:23

Сообщение от kossss

if state = [gdSelected] then

Неверная проверка. Потому одна из ячеек и не закрашивается как нужно. Правильная проверка в данном случае

Delphi

1	if gdSelected in state then

@kossss · 20.02.2014, 20:30 **[ТС]**

Все работает как надо, спасибо!

@kossss 0 / 0 / 1 Регистрация: 15.02.2013 Сообщений: 8
	20.02.2014, 20:30 [ТС]	3
	Все работает как надо, спасибо! 0