unit UFrmSQLFavoritesOption;

interface

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

type
  TFrmSQLFavoritesOption = 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);
    procedure FormDestroy(Sender: TObject);
  private
    Ini: TIniFile;
    StrList: TStringList;
    procedure RefreshList;
    procedure LocateList;
  public
    { Public declarations }
  end;

implementation

uses UFrmToolProp, UFrmSQLFavoriteslProp, UAppSet;

{$R *.dfm}

procedure TFrmSQLFavoritesOption.btnAddClick(Sender: TObject);
var
  Frm: TFrmSQLFavoriteslProp;
begin
  Frm := TFrmSQLFavoriteslProp.Create(Self);
  Frm.AddMode := True;
  if Frm.ShowModal = mrOK then
  begin
    ini.WriteString('SqlDir', frm.FileCaption, Frm.FileName);
    RefreshList;
  end;
  Frm.Free;
end;

procedure TFrmSQLFavoritesOption.btnEditClick(Sender: TObject);
var
  Frm: TFrmSQLFavoriteslProp;
begin
  Frm := TFrmSQLFavoriteslProp.Create(Self);
  Frm.AddMode := False;
  Frm.FileCaption := lstTools.Items[lstTools.ItemIndex];
  Frm.FileName := Ini.ReadString('SqlDir', lstTools.Items[lstTools.ItemIndex], '');
  if Frm.ShowModal = mrOk then
  begin
    RefreshList;
  end;
  Frm.Free;
end;

procedure TFrmSQLFavoritesOption.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  Ini := TIniFile.Create(AppSet.AppDir + '\Favorites.ini');
  StrList := TStringList.create;
  Ini.ReadSection('SqlDir', StrList);
  RefreshList;
end;

procedure TFrmSQLFavoritesOption.FormDestroy(Sender: TObject);
begin
  inherited;
  StrList.Free;
  Ini.Free;
end;

procedure TFrmSQLFavoritesOption.LocateList;
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 TFrmSQLFavoritesOption.RefreshList;
var
  i: Integer;
begin
  lstTools.Clear;
  StrList.Clear;
  ini.ReadSection('SqlDir', StrList);
  for i := 0 to StrList.Count - 1 do
    lstTools.Items.Add(StrList.Strings[i]);
end;

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

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

procedure TFrmSQLFavoritesOption.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
    Ini.DeleteKey('SqlDir', lstTools.Items[lstTools.ItemIndex]);
    RefreshList;
  end;
  if (i > 0) and (i < lsttools.Items.count) then
  begin
    lsttools.ItemIndex := i;
  end;
end;

procedure TFrmSQLFavoritesOption.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 TFrmSQLFavoritesOption.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.