frmmain.pas

尚未完成的传奇3资源编辑器,需要就下吧

unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, Grids, tList32, XPStyleActnCtrls,
  ActnList, ActnMan, ToolWin, ActnCtrls, ActnMenus;

const
  ImgWidth  = 100;
  ImgHeight = 110;
  ImgSpace  = 6;
  ImgHint   = 50;


type
  TFrmEditer = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    OpenDialog: TOpenDialog;
    N3: TMenuItem;
    ActionManager: TActionManager;
    N31: TMenuItem;
    N32: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    EI31: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure EI31Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEditer: TFrmEditer;

implementation
uses FrmEdit,WilImage;

{$R *.dfm}


procedure TFrmEditer.N7Click(Sender: TObject);
var Editer:TFrmEdt;
begin
  if OpenDialog.Execute then begin
    Editer:=TFrmEdt.Create(self);
    Editer.Parent:=FrmEditer;
    Editer.LoadImage(0,OpenDialog.FileName,NrmMode,true);
    Editer.Caption:=OpenDialog.FileName;
    Editer.Show;
    SendMessage(Editer.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
  end;
end;

procedure TFrmEditer.EI31Click(Sender: TObject);
var Editer:TFrmEdt;
begin
  if OpenDialog.Execute then begin
    Editer:=TFrmEdt.Create(self);
    Editer.Parent:=FrmEditer;
    Editer.LoadImage(0,OpenDialog.FileName,NrmMode,false);
    Editer.Caption:=OpenDialog.FileName;
    Editer.Show;
    SendMessage(Editer.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
  end;
end;

procedure TFrmEditer.N31Click(Sender: TObject);
var Editer:TFrmEdt;
begin
  if OpenDialog.Execute then begin
    Editer:=TFrmEdt.Create(self);
    Editer.Parent:=FrmEditer;
    Editer.LoadImage(1,OpenDialog.FileName,ReBMode,false);
    Editer.Caption:=OpenDialog.FileName;
    Editer.Show;
    SendMessage(Editer.Handle,WM_SYSCOMMAND,SC_MAXIMIZE,0);
  end;
end;

end.