EvaPig

unit UnitRename;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, gnugettext, ImgList, ActnList, JvExStdCtrls, JvButton,

  JvCtrls, ExtCtrls;

type

  TFormRename = class(TForm)

    EditName: TEdit;

    JvImgBtnCancel: TJvImgBtn;

    JvImgBtnOK: TJvImgBtn;

    ActionListButtons: TActionList;

    ActionOK: TAction;

    ActionCancel: TAction;

    ImageListIcons: TImageList;

    PanelButtons: TPanel;

    procedure FormCreate(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure ActionOKExecute(Sender: TObject);

    procedure ActionCancelExecute(Sender: TObject);

  private

    { D?clarations priv?es }

  public

    { D?clarations publiques }

    OldName, NewName: String;

    NameList: TStrings;

  end;

var

  FormRename: TFormRename;

implementation

uses

  UnitDeclaration;

{$R *.dfm}

procedure TFormRename.ActionCancelExecute(Sender: TObject);

begin

  ModalResult := mrCancel;

end;

procedure TFormRename.ActionOKExecute(Sender: TObject);

begin

  NewName := Trim(EditName.Text);

  if OldName <> NewName

  then // V?rifier

  begin

    if NewName = ''

    then

    begin

      MessageDlg(_('The name is mandatory, please enter a non-empty string.'), mtError, [mbOK], 0);

      ActiveControl := EditName;

      Exit;

    end;

    if NameList.IndexOf(NewName) <> -1

    then

    begin

      MessageDlg(_('This name is already used, please specify another name.'), mtError, [mbOK], 0);

      ActiveControl := EditName;

      Exit;

    end;

  end;

  ModalResult := mrOk;

end;

procedure TFormRename.FormCreate(Sender: TObject);

begin

  if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1

  then

    Font.Name := 'Arial Unicode MS';

//  PanelButtons.Font.Size := PanelButtons.Font.Size + 2;

  PanelButtons.Font.Style := [fsBold];

  TranslateComponent(Self);

  NameList := TStringList.Create;

end;

procedure TFormRename.FormDestroy(Sender: TObject);

begin

  NameList.Free;

end;

procedure TFormRename.FormShow(Sender: TObject);

begin

  EditName.Text := OldName;

  EditName.SelectAll;

end;

end.