VPF::TTreeView - Форум программистов

MacTep

Дата 11.4.2006, 22:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Посмотрите, плиз, следующий код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    tv1: TTreeView;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tn:TTreeNode;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  tn:=tv1.Items.Add(tn,'1');
  tv1.Items[tv1.Items.Count-1].ImageIndex:=0;
  tv1.Items.Add(tn,'2');
  tv1.Items[tv1.Items.Count-1].ImageIndex:=1;
  tv1.Items.Add(tn,'3');
  tv1.Items[tv1.Items.Count-1].ImageIndex:=0;
end;

end.

Он добавлет в TreeView три узла. У них разные пиктограммы. Как сделать так, чтобы они всегда были разные, а не менялись при нажатии и выборе их мышкой???

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Fast

Дата 12.4.2006, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Не понимаю про какие пиктограммы ты говориш.
Попробуй

Код


tv1.ReadOnly:=True;   // tv1 это имя твоего TreeVie'ва...

MacTep

Дата 12.4.2006, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Цитата(Fast @ 12.4.2006, 00:22

)

Не понимаю про какие пиктограммы ты говориш.

Про те самые, которые лежат в ImageList, который указан в свойсте Images компонента TreeView1 smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Fast

Дата 13.4.2006, 07:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 21.3.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 1

Цитата(MacTep @ 12.4.2006, 20:40

)

Про те самые, которые лежат в ImageList, который указан в свойсте Images компонента TreeView1

не когда бы не подумал что пиктограммы это картинки smile

Тогда попробуй это =)

Код


{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  tn:=tv1.Items.Add(tn,'1');
  tv1.Items[tv1.Items.Count-1].ImageIndex:=0;
  tv1.Items[tv1.Items.Count-1].SelectedIndex:=0;
  tv1.Items.Add(tn,'2');
  tv1.Items[tv1.Items.Count-1].ImageIndex:=1;
  tv1.Items[tv1.Items.Count-1].SelectedIndex:=1;
  tv1.Items.Add(tn,'3');
  tv1.Items[tv1.Items.Count-1].SelectedIndex:=0;
end;
end

MacTep

Дата 19.4.2006, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Да, спасибо! Все работает! smile

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »