Пример обработчика заливки случайно выбранной ячейки в строке StringGrid

Posted by Chas under Delphi

Stilet

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

begin

 with TStringGrid(Sender), TStringGrid(Sender).Canvas do begin

   if ACol=0 then tag:=Random(ColCount);

   if ACol=tag then begin Brush.Color:=clGrayText; FillRect(Rect); end

   else Brush.Color:=clWindow;

   TextOut(Rect.Left,Rect.Top,IntToStr(random(100)));

 end;

end;

тема на форуме

Похожие статьи

• Добавить строку с верха вниз StringGrid
• Проверить stringrid на пустоту
• Разбиение данных из одной колонки на восемь
• Cобытие после изменения содержимого ячейки StringGrid
• Пример заполнения StringGrid
• Как вводить в String Grid строку ограниченной длины?
• Выбор случайных вопросов без повторений
• Заливка замкнутого контура, как в Paint
• Равномерное распределение точек в круге
• Сумма столбца, в котором находится минимальный элемент StringGrid