Сообщения

1

Ваши вопросы / В таблице ячейку сделать кнопкой

« : 10 Февраля 2025, 14:50:28 »

Добрый день. Просьба помочь. Запутался маленько.
Задача в Таблице сделать кнопку в ячейке и записывать в бит.
Само отображение кнопки сделал.
Скрипт

Код: (delphi)

var
  s: String;
  col: Cardinal;
begin
  // Вкл-Выкл
  if GetBit(Proba.AsInt, 0) = false then
  begin
    s := 'Выкл';
    col := clGreen;
  end
  else
  begin
    s := 'Вкл';
    col := clRed;
  end;
  Table1.GetCell(3, 1).Text := s;
  Table1.GetCell(3, 1).Color := col;
end.