Class TSourceInspector (unit SrcInsp)

Inherits from

TForm

TSourceInspector

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure PopupAddItemClick(Sender: TObject);


procedure PopupDeleteItemClick(Sender: TObject);


procedure PopupExploreItemClick(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure PopupOpenItemClick(Sender: TObject);


procedure PopupRefreshItemClick(Sender: TObject);


procedure PopupRenameItemClick(Sender: TObject);


procedure TreeViewDblClick(Sender: TObject);


procedure TreeViewDeletion(Sender: TObject; Node: TTreeNode);


procedure TreeViewEditing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean);


procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);


procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure LoadFolders;


procedure ReLoadFolders;


procedure SaveFolders;


function AddFolder(const Caption, Folder: string): TTreeNode;

TSourceInspector

function AddNode(const Name: string; Node: TTreeNode): TTreeNode;


function AddSubMark(Node: TTreeNode): TTreeNode;


function DelSubMark(Node: TTreeNode): TTreeNode;


function GetMasks: TStringList;


function GetNodeFile(Node: TTreeNode): string;


function GetNodeFolder(Node: TTreeNode): string;


procedure OpenNodeFile(Node: TTreeNode);


procedure ScanNodeDir(Node: TTreeNode);


Properties

property Masks : TStringList


Events

Variables

ImageList : TImageList;


PopupAddItem : TMenuItem;


PopupDeleteItem : TMenuItem;


PopupExploreItem : TMenuItem;


PopupMenu : TPopupMenu;


PopupN1Item : TMenuItem;


PopupN2Item : TMenuItem;


PopupOpenItem : TMenuItem;


PopupRefreshItem : TMenuItem;


PopupRenameItem : TMenuItem;


StatusBar : TStatusBar;


TreeView : TTreeView;


FMasks : TStringList;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure PopupAddItemClick(Sender: TObject);


procedure PopupDeleteItemClick(Sender: TObject);


procedure PopupExploreItemClick(Sender: TObject);


procedure PopupMenuPopup(Sender: TObject);


procedure PopupOpenItemClick(Sender: TObject);


procedure PopupRefreshItemClick(Sender: TObject);


procedure PopupRenameItemClick(Sender: TObject);


procedure TreeViewDblClick(Sender: TObject);


procedure TreeViewDeletion(Sender: TObject; Node: TTreeNode);


procedure TreeViewEditing(Sender: TObject; Node: TTreeNode; var AllowEdit: Boolean);


procedure TreeViewExpanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);


procedure TreeViewKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure LoadFolders;


procedure ReLoadFolders;


procedure SaveFolders;


function AddFolder(const Caption, Folder: string): TTreeNode;

TSourceInspector


function AddNode(const Name: string; Node: TTreeNode): TTreeNode;


function AddSubMark(Node: TTreeNode): TTreeNode;


function DelSubMark(Node: TTreeNode): TTreeNode;


function GetMasks: TStringList;


function GetNodeFile(Node: TTreeNode): string;


function GetNodeFolder(Node: TTreeNode): string;


procedure OpenNodeFile(Node: TTreeNode);


procedure ScanNodeDir(Node: TTreeNode);


Properties


property Masks : TStringList


Events


Variables


ImageList : TImageList;


PopupAddItem : TMenuItem;


PopupDeleteItem : TMenuItem;


PopupExploreItem : TMenuItem;


PopupMenu : TPopupMenu;


PopupN1Item : TMenuItem;


PopupN2Item : TMenuItem;


PopupOpenItem : TMenuItem;


PopupRefreshItem : TMenuItem;


PopupRenameItem : TMenuItem;


StatusBar : TStatusBar;


TreeView : TTreeView;


FMasks : TStringList;