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

Вниз

Помогите сделать в TreeView цветные Items, попроще если можно   Найти похожие ветки 

 
arcad ©   (2002-09-18 16:47) [0]

Помогите сделать в TreeView цветные Items, попроще если можно.
Буду очень признателен за кусочек кода.

procedure TDlgForm.BtViewClick(Sender: TObject);
var i,j : integer;
Frs: TFrase;
Hero, Final: string;
CurNode: TTreeNode;
begin
TV.Items.Clear;
CurNode:=TTreeNode.Create(nil);
for i:=0 to Dialog.Kolvo-1 do
begin
Hero:=""; Final:="";
Frs:=Dialog.Frases[i];
if Frs.MainHero=1 then Hero:="xxx\"
else Hero:="yyy\";
if Frs.final=1 then Final:="zzz\";
if Frs.Kolvo=1 then TV.Items.Add(nil,IntToStr(i)+"\Go:"+IntToStr(Frs.GoNextD[0])+"\"+Final+Hero+FindText(MainForm.Memo1,Frs.Numbers[0]));
if Frs.Kolvo>1 then
begin
CurNode:=TV.Items.Add(nil,IntToStr(i)+"\"+Final+Hero);
for j:=0 to Frs.Kolvo-1 do // Здесь нужно текст сделать например красным
TV.Items.AddChild(CurNode,IntToStr(j)+"\Go:"+IntToStr(Frs.GoNextD[j])+"\"+FindText(MainForm.Memo1,Frs.Numbers[j]));
end;
end;
end;


 
lenin ©   (2002-09-18 16:49) [1]

см. OnCustomDrawItem



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

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

Наверх




Память: 0.46 MB
Время: 0.015 c
14-98296
Eduard
2002-09-02 16:02
2002.09.30
Как зарегистрироваться на Борланде ?


3-97953
RDA
2002-09-08 13:46
2002.09.30
FIBPlus и Мастер - Деталь


3-98002
Kurt
2002-09-10 11:40
2002.09.30
Как в CtrlGrid-е отловить событие вставки записи. Ну то есть пере


3-97963
Dmitrey
2002-09-09 11:47
2002.09.30
Проблемы с выводом SELECT во внешние базы с MS SQL через ADO


14-98284
undert
2002-09-03 20:29
2002.09.30
To WebDesigners and Creators