Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > VirtualStringTree и CheckBox'ы

Автор: omickron 30.7.2011, 10:14

Имею VirtualStringTree с установленными:
TreeOptions - MiscOptions - toCheckSupport = true;
Header.Columns[0].CheckBox = true;

Всё остальное - по дефолту.

Но Чекбоксы почему-то не показываются. Что не так?

Автор: Dik0n 30.7.2011, 14:23

Цитата(omickron @ 30.7.2011, 10:14

)

Но Чекбоксы почему-то не показываются. Что не так?

Надо задать тип чекбоксов при иницилизации, там их несколько, по умолчанию ctNone

Код


procedure TfmMain.vtEditorInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
begin
  Node^.CheckType := ctCheckBox;
end;

Автор: omickron 30.7.2011, 14:45

Спасибо!

А задать их в дизайн-тайме сразу для всего столбца или таблицы нельзя?

Автор: Dik0n 30.7.2011, 15:41

Цитата(omickron @ 30.7.2011, 14:45

)

А задать их в дизайн-тайме сразу для всего столбца или таблицы нельзя?

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

Автор: omickron 30.7.2011, 21:07

Спасибо большое, коллега smile