VPF::Нужен компонент - Форум программистов

ne0n

Дата 25.9.2006, 18:48 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

Вобщем нужен такой компонент, который выводит список дисков, папок И нужные диски папкм можно отметить.
Вобщем все видно на скрине. заранее благодарю.

Присоединённый файл ( Кол-во скачиваний: 45 )

1.JPG 16,44 Kb

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

http://sa-sec.org
как я вам? smile

drkot

Дата 25.9.2006, 19:10 (ссылка)

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

Загрузка ...

Ищущий

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

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

в jedy подобное видел.

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

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

ne0n

Дата 26.9.2006, 15:53 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

Я че то не видел. Как называется?

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

http://sa-sec.org
как я вам? smile

~FoX~

Дата 26.9.2006, 16:24 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

Возьми обычный ShellTreeView и поехали:

Код


procedure TForm1.FormShow(Sender: TObject);
begin
  SetWindowLong(ShellTreeView1.Handle, GWL_STYLE,
  GetWindowLong(ShellTreeView1.Handle, GWL_STYLE) or TVS_CHECKBOXES); //применяем стиль
end;

Так проверяем состояние:

Код


function IsCheckedNode(Node: TTreeNode): boolean; //Проверяем
var
  TVItem: TTVItem;
begin
  Result := false;
  if not Assigned(Node) then Exit;
  with TVItem do
    begin
      mask := TVIF_STATE or TVIF_HANDLE;
      hItem := Node.ItemId;
      stateMask := TVIS_STATEIMAGEMASK;
      TreeView_GetItem(Node.Handle, TVItem);
      if state = 8192 then result := true
      else result := false;
    end;
end;

Соответственно так устанавливаем состояние:

Код


procedure CheckNode(Node: TTreeNode; Value: boolean); //Устанавливаем
var TVItem: TTVItem;
begin
  if not Assigned(Node) then Exit;
  with TVItem do
    begin
      mask := TVIF_STATE or TVIF_HANDLE;
      hItem := Node.ItemId;
      stateMask := TVIS_STATEIMAGEMASK;
      if value then state := INDEXTOSTATEIMAGEMASK(2) else state := INDEXTOSTATEIMAGEMASK(1);
    end;
  TreeView_SetItem(Node.Handle, TVItem);
end;

Вот так все это вызывается:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckNode(ShellTreeView1.Items[1], True); //Ставим галку на первый итем
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  b: Boolean;
begin
  b:=IsCheckedNode(ShellTreeView1.Items.Item[1]);
  If b = False then MessageBox(0, Pchar('False'), 'Uncheck', mb_ok) //смотрим что там в первом итеме
  else MessageBox(0, Pchar('True'), 'Check', mb_ok);
end;

Это сообщение отредактировал(а) ~FoX~ - 26.9.2006, 16:26

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

…множественность никогда не следует полагать без необходимости…

ne0n

Дата 28.9.2006, 09:46 (ссылка)

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

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

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

Конечно хорошо, но ShellTreeView тормозит, а это мне не подходит. Ну я знаю, что ест этот компонент,
только название не знаю(простите за коломбур).

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

http://sa-sec.org
как я вам? smile

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