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

BpIstorick

Дата 28.5.2006, 09:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Хочу сам создать ttreeView по типу проводника,
не могу разобраться с типами файлов, то есть у tSearchRec есть поле Attr(атрибут то есть), но как его ковырять и с какого края?

1. список значений Attr
2. по возможности вообще описание tSearchRec
3. !!! как лучше разрисовать файлы по типам (архив, как архив и все такое smile

)

Демо

Дата 28.5.2006, 10:08 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(BpIstorick @ 28.5.2006, 09:17

)

1. список значений Attr

В Help есть полный список.

Цитата(BpIstorick @ 28.5.2006, 09:17

)

2. по возможности вообще описание tSearchRec

Что-то конкретно не понятно в Help? (см. п.1.).

Цитата(BpIstorick @ 28.5.2006, 09:17

)

3. !!! как лучше разрисовать файлы по типам (архив, как архив и все такое)

Что значит разрисовать?
Как тебе надо, так и сделай.

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

Poseidon

Дата 28.5.2006, 14:00 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Цитата(BpIstorick @ 28.5.2006, 09:17

)

1. список значений Attr

faReadOnly - файл только для чтения
faHidden - невидимый (скрытый) файл
faSysFile - системный файл
faVolumeID - идентификатор диска
faDirectory - каталог
faArchive - архивный файл
faSymLink - Честно? Не разу не пользовался. Но справка говорит что это "Файл символических ссылок"
faAnyFile - любой файл

Цитата(BpIstorick @ 28.5.2006, 09:17

)

. по возможности вообще описание tSearchRec

Тут я отвечу так же как и Демо. А вообще не так отвечу, а так: один топик - один вопрос!

Цитата(BpIstorick @ 28.5.2006, 09:17

)

!!! как лучше разрисовать файлы по типам (архив, как архив и все такое)

лучше сделать настройку. Пусть юзер сам выбирает, какой цвет под какой файл ему больше нравится

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

BpIstorick

Дата 28.5.2006, 20:11 (ссылка)

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

Загрузка ...

Новичок

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

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

help я читал

вопрос про Attr появился после того как я в режиме отладки получил для папки с названием "!!!библиотека" код аттрибута 2064

участок кода где все происходит

Код


  findFirst (path+'\*.*', faAnyFile, sr);
  repeat
  if (sr.Name<>'.') and (sr.Name<>'..') then
    begin
      tnode:= tvExplorer.Items.AddChild(node, sr.Name);
      case sr.Attr of
        16, 2064:                        //здесь папки ищу
          begin
            tnode.ImageIndex:=2;
            tnode.SelectedIndex:=3;
            application.ProcessMessages;
            findFirst (path+sr.Name+'\*', faAnyFile, sr2);
            repeat
              if (sr2.Name<>'.') and (sr2.Name<>'..')
                then
                  begin
                    tvExplorer.Items.AddChild(tnode, sr2.Name);
                    break;
                  end;
            until FindNext(sr2)<>0;
          end;
        17..2063, 2065..10000:  tnode.ImageIndex:=0; //здесь так для баловства
        end;
      end;
  until findNext(sr)<>0;

вот поэтому такой вопрос

p.s.
раскрасить файлы - это мой кривой русский smile

На самом деле в зависимости от типа файла присвоить соотв. иконку (как в винде но не хочу винду)

p.s.s.
ответы типа "это кучу раз рассмотрено" не принимаются smile

либо укажите на инфу, либо объясните smile

хочу разобраться сам

Демо

Дата 28.5.2006, 21:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(BpIstorick @ 28.5.2006, 20:11

)

case sr.Attr of
16, 2064:

Где ты только нашел такой метод...

sr.Attr - битовая маска. И проверять нужно сотоветствующим образом:

Код


if (sr.Attr and faDirectory)= faDirectory then ...
if (sr.Attr and faHidden)= faHidden then ...

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

BpIstorick

Дата 29.5.2006, 00:15 (ссылка)

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

Загрузка ...

Новичок

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

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

сидел копал и накопал smile

в справке по Delphi в описании TSearchRec есть как Constant, так и Value

Value, как я подумал, - это числовое представление атрибута smile

но похоже оказался не прав.

буду дальше копаться smile

Это сообщение отредактировал(а) BpIstorick - 29.5.2006, 00:19

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