Форум: "Основная";
Текущий архив: 2002.09.30;
Скачать: [xml.tar.bz2];

Вниз

Помогите сделать в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c