12405

Компоненты отображения иерархических данных

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 10 Компоненты отображения иерархических данных Цель лабораторной работы состоит в изучении методики работы с компонентами отображения произвольных иерархических данных. Общие сведения о компонентах В библиотеке VCL для отображения иерар...

Русский

2013-04-27

165 KB

8 чел.

Лабораторная работа № 10

Компоненты отображения иерархических данных

Цель лабораторной работы состоит в изучении методики работы с компонентами отображения произвольных иерархических данных.

Общие сведения о компонентах

В библиотеке VCL для отображения иерархических структур имеются такие компоненты

Таблица № 1

Компонента

Страница VCL

Описание

TreeView

(окно дерева данных)

Win32

Просмотр структуры иерархических данных в виде дерева в стиле Windows 95/98/2000

OutLine

(окно дерева данных)

Win3.1

Просмотр структуры иерархических данных в виде дерева в стиле Windows 3.х

ListView

(список данных в стиле Windows 95)

Win32

Отображение в стиле папок Windows списком

в виде колонок или пиктограмм

OpenDialog

(открыть файл)

Dialogs

Предназначен для создания окна диалога «Открыть файл»

FileListBox

(список файлов)

Win3.1

Отображает список всех файлов каталога

DirectoryListBox

(структура каталогов)

Win3.1

Отображает структуру каталогов диска

DriveComboBox

(список дисков)

Win3.1

Выпадающий список доступных дисков

CDirectoryOutline

(дерево каталогов)

Samples

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

Компонента ListView позволяет в стиле Windows отображать данные в виде списков, таблиц, крупных и мелких пиктограмм. Пользователь сталкивается с таким отображением данных  при раскрытии папок Windows.

Стиль отображения информации определяется свойством ViewStyle , которое может устанавливаться в процессе проектирования или программно во время выполнения. Свойство может принимать такие значения: vsIcon – крупные значки; vsSmallIcon – мелкие значки; vsList – список; vsReport – таблица. Основное свойство компоненты ListView задается в поле свойств – Items. Реорганизация дерева, связанная с созданием или удалением многих узлов, может вызывать неприятные мерцания изображения. Избежать этого можно с помощью методов BeginUpdate и EndUpdate. Первій метод запрещает перерисовку дерева, а второй – разрешает.

Постановка задачи лабораторной работы.

Необходимо создать для Windows приложение у которого в окне формы будет видна структура папок выбранного диска и при открытии двойным щечком папки должен появляться список файлов хранящихся в папке.

Порядок действий и команд при выполнении работы.

Шаг 1. Перейдите на форму приложения и в свойстве Caption напишите название работы “Лаб. работа № 13 компонента ListView ”, чтобы этот текст появился в заголовке формы. Выполните команду File/Save Project As…  . На диске D:\ создайте папку Lab_13  для  файлов проекта P_work_13.bpr и файла U_work_13.cpp.

Шаг 2. Установите на форму компоненты DriveComboBox1 и DriveComboBox2 , как это показано рис.1.

Рис.1.

Шаг 3. Установите на форму компоненты DirectoryListBox1 и DirectoryListBox2 , как это показано рис.2.

Рис.2.

Шаг 4. Установите на форму компоненты ListView1 и ListView2 , как это показано рис.3.

Рис. 3.

Шаг 5. Выполните предварительную компиляцию с целью проверки.

Шаг 6. Установите на форму компоненты Label1 и Label2 . В свойстве Caption задайте синим цветом пояснительную надпись «Свойства значков» и расположите их согласно рис.4.

Шаг 7. Установите на форму компоненты ComboBox1 и ComboBox2 , как это показано рис.4. . В свойстве Items задайте названия для выпадающего списка: Крупные значки

                                                                                                                     Мелкие значки

                                                                                                                     Список

                                                                                                                     Таблица.

Шаг 8. Задайте событие   void __fastcall TForm1::FormCreate(TObject *Sender); и заполните оператоы согласно листинга программы файла U_work_13.cpp .

Шаг 9. Задайте события   void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender); и void __fastcall TForm1::DirectoryListBox2Change(TObject *Sender); и  заполните оператоы согласно листинга программы файла U_work_13.cpp .

Шаг 10. Задайте события   void __fastcall TForm1::ComboBox1Click(TObject *Sender); и  void __fastcall TForm1::ComboBox2Click(TObject *Sender);  и заполните оператоы согласно листинга программы файла U_work_13.cpp .

Шаг 11. Выполните компиляцию исходных файлов и проверте работу приложения, как показано рис.5.

Рис.4.

Рис. 5. Результат работы приложения Windows.

Листинг файла U_work_13.cpp.

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "U_work_13A.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

       : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void UpdateFiles_1()

{

TSearchRec sr1;

// TSHFileInfo * fi1;

TListItem *pItem1 = NULL;

int IconIndex1;

TSHFileInfo * fi1 = new TSHFileInfo;

Form1->ListView1->Items->BeginUpdate();

Form1->ListView1->Items->Clear();

if (FindFirst(Form1->DirectoryListBox1->Directory + "\\*.*", faAnyFile, sr1) == 0)

 do

 {

   if (sr1.Attr == faDirectory) continue;

  pItem1 = Form1->ListView1->Items->Add();

  pItem1->Caption = sr1.Name;

  SHGetFileInfo(("*" + LowerCase(ExtractFileExt(pItem1->Caption))).c_str(),

    0, fi1, sizeof(fi1),

     SHGFI_SMALLICON | SHGFI_SYSICONINDEX | SHGFI_TYPENAME);

  pItem1->ImageIndex = fi1->iIcon;

  if (sr1.Size < 1024)

   pItem1->SubItems->Add(IntToStr(sr1.Size) + " byte");

   else if (sr1.Size < 1024 * 1024)

    pItem1->SubItems->Add(IntToStr(sr1.Size / 1024) + " KByte");

    else pItem1->SubItems->Add(IntToStr(sr1.Size / (1024 * 1024)) + " MByte");

   pItem1->SubItems->Add(fi1->szTypeName);

  }

  while (FindNext(sr1) == 0);

FindClose(sr1);

Form1->ListView1->Items->EndUpdate();

}

//---------------------------------------------------------------------------

void UpdateFiles_2()

{

TSearchRec sr2;

// TSHFileInfo * fi2;

TListItem *pItem2 = NULL;

int IconIndex2;

TSHFileInfo * fi2 = new TSHFileInfo;

Form1->ListView2->Items->BeginUpdate();

Form1->ListView2->Items->Clear();

if (FindFirst(Form1->DirectoryListBox2->Directory + "\\*.*", faAnyFile, sr2) == 0)

 do

 {

   if (sr2.Attr == faDirectory) continue;

  pItem2 = Form1->ListView2->Items->Add();

  pItem2->Caption = sr2.Name;

  SHGetFileInfo(("*" + LowerCase(ExtractFileExt(pItem2->Caption))).c_str(),

    0, fi2, sizeof(fi2),

     SHGFI_SMALLICON | SHGFI_SYSICONINDEX | SHGFI_TYPENAME);

  pItem2->ImageIndex = fi2->iIcon;

  if (sr2.Size < 1024)

   pItem2->SubItems->Add(IntToStr(sr2.Size) + " byte");

   else if (sr2.Size < 1024 * 1024)

    pItem2->SubItems->Add(IntToStr(sr2.Size / 1024) + " KByte");

    else pItem2->SubItems->Add(IntToStr(sr2.Size / (1024 * 1024)) + " MByte");

   pItem2->SubItems->Add(fi2->szTypeName);

  }

  while (FindNext(sr2) == 0);

FindClose(sr2);

Form1->ListView2->Items->EndUpdate();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)

{

TSHFileInfo * fi1, *fi2;

DriveComboBox1->DirList = DirectoryListBox1;

ListView1->SmallImages->Height = 16;

ListView1->SmallImages->Width = 16;

 DriveComboBox2->DirList = DirectoryListBox2;

 ListView2->SmallImages->Height = 16;

 ListView2->SmallImages->Width = 16;

// SHGetFileInfo("*.*", 0, fi,

//      sizeof(fi), SHGFI_SMALLICON | SHGFI_ICON | SHGFI_SYSICONINDEX);

ListView1->SmallImages->Handle =

SHGetFileInfo("*.*", 0, fi1,

     sizeof(fi1), SHGFI_SMALLICON | SHGFI_ICON | SHGFI_SYSICONINDEX);

ListView1->LargeImages->Handle = SHGetFileInfo("*.*", 0, fi1,

     sizeof(fi1), SHGFI_LARGEICON | SHGFI_ICON | SHGFI_SYSICONINDEX);

ComboBox1->ItemIndex = 0;

ListView1->SmallImages->Handle =

SHGetFileInfo("*.*", 0, fi2,

     sizeof(fi2), SHGFI_SMALLICON | SHGFI_ICON | SHGFI_SYSICONINDEX);

ListView2->LargeImages->Handle = SHGetFileInfo("*.*", 0, fi2,

     sizeof(fi2), SHGFI_LARGEICON | SHGFI_ICON | SHGFI_SYSICONINDEX);

ComboBox2->ItemIndex = 0;

UpdateFiles_1();

UpdateFiles_2();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)

{

UpdateFiles_1();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox1Click(TObject *Sender)

{

switch (ComboBox1->ItemIndex)

{

 case 0: ListView1->ViewStyle = vsIcon;

         break;

 case 1: ListView1->ViewStyle = vsSmallIcon;

         break;

 case 2: ListView1->ViewStyle = vsList;

         break;

 case 3: ListView1->ViewStyle = vsReport;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ComboBox2Click(TObject *Sender)

{

 switch (ComboBox2->ItemIndex)

{

 case 0: ListView2->ViewStyle = vsIcon;

         break;

 case 1: ListView2->ViewStyle = vsSmallIcon;

         break;

 case 2: ListView2->ViewStyle = vsList;

         break;

 case 3: ListView2->ViewStyle = vsReport;

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DirectoryListBox2Change(TObject *Sender)

{

  UpdateFiles_2();

}

//---------------------------------------------------------------------------

Листинг U_work_13.h

//---------------------------------------------------------------------------

#ifndef U_work_13H

#define U_work_13H

//---------------------------------------------------------------------------

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ComCtrls.hpp>

#include <FileCtrl.hpp>

#include "ShellAPI.h"

#include "shlwapi.h"

#include <ImgList.hpp>

//---------------------------------------------------------------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

       TListView *ListView1;

       TDirectoryListBox *DirectoryListBox1;

       TDriveComboBox *DriveComboBox1;

       TComboBox *ComboBox1;

       TImageList *ImageList1;

       TImageList *ImageList2;

       TLabel *Label1;

       TDriveComboBox *DriveComboBox2;

       TDirectoryListBox *DirectoryListBox2;

       TListView *ListView2;

       TLabel *Label2;

       TComboBox *ComboBox2;

       void __fastcall FormCreate(TObject *Sender);

       void __fastcall DirectoryListBox1Change(TObject *Sender);

       void __fastcall ComboBox1Click(TObject *Sender);

       void __fastcall ComboBox2Click(TObject *Sender);

       void __fastcall DirectoryListBox2Change(TObject *Sender);

private: // User declarations

public:  // User declarations

       __fastcall TForm1(TComponent* Owner);

};

//---------------------------------------------------------------------------

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

#endif

Контрольные задания по лабораторной работе.

1. Настроить события для перемещения папки или файла мышкой.

2. Настроить события для копирования файлов.

3. Установить индикаторы для визуального наблюдения за ходом копирования файла.


 

А также другие работы, которые могут Вас заинтересовать

34642. Типы организаций 21.39 KB
  Процесс принятия рационального решения Состоит из 7 основных этапов Диагностика или определение проблемы Существует 2 способа рассмотрения проблемы: Проблемой считается ситуация когда поставленные цели не достигнуты. Проблема как потенциальная возможность для этого необходима релевантная информация это данные касающиеся только конкретной проблемы человека цели в определенный период времени Все проблемы имеют: Определенное лицо Что Связанный с какимто конкретным местом Где Время возникновения и частота повторяемости...
34643. Общие характеристики организаций 40.73 KB
  Необходимость управления практическая реализация Факторы влияющие на процесс принятия решений Личностная оценка руководителя – субъективное ранжирования важности качества или блага. Среда принятия решений Все решения принимаются в разных обстоятельствах по отношению к риску и выделяют: Условие определенности когда точно известен результат каждого из альтернативного варианта выбора Условие риска – результаты этих решений не являются определенными но вероятность каждого результата известна. Негативные последствия – принятие...
34644. Личность. Методы принятия решений 22.49 KB
  ЯОбраз – какими мы видим себя Идеальное Я – какими нам хотелось бы быть Зеркальное Я – какими по нашему мнению нас видят другие Реальное Я –каковы мы в действительности Методы принятия решений При принятии решений вне зависимости от применяемых моделей существует правило принятия решений. Соответственно существуют следующие методы принятия решений: Платежная матрица – оказывает помощь руководителю в выборе одного из нескольких вариантов решений. Методы прогнозирования – в них используется как накопленный опыт так и текущие допущения на...
34645. Понятие алгоритма. Свойства, способы описания 90 KB
  Понятие алгоритма и способы его описания; Типы алгоритмов; Блоксхемы; Базовые структуры применяемые при создании алгоритмов. Иначе говоря блоксхема служит для графического изображения структуры алгоритма. Последовательность действий в соответствии с блоксхемой указывается с помощью стрелок соединяющих отдельные блоки и показывающих какой блок и вслед за каким должен выполняться. В ходе изучения данной дисциплины будут рассматриваться алгоритмы описанные при помощи языка программирования и при помощи специальных схем...
34646. Процедуры и функции 85.5 KB
  Пользовательские функции. В Паскале имеется два вида подпрограмм: процедуры PROCEDURE и функции FUNCTION. В программе процедуры и функции описываются после раздела описания переменных программы но до начала ее основной части то есть до оператора Begin начинающего эту часть.
34647. Рекурентные выражения. Рекурсия 73.5 KB
  При первом вызове функции fib5 определяется через fib4fib3; вычисление fib4 осуществляется через fib3 fib2 fib3 через fib2 fibl fib2 через fib1 fib0. Согласно условию прекращения рекурсии fibl и fib0 равно 1. Соответствующий рекурсивный процесс должен быть осуществлен и для fib4 и т. Решение: Vr n:byte; function fibk:byte :longint; begin if k = 1 then fib : = 1 else fib: =fibk l fibk 2 {рекурсивный вызов} end; BEGIN redlnn; writelnn 'e число Фибоначчи'...
34648. Сортировка. Усовершенствованные алгоритмы сортировки 142.5 KB
  Усовершенствованные алгоритмы сортировки. Имеется два вида алгоритмов сортировки. Изза этих отличий методы сортировки существенно отличаются для этих двух видов сортировки. В общем случае при сортировке данных только часть информации используется в качестве ключа сортировки который используется в сравнениях.
34649. Страница Dialogs 227.84 KB
  Пусть ваше приложение включает окно редактирования Memo1 в которое по команде меню Открыть вы хотите загружать текстовый файл а после какихто изменений сделанных пользователем сохранять по команде Сохранить текст в том же файле а по команде Сохранить как.FileNme; Memo1.FileNme сохраняется в переменной FNme и файл загружается в текст Memo1 методом LodFromFile. Обработка команды Сохранить выполняется оператором Memo1.
34650. Страница System 215.58 KB
  Пиктограмма Имя Назначение Timer Таймер. Timer Компонент DelphiTimer очень простой компонент который не виден на экране но тем не менее TimerDelphi выполняет очень важные функции в программе. DelphiTimer позволяет вводить необходимые задержки между выполнением тех или иных действий.