Главная страница
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.013 c
1-98146
dim-
2002-09-17 16:04
2002.09.30
Ole контейнер


1-98067
Оля
2002-09-19 11:38
2002.09.30
Считывание файла Excel в F1Book1


1-98066
Skywalker
2002-09-19 12:02
2002.09.30
Почему не удаляется?


3-97947
maxim2
2002-09-09 06:33
2002.09.30
При добавлении записи выдает ошибку Key violation


7-98376
GydruS
2002-07-23 08:50
2002.09.30
LPT: Что есть tlLPTx?