Отображение файлов в TreeView...

[tim21701]

1.
а). В папке с программой, находится папка "reports".
б). Содержимое этой папки отображаем в TreeView.
в). Если в папке "reports" пользователь создал ещё одну папку, куда положил свой отчёт (*.fr3), отображаем и их. (сами файлы отображаются без расширения)

Пример (что должно получиться в итоге):


г). Если пользователь создал в папке reports новую папку, создаём ей индекс изображения 0 (из ImageList1).
д). Если пользователь создал отчёт (*.fr3) в какой либо папке, присваиваем ему индекс изображения 1 (из того же ImageList1).

2.
а). Выбираем отчёт из списка и нажимаем "Просмотр" - отчёт открывается на просмотр. (frxReport1.ShowReport; )
б). Выбираем отчёт и нажимаем на "Редактор" - отчёт открывается в редакторе отчётов. (frxReport1.DesignReport; )

Очень надеюсь на Вашу помощь. Спасибо.

P.S.
Используется Delphi XE2 upd3 + FastReport VCL 4 Standard Edition
Для тех - кто выложит полностью готовое решение, просьба написать мне в скайп и сообщить номер счёта "Яндекс.Деньги".

Project1.rar

[kettanaito]

А в чем вопрос?

Добавляйте узел при создании файла, после чего указывайте значение его ImageIndex, как вариант. Если за папкой Reports закреплена конкретная папка на компьютере то сканируйте файлы появляющиеся и исчезающие в ней.

Вторую часть вопроса просто анализируйте значение ImageIndex (как и ровно любое другое значение, которое может отвечать за различие типов узлов):

case treeview.Selected.ImageIndex of
0: ShowMessage('Some action with folder');
1: ShowMessage('Some action with file');
end;

[tim21701]

kettanaito Это немного не то, но спасибо.
Кстати, "report" расположена в папке с программой, и прописать к ней путь не получится, так как не известно - где вообще пользователь будет хранить папку с программой. Может в Program Files, а может и в C:\MyProgram.

Господа форумчане, помогите создать/написать такую программу!
В долгу не останусь...

[tim21701]

Провозился столько времени, так и не нИАсилил... В итоге, решил сделать немного "попроще"...
Отказался от использования TreeView. Перешел на более простой ListView.

Вот что получилось:

unit Unit9;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, ShellApi, Vcl.ImgList,
  Vcl.Menus, frxClass;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    Button2: TButton;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
 var
   i: Integer;
   Icon: TIcon;
   SearchRec: TSearchRec;
   ListItem: TListItem;
   FileInfo: SHFILEINFO;
 begin
   // Создаём временную иконку:
  Icon := TIcon.Create;
   ListView.Items.BeginUpdate; // Можно и без этого, но, пусть будет на "всякий"...
   try
     // Поиск файлов (с расширением *.fr3):
    i := FindFirst(strPath + '*.fr3*', faAnyFile, SearchRec);
     while i = 0 do
     begin
       with ListView do
       begin
         // Просматриваем директорию:
        if ((SearchRec.Attr and FaDirectory <> FaDirectory) and
           (SearchRec.Attr and FaVolumeId <> FaVolumeID)) then
         begin
           ListItem := ListView.Items.Add;
           //Отображаем имя файла:
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_DISPLAYNAME);
           Listitem.Caption := FileInfo.szDisplayName;
           // Получаме информацию о файлах:
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_TYPENAME);
           ListItem.SubItems.Add(FileInfo.szTypeName);
           //Получаем иконку для файлов в списке:
          SHGetFileInfo(PChar(strPath + SearchRec.Name), 0, FileInfo,
             SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
           icon.Handle := FileInfo.hIcon;
           ListItem.ImageIndex := 1; // Указываем какую иконку использовать.
           // Уничтожаем
          DestroyIcon(FileInfo.hIcon);
         end;
       end;
       i := FindNext(SearchRec); 
     end;
   finally

     ListView.Items.EndUpdate; // Пусть будет...
   end;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // Устанавливаем Imagelist для ListView:
  ListView1.SmallImages := ImageList1;
   // Устанавливаем свойство ViewStyle в "vsReport":
  ListView1.ViewStyle := vsReport;
  LV_InsertFiles('.\reports\', ListView1, ImageList1); //Наша папка с отчётами.
 end;

end.

Остались вопросы и прибавились новые:

1). Как спрятать расширение файлов?
2). Как во втором столбике вывести дату создания отчёта?
3). Как по дабл-клик открыть отчёт???


Исходники и экзешник внутри: Project9.rar

ПОМОГИТЕ ПОЖАЛУЙСТА!

[kettanaito]

Получить путь программы всегда можно с помощью ExtractFilePath(Application.ExeName ) - на заметку Отсюда получаем и путь к папке Reports. Далее просто следим за директорией отображая ее содержимое в древе (циклом можно загружать найденные файлы).

1. Как спрятать расширение файлов:
Просто скопируй строку без расширения

Listitem.Caption := Copy(FileInfo.szDisplayName,0,length(FileInfo.szDisplayName)-4);

Тем более если оно у тебя одно для всех существующих в программе файлов. Далее при открытии ты просто будешь добавлять расширение к строке и запускать файл как нужно.

2. Сортировка.
В свойствах компонента есть пункт Sort.

4. Опиши событие onDblClick у компонента TreeView.

[tim21701]

kettanaito Спасибо за ответ...

ExtractFilePath(Application.ExeName )

ясно, возьму на заметку Вот только я до конца не понимаю, зачем её использовать, если можно прописать "относительный" путь? В моём случае, это '.\reports\'.

Listitem.Caption := Copy(FileInfo.szDisplayName,0,lengt h(FileInfo.szDisplayName)-4);

Про это я знаю. Пробовал так сделать ещё в самом начале, но это почему то не работает... Поэтом, вместо неё, использую Listitem.Caption := FileInfo.szDisplayName;. Я поэтому и спросил КАК, может кто знает ещё вариант. Возьмите мой исходник - попробуйте сами, нонсонс...

Опиши событие onDblClick у компонента TreeView

frxReport1.ShowReport;

[Прик]

procedure LV_InsertFiles(strPath: string; ListView: TListView; ImageList: TImageList);
 var
   i, f: Integer;
   Icon: TIcon;
   SR: TSearchRec;
   ListItem: TListItem;
   FileInfo: SHFILEINFO;
   D : TDateTime;
 begin
   // Создаём временную иконку:
  Icon := TIcon.Create;
  ListView.Items.BeginUpdate; // Можно и без этого, но, пусть будет на "всякий"...
  try
     // Поиск файлов (с расширением *.fr3):
    i := FindFirst(strPath + '*.fr3*', faAnyFile, SR);
    while i = 0 do begin
      with ListView do begin
           // Просматриваем директорию:
        if ((SR.Attr and FaDirectory <> FaDirectory) and
             (SR.Attr and FaVolumeId <> FaVolumeID)) then
        begin
          ListItem := ListView.Items.Add;
             //Отображаем имя файла...
          Listitem.Caption := SR.Name;
          F := Pos('.', SR.Name);
          if F > 0 then
            Listitem.Caption := Copy(SR.Name, 1, F-1);

          ListItem.SubItems.Add(DateToStr(FileDateToDateTime(SR.Time)));

           //Получаем иконку для файлов в списке:
          SHGetFileInfo(PChar(strPath + SR.Name), 0, FileInfo,
                     SizeOf(FileInfo), SHGFI_ICON or SHGFI_SMALLICON);
          icon.Handle := FileInfo.hIcon;
          ListItem.ImageIndex := 1; // Указываем какую иконку использовать.
             // Уничтожаем:
          DestroyIcon(FileInfo.hIcon);
        end;
      end;
      i := FindNext(SR);
    end;
  finally
    ListView.Items.EndUpdate; // Пусть будет...
  end;
end;

[kettanaito]

К предыдущему коду могу посоветовать все же

Listitem.Caption := Copy(SR.Name, 0, length(SR.Name)-4);

Вместо:

Listitem.Caption := Copy(SR.Name, 1, F-1);

Потому как точки в именах файлов использовать можно и в случае их наличия более чем одной код выдаст не совсем желаемый результат Или флипнуть строку (ReverseString) и сделать Ваш код, несомненно.

[Прик]

kettanaito, пожалуйста, не путайте людей.
Ваш совет

Listitem.Caption := Copy(SR.Name, 0, length(SR.Name)-4)

не выдерживает никакой критики. Попробуйте предложенное реализовать в коде.
И не забывайте две вещи: значение переменной F где-то присваивается и индексация символов в строке начинается с 1, не с 0.

[tim21701]

Прик Спасибо Вам огромное!
Вот бы ещё кто помог последние два вопроса решить... Сортировка по щелчку заголовка и открытие по дабл-клик