"EhLib.Com"
https://forum.ehlib.com/ru/

Чекиты без значений
https://forum.ehlib.com/ru/viewtopic.php?f=4&t=3080
Страница 1 из 1

Автор:  orange [ 18 фев 2021, 06:54 ]
Заголовок сообщения:  Чекиты без значений

Есть столбец с булевыми значениями
в строках в которых нет никакого значения отображается серый не активный чекит
можно его вообще не отображать чтобы была пустая ячейка?

Вложения:
2021-02-18_134641.jpg
2021-02-18_134641.jpg [ 15.36 KiB | Просмотров: 1058 ]

Автор:  EhLibSupport [ 26 фев 2021, 12:53 ]
Заголовок сообщения:  Re: Чекиты без значений

Добрый день.

Для отображения пустой ячейки можно использовать событие TColumnEh.OnAdvDrawDataCell
следующим образом.

Код:
type
  TDBGridEhCrack = class(TDBGridEh);

procedure TForm1.DBGridEh1Columns5AdvDrawDataCell(Sender: TCustomDBGridEh; Cell,
  AreaCell: TGridCoord; Column: TColumnEh; const ARect: TRect;
  var Params: TColCellParamsEh; var Processed: Boolean);
begin
  if (Column.Field.IsNull) then
  begin
    //DBGridEh1.DefaultDrawColumnDataCell(Cell, AreaCell, Column, ARect, Params);
    DBGridEh1.DrawColumnDataCellBackground(Cell, AreaCell, Column, ARect, Params);
    TDBGridEhCrack(DBGridEh1).DrawCellDataBackground(Cell.X, Cell.Y, AreaCell.X, AreaCell.Y, Column, ARect,
      Params.State, dgRowSelect in DBGridEh1.Options);
    Processed := True;
  end;
end;

Страница 1 из 1 Часовой пояс: UTC
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/