Помогите сделать в TreeView цветные Items, попроще если можно [D6, Win2k]
arcad © (2002-09-18 16:47:00)
Помогите сделать в 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:00) [1]
см. OnCustomDrawItem
Наверх 
ЧАТ |
Орешник |
|
