пара вопросов по TreeView delphi

[KORT]

1. вопрос:
картинка:

procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
  begin
    if cdsSelected in State then
      begin
        TreeView1.Canvas.Brush.Color:= clRed;
        TreeView1.Canvas.Font.Style:=[fsBold];
      end;
end;

что нужно добавить или изминить, чтобы после выбора другого узла, не оставалось следа предыдущего просмотра
2. Как придумать выделение узлов только в своем Level? У меня 4 уровня, ниже код который только выделяет один узел и выдает информацию. Мне нужно, чтобы если выделенный узел (второй и последующий), относится к тому же левлу, что и предыдущий... добавлял значения в таблицу..., в противном случае сбрасывал предыдущие выделения...
код:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
  const
    NameCaptionTableInfo: array[1..6] of string =
    ('1','2','3','4','5','6');
  var
    clev1,clev2,clev3: integer;
    i,j,LengthValue,max: integer;
    root: IXMLNode;
    s1,s2,s3: string;
  begin
    WidthColunm:=0;
    clev1:=-1;
    clev2:=-1;
    clev3:=-1;
    if ListView2.Items.Count > 0 then
      repeat
        ListView2.Items.Delete(0);
      until ListView2.Items.Count = 0;
    case TreeView1.Selected.Level of
      0:  begin
          TreeView1.MultiSelect:=false;
          TreeView1.MultiSelect:=true;
// удалено в целях экономия места
          end;
      1:  begin
            if TreeView1.SelectionCount > 1 then
              begin
// как добавлять-то я знаю... а вот как еще проверить что выделенные узлы относятся именно к этому левлу затруднюсь...
              end
            else
              begin
// удалено в целях экономия места
              end;
      2:  begin            
// удалено в целях экономия места
           end;
      3:  begin
// удалено в целях экономия места
           end;
    end;
end;

[Аватар]

По простому не задавать fsBold

[KORT]

Сообщение от Аватар

По простому не задавать fsBold

а если с fsbold...

[Аватар]

а если с fsbold...

Ну тогда бы полностью самостоятельно прорисовывал все, а не просто цвет и параметры фонта менял

[KORT]

Сообщение от KORT

2. Как придумать выделение узлов только в своем Level? У меня 4 уровня, ниже код который только выделяет один узел и выдает информацию. Мне нужно, чтобы если выделенный узел (второй и последующий), относится к тому же левлу, что и предыдущий... добавлял значения в таблицу..., в противном случае сбрасывал предыдущие выделения...

Может кому пригодится ответ на этот вопрос. Оказалось совершенно просто... Посидел, подумал... ну вот результат:

unit Unit1;

interface

uses
...

type
...

var
  Form1: TForm1;
  provlev,provcoun: integer; 

implementation

{$R *.dfm}

procedure TForm1.TreeView1Click(Sender: TObject);
  var
    i,j: integer;
  begin          
    if provlev = TreeView1.Selected.Level then
      if TreeView1.SelectionCount > provcoun then
        begin
          for i:=0 to TreeView1.Selected.Count-1 do
            memo1.Lines.Add(TreeView1.Selected.Item[i].Text);
          provcoun:=TreeView1.SelectionCount;
        end
      else
        begin
          memo1.Clear;
          for i:=0 to TreeView1.SelectionCount-1 do
            for j:=0 to TreeView1.Selections[i].Count-1 do
              Memo1.Lines.Add(TreeView1.Selections[i].Item[j].Text);
          provcoun:=TreeView1.SelectionCount;
        end
    else
      begin
        memo1.Clear;
        TreeView1.MultiSelect:=false;
        TreeView1.MultiSelect:=true;
        provlev:=TreeView1.Selected.Level;
        for i:=0 to TreeView1.Selected.Count-1 do
          memo1.Lines.Add(TreeView1.Selected.Item[i].Text);
        provcoun:=TreeView1.SelectionCount;
      end;
  end;
                      
procedure TForm1.FormCreate(Sender: TObject);
  begin
    provlev:=0;
    provcoun:=0;
  end;

end.

P.S. закрывайте тему!
P.S.S. Забыл поменять твой ник на свой...

[Аватар]

Сообщение от Аватар

У меня не было такого сообщения

[KORT]

Сообщение от KORT

что нужно добавить или изминить, чтобы после выбора другого узла, не оставалось следа предыдущего просмотра

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
  begin
    TreeView1.Repaint;
....
  end;