Главная страница
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.012 c
1-98063
Leonon
2002-09-19 10:46
2002.09.30
FreeReport при просмотре символы #


1-98198
som
2002-09-18 14:21
2002.09.30
Excel и Word


1-98136
Morfey COOL
2002-09-17 12:19
2002.09.30
Запуск приложения


1-98214
Wolverin
2002-09-18 17:54
2002.09.30
ICO to BMP


14-98274
PUNKER
2002-07-30 23:34
2002.09.30
Помогите с DELPHI !!!!!!!!!!!!