Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

TreeView изменить размеры элементов.   Найти похожие ветки 

 
@!!ex ©   (2010-03-03 23:39) [0]

Задача в том, чтобы вместо некоторых элементов нарисовать картинку размеро 64х64, соответственно элемент должен быть большой, чтобы корректно эту картинку вместить.
не нашел свойств отвечающих эа это.
У ListView ItemHeight, а тут ничего такого нет.


 
Игорь Шевченко ©   (2010-03-04 00:25) [1]

у TreeView есть свойство OwnerDraw - хоть слона и мышь рисуй в одном дереве.

Как делал я, когда мне надо было в одном TreeView отобразить элементы разной высоты:

procedure TfSimilarMembers.DisplayTree;
var
 I, J: Integer;
 Node, ChildNode: TTreeNode;
 ItemEx: TTVITEMEX;
begin
 TreeView.Items.Clear;
 for I := 0 to dmMemberEx.MemberTree.Count - 1 do
 begin
   Node := TreeView.Items.AddObject(nil, dmMemberEx.MemberTree[I].DisplayText,
     dmMemberEx.MemberTree[I]);
   for J := 0 to dmMemberEx.MemberTree[I].Details.Count - 1 do
   begin
     ChildNode := TreeView.Items.AddChildObject(Node,
       dmMemberEx.MemberTree[I].Details[J].DisplayText,
       dmMemberEx.MemberTree[I].Details[J]);
     ItemEx.mask := TVIF_INTEGRAL;
     ItemEx.hItem := ChildNode.ItemId;
     ItemEx.iIntegral :=
       dmMemberEx.MemberTree[I].Details[J].Info.DisplayLinesCount + 2;
     SendMessage (TreeView.Handle, TVM_SETITEMA, 0, LPARAM(@ItemEx));
   
   end;
 end;
end;


 
@!!ex ©   (2010-03-04 08:31) [2]

Спасибо!



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

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

Наверх




Память: 0.47 MB
Время: 0.061 c
2-1272386845
romario
2010-04-27 20:47
2010.08.27
Как передать данные из одной процедуры в другую


10-1167426358
nali
2006-12-30 00:05
2010.08.27
Ошибка при работе с Excel2000


6-1219633699
civic.qip
2008-08-25 07:08
2010.08.27
Вопрос про ServerSocket и ClientSocket


2-1271157616
@!!ex
2010-04-13 15:20
2010.08.27
Корректно ли сделал define?


2-1269087279
AntonioBanderas
2010-03-20 15:14
2010.08.27
Права пользователей FireBird