| Class TSourceForm (unit SrcFrm) |
TForm
TSourceForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SourceExploreItemClick(Sender: TObject);
procedure SourceMenuPopup(Sender: TObject);
procedure SourceOpenItemClick(Sender: TObject);
procedure TreeViewDblClick(Sender: TObject);
procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure RefreshMenu;
procedure RefreshView;
function GetNodeFile(Node: TTreeNode): string;
procedure OpenNodeFile(Node: TTreeNode);| Properties |
| Events |
| Variables |
ImageList : TImageList;
SourceExploreItem : TMenuItem;
SourceMenu : TPopupMenu;
SourceN1Item : TMenuItem;
SourceOpenItem : TMenuItem;
StatusBar : TStatusBar;
TreeView : TTreeView;
FRootDir : string;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);Add Files
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure SourceExploreItemClick(Sender: TObject);
procedure SourceMenuPopup(Sender: TObject);
procedure SourceOpenItemClick(Sender: TObject);
procedure TreeViewDblClick(Sender: TObject);
procedure TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure RefreshMenu;
procedure RefreshView;
function GetNodeFile(Node: TTreeNode): string;TSourceForm
procedure OpenNodeFile(Node: TTreeNode);| Properties |
| Events |
| Variables |
ImageList : TImageList;
SourceExploreItem : TMenuItem;
SourceMenu : TPopupMenu;
SourceN1Item : TMenuItem;
SourceOpenItem : TMenuItem;
StatusBar : TStatusBar;
TreeView : TTreeView;
FRootDir : string;