Реферат Реалізація засобами мови програмування Delphi програми "Файловий менеджер"

); cmbxCommandEnter (Sender: TObject); miAboutClick (Sender: TObject); btEditClick (Sender: TObject); btCopyClick (Sender: TObject); btMoveClick (Sender: TObject ); btFolderClick (Sender: TObject); btDeleteClick (Sender: TObject); frFilePanelRightbbRefreshClick (Sender: TObject); frFilePanelRightbtDirRootClick (Sender: TObject);

{Private declarations}

{Public declarations};: TfmDarkickCommander; FilesExU, About;: Boolean;

{$ R *. DFM} TfmDarkickCommander. FormClose (Sender: TObject; var Action: TCloseAction);. Done;. Done;; TfmDarkickCommander. FormActivate (Sender: TObject); FirstRun Then. Init (FileListBox1, ImageList1, frFilePanelLeft. Deactivate, lbPath, lbItem);. Init (FileListBox1, ImageList1, frFilePanelRight. Deactivate, lbPath, lbItem);: = False;;; TfmDarkickCommander. FormCreate (Sender: TObject);: = True;; TfmDarkickCommander. miExitClick (Sender: TObject);;; TfmDarkickCommander. cmbxCommandKeyDown (Sender: TObject; Key: Word; Shift: TShiftState);: Integer;, Params: String; Key <> VK_Return Then Exit;. Text: = Trim (cmbxCommand. Text); ssCtrl In Shift Then. Text: = '' + cmbxCommand. Text + lbItem. Caption + '';;; cmbxCommand. Items. IndexOf (cmbxCommand. Text) <0 Then. Items. Add (cmbxCommand. Text);: = Pos ('', cmbxCommand. Text); P <= 0 Then (lbPath. Caption, cmbxCommand. Text,'');;;: = Copy (cmbxCommand. Text, 1, P -1);: = Copy (cmbxCommand. Text, P +1, Length (cmbxCommand. Text) - P); (lbPath. Caption, Command, Params);; TfmDarkickCommander. cmbxCommandEnter (Sender: TObject);. SelectAll;; TfmDarkickCommander. miAboutClick (Sender: TObject);. ShowModal;; TfmDarkickCommander. btEditClick (Sender: TObject); frFilePanelLeft. NowActive Then. EditFile. EditFile;; TfmDarkickCommander. btCopyClick (Sender: TObject); frFilePanelLeft. NowActive Then. TryCopyFile. TryCopyFile;; TfmDarkickCommander. btMoveClick (Sender: TObject); frFilePanelLeft. NowActive Then. TryMoveFile. TryMoveFile;; TfmDarkickCommander. btFolderClick (Sender: TObject); frFilePanelLeft. NowActive Then. CreateFolder. CreateFolder;; TfmDarkickCommander. btDeleteClick (Sender: TObject); frFilePanelLeft. NowActive Then. TryDelete. TryDelete;; TfmDarkickCommander. frFilePanelRightbbRefreshClick (: TObject);. bbRefreshClick (Sender);; TfmDarkickCommander. frFilePanelRightbtDirRootClick (: TObject);. btDirRootClick (Sender);;. About;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Buttons, ExtCtrls, ShellApi; = class (TForm): TBitBtn;: TLabel;: TLabel;: TMemo; bbOkClick ( Sender: TObject);

{Private declarations}

{Public declarations};: TfmAbout;

{$ R *. DFM} TfmAbout. bbOkClick (Sender: TObject);;;.

Додаток Б

В 

Рис 3. Вид програми після запуску

В  ...