unit UFrmToolsOption;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, UToolsList, Common;

type
  TFrmToolsOption = class(TForm)
    lblTools: TLabel;
    lstTools: TListBox;
    btnAdd: TBitBtn;
    btnEdit: TBitBtn;
    btnDelete: TBitBtn;
    btnUp: TBitBtn;
    btnDown: TBitBtn;
    btnClose: TBitBtn;
    btnHelp: TBitBtn;
    procedure btnAddClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btnCloseClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnUpClick(Sender: TObject);
    procedure btnDownClick(Sender: TObject);
  private
    procedure RefreshList;
    procedure LocateList(aToolPropety: TToolsProperty);
  public
    { Public declarations }
  end;

implementation

uses UFrmToolProp;

{$R *.dfm}

procedure TFrmToolsOption.btnAddClick(Sender: TObject);
var
  Frm: TFrmToolProp;
begin
  Frm := TFrmToolProp.Create(Self);
  Frm.AddMode := True;
  if Frm.ShowModal = mrOK then
  begin
    RefreshList;
    LocateList(Frm.ToolPropety);
  end;
  Frm.Free;
end;

procedure TFrmToolsOption.btnEditClick(Sender: TObject);
var
  Frm: TFrmToolProp;
begin
  if lstTools.ItemIndex < 0 then
  begin
    WarnMessage('请选择要修改的工具项目');
    Exit;
  end;
  Frm := TFrmToolProp.Create(Self);
  Frm.AddMode := False;
  Frm.ToolPropety := aToolsList.Items[lstTools.ItemIndex];
  if Frm.ShowModal = mrOk then
  begin
    RefreshList;
    LocateList(Frm.ToolPropety);
  end;
  Frm.Free;
end;

procedure TFrmToolsOption.FormCreate(Sender: TObject);
begin
  RefreshList;
end;

procedure TFrmToolsOption.LocateList(aToolPropety: TToolsProperty);
var
  i: Integer;
begin
  for i := 0 to aToolsList.Count - 1 do
    if aToolsList.Items[i] = aToolPropety then
    begin
      lstTools.ItemIndex := i;
      Break;
    end;
end;

procedure TFrmToolsOption.RefreshList;
var
  i: Integer;
begin
  lstTools.Clear;
  for i := 0 to aToolsList.Count - 1 do
    lstTools.Items.Add(aToolsList.Items[i].Title);
end;

procedure TFrmToolsOption.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then
    btnClose.Click;
end;

procedure TFrmToolsOption.btnCloseClick(Sender: TObject);
begin
  aToolsList.SaveToFile(ExtractFileDir(ParamStr(0)) + '\Config.ini');
end;

procedure TFrmToolsOption.btnDeleteClick(Sender: TObject);
var
  i: integer;
begin
  i := lsttools.ItemIndex;
  if i < 0 then
  begin
    application.MessageBox('请选择要删除的工具项目', '提示', MB_OK + MB_ICONINFORMATION);
    exit;
  end;
  if application.MessageBox('您确定要删除本项目吗？', '提示', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
  begin

    aToolsList.Delete(lstTools.ItemIndex);
    RefreshList;
  end;
  if (i > 0) and (i < lsttools.Items.count) then
  begin
    lsttools.ItemIndex := i;
  end;
end;

procedure TFrmToolsOption.btnUpClick(Sender: TObject);
begin
  inherited;
  if lstTools.ItemIndex > 0 then
  begin
    aToolsList.Exchange(lstTools.ItemIndex, lstTools.ItemIndex - 1);
    lstTools.Items.Exchange(lstTools.ItemIndex, lstTools.ItemIndex - 1);
    aToolsList.SaveToFile(ExtractFileDir(ParamStr(0)) + '\Config.ini');
  end;
end;

procedure TFrmToolsOption.btnDownClick(Sender: TObject);
begin
  inherited;
  if lstTools.ItemIndex < lstTools.Count - 1 then
  begin
    aToolsList.Exchange(lstTools.ItemIndex, lstTools.ItemIndex + 1);
    lstTools.Items.Exchange(lstTools.ItemIndex, lstTools.ItemIndex + 1);
    aToolsList.SaveToFile(ExtractFileDir(ParamStr(0)) + '\Config.ini');
  end;
end;

end.