Люди, подскажите пожалуйста как, например по клику кнопки заливать конкретнкю ячейку определённым цветом.
Заранее благодарен.
Заранее благодарен.
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Cx:=Random(DrawGrid1.ColCount);
Cy:=Random(DrawGrid1.RowCount);
DrawGrid1.Repaint;
end;
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with Sender as TDrawGrid do begin
if (ACol=Cx) and (ARow=Cy) then begin
Canvas.Brush.Color := clBackGround;
Canvas.FillRect(Rect);
end;
end;
end;
type
Страницы: 1
Предыдущая тема: Отправка письма из программы на Delphi 7