Сор сразу за нубский вопрос)
Мне нужно закрасить 3 ячейки drawgrid так, что бы закрасились выбранная ячейка, ячейка которая правее и ячейка, которая ниже на 1. Что я не так написал:
Код:
procedure TForm1.drwgrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
drwgrd1.Canvas.Brush.Color:=clBlue;
drwgrd1.Canvas.FillRect(drwgrd1.CellRect(drwgrd1.Col,drwgrd1.Row));
drwgrd1.Canvas.FillRect(drwgrd1.CellRect((drwgrd1.Col+1),drwgrd1.Row));
drwgrd1.Canvas.FillRect(drwgrd1.CellRect(drwgrd1.Col,(drwgrd1.Row+1)));
end;
Админ: Пользуемся тегами для оформления кода!