Листинг 14. Текст главного модуля MainUnit.pas

unit MainUnit;

Interface

type
TFileViewerForm = class (TForm)
MainMenu: TMainMenu;
MenuFile: TMenuItem;
ItemExit: TMenuItem;
ImageList: TIimageList;
StatusBar: TStatusBar;
ListImageList: TImageList;
ItemSeparator: TMenuItem;
ItemExpandAll: TMenuItem;
ItemRefresh: TMenuItem;
ControlBar1: TControlBar;
ControlBar2: TControlBar;
ControlBar3: TControlBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
PanelOverClient: TPanel;
PanelClient: TPanel;
SplitterVertical: TSplitter;
SplitterHorizontal: TSpiitter;
TreeView: TTreeViev:;
ListView: TListView;
Memo: TMemo;
ControlBar4: TControlBar;
ActionList: TActionList;
PopupMenu: TPopupMenu;
N1: TMenuItem;
ActionRefresh: TAction;
ActionExpandAll: TAction;
ActionExit: TAction;
ActionAbout: TAction;
ToolBar2: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItsm;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenultem;
procedure FormCreate(Sender: TObject);
procedure TreeViewCollapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
procedure TreeViewChange(Sender: TObject; Node: TTreeNode);
procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
procedure ListViewClick(Sender: TObject);
procedure ActionRefreshExecute(Sender: TObject);
procedure ActionExpandAllExecute(Sender: TObject);
procedure ActionExitExecute(Sender: TObject);
procedure ActionAboutExecute(Sender: TObject);
private
// Счистить дерево и прочитать список доступных дисков
procedure UpdateTree;
// Получить текущий выбраннй в дереве каталог
function GetNodeFolder(N: TTreeNode): string;
end;