_di.pas

传奇3 ei3 / 1.45 / 3G 版本 wil 资源编辑器源代码!

unit _DI;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TDL = class(TForm)
    Bevel1: TBevel;
    BG: TGroupBox;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    SD: TSaveDialog;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DL: TDL;
  

implementation
uses _define;

{$R *.dfm}

procedure TDL.Button2Click(Sender: TObject);
begin
  DL.Close;
end;

procedure TDL.Button1Click(Sender: TObject);
var Pname:string;
begin
  try
    IdBegin:=StrToInt(edit4.Text);
    if radiobutton2.Checked then
      ImageS:=StrToInt(edit1.Text)
    else
      ImageS:= StrToInt(edit1.Text) -IdBegin + 1;
    if ImOrOut=0 then
    begin
    if ((IdBegin>=0) and (fOpen.Count > 0) and (IdBegin<fOpen.Count - 1) and (ImageS>0)) then
      begin
        if SD.Execute then
          begin
            Pname:=SD.FileName;
            if Pname[Length(Pname)-3]<>'.' then Pname:=Pname+'.TPE';
            fOpen.ImageSaveToSeq(IdBegin,ImageS,Pname);
          end;
      end;
    end
  else
    begin
      if Not fOpen.ImportFromSeq(IdBegin,ImageS,Infseq) then
       begin
         bImp:=FALSE;
         MessageboxA(0,PCHAR('导入时候发生致命错误,请从新尝试!'),PCHAR('ERROR'),MB_OK + MB_ICONERROR);
       end
      else
       begin
         bImp:=TRUE;
       end;
    end;
  finally
  close;
  end;
end;

procedure TDL.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  SetEvent(hEvent);
end;

end.