Всем привет! есть код:
Код:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
With TstringGrid(Sender) Do
begin
If (gdSelected in State)and(ACol=Col)And(ARow=Row) then
begin
Canvas.Brush.Color:= clRed ;
Canvas.FillRect(Rect);
Canvas.DrawFocusRect(Rect);
end
else
If (gdSelected in State) then
begin
Canvas.Brush.Color:= clRed ;
Canvas.FillRect(Rect);
Canvas.DrawFocusRect(Rect);
Canvas.DrawFocusRect(Rect);
end;
end;
Admin: Пользуемся тегами!
Выделенные ячейки закрашиваются в красный цвет.
1) Как сделать чтоб ячейки оставались закрашенными, после перехода в другую ячейку?
2) Как сделать исключение при закраске - при выделении красных ячеек они красятся в белый и наоборот