edittask.pas

来自「文件同步备份工具」· PAS 代码 · 共 75 行

unit EditTask;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, bsSkinBoxCtrls, bsfilectrl, INIFiles,
  StdCtrls, MyDialog;

type
  TfrmEditTask = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    cmbSourceDisk: TbsSkinDriveComboBox;
    SourceDirList: TbsSkinDirectoryListBox;
    bsSkinDriveComboBox2: TbsSkinDriveComboBox;
    DestDirList: TbsSkinDirectoryListBox;
    lbSourceDir: TbsSkinStdLabel;
    lbDestDir: TbsSkinStdLabel;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    ThisIndex: Word;
    isEdit: Boolean;
  end;

var
  frmEditTask: TfrmEditTask;

implementation

uses MainForm, MyDefine;

{$R *.dfm}

procedure TfrmEditTask.bsSkinButton1Click(Sender: TObject);
var
  T: String;
begin
  if lbSourceDir.Caption = lbDestDir.Caption then begin
    ShowInformation('源目录位置和目标目录位置不能一样！');
    Exit;
  end;
  if (not isEdit) and (frmMain.lvTask.FindCaption(-1, lbSourceDir.Caption, False, False, False) <> nil) then begin
    ShowInformation('路径:' + lbSourceDir.Caption + '有重复！');
    Exit;
  end;
  T := 'Task' + IntToStr(ThisIndex);
  INI.WriteInteger(T, 'Index', ThisIndex);
  INI.WriteString(T, 'SourceDir', lbSourceDir.Caption);
  INI.WriteString(T, 'DestDir', lbDestDir.Caption);
  if not isEdit then WriteTaskCount(1);
  Close;
end;

procedure TfrmEditTask.bsSkinButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmEditTask.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

end.