Текущий архив: 2008.02.03;
Скачать: CL | DM;

Вниз

Вопрос про TreeView   Найти похожие ветки 

← →
Malik ©   (2007-06-26 20:45) [0]

Как во время выполнения программы ставить флажок на определённые Items Treview"ра.
ЗЫ
SetWindowLong(TreeView1.Handle,GWL_STYLE,GetWindowLong(TreeView1.Handle,GW L_STYLE) or TVS_CHECKBOXES);
—за счёт этой продцедуры к дереву прикручиваем флажки..

ЗАРАНЕЕ СПАСИБО

---

← →
Malik ©   (2007-06-26 21:41) [1]

Отвечаю на свой же вопрос:
 procedure   SetNodeChecked(Node   :TTreeNode;   Checked   :Boolean);
 const
     TVIS_CHECKED   =   $2000;
 var
     TvItem   :TTVItem;
 begin
     FillChar(TvItem,   SizeOf(TvItem),   0);
     with   TvItem   do   begin
         hItem:=   Node.ItemId;
         Mask:=   TVIF_STATE;
         StateMask:=   TVIS_STATEIMAGEMASK;
         if   Checked   then
             TvItem.State:=TVIS_CHECKED
         else
             TvItem.State:=TVIS_CHECKED   shr   1;
         TreeView_SetItem(Node.TreeView.Handle,   TvItem);
     end;
 end;

---

Страницы: 1 вся ветка

Текущий архив: 2008.02.03;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.048 c