fstate.pas

一个delphi写的游戏引擎

unit FState;
//no problems
interface

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

type
  TFrmDlg = class(TForm)
    DBackground: TDWindow;
    DLogIn: TDWindow;
    DLoginNew: TDButton;
    DLoginOk: TDButton;
    DLoginClose: TDButton;
    DLoginChgPw:TDButton;

    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

    procedure DLoginNewDirectPaint(Sender: TObject; dsurface: TDirectDrawSurface);
    procedure DLoginCloseClick(Sender: TObject; X, Y: Integer);
    procedure DLoginOkClick(Sender: TObject; X, Y: Integer);
    procedure DLoginNewClick(Sender: TObject; X, Y: Integer);
    procedure DLoginChgPwClick(Sender: TObject; X, Y: Integer);

  private
    { Private declarations }
    EdDlgEdit: TEdit;
    Memo: TMemo;
  public
    { Public declarations }
    procedure Initialize;
  end;

var
  FrmDlg: TFrmDlg;

implementation

{$R *.dfm}

 uses
   ClMain;

procedure TFrmDlg.Initialize;    //初始化所有对话框
var
   i: integer;
   d: TDirectDrawSurface;
begin

   FrmMain.DWinMan.ClearAll;
   DBackground.Left := 0;
   DBackground.Top := 0;
   DBackground.Width := 800;
   DBackground.Height := 600;
   DBackground.Background := TRUE;
   FrmMain.DWinMan.AddDControl (DBackground, TRUE);


   {-----------------------------------------------------------}

   ///登录对话框
   d := FrmMain.WProgUse.Images[1]; //1登录对话框
   if d <> nil then begin
      DLogIn.SetImgIndex (FrmMain.WProgUse, 1);
      DLogIn.Left := (800 - d.Width) div 2;
      DLogIn.Top := (600 - d.Height) div 2;
   end;
   DLoginNew.SetImgIndex (FrmMain.WProgUse, 2); //2新用户按钮
   DLoginNew.Left := 24;
   DLoginNew.Top  := 207;
   DLoginOk.SetImgIndex (FrmMain.WProgUse, 3); //3提交按钮
   DLoginOk.Left := 171;
   DLoginOk.Top := 165;
   DLoginChgPw.SetImgIndex (FrmMain.WProgUse, 0); //修改密码按钮
   DLoginChgPw.Left := 111;
   DLoginChgPw.Top  := 207;
   DLoginClose.SetImgIndex (FrmMain.WProgUse, 4);//x关闭按钮
   DLoginClose.Left := 252;
   DLoginClose.Top := 28;

end;

procedure TFrmDlg.FormCreate(Sender: TObject);
begin
 //以下是新用户，行会公告专用的？
  EdDlgEdit := TEdit.Create (FrmMain.Owner);
   with EdDlgEdit do begin
      Parent := FrmMain;  Color := clBlack; Font.Color := clWhite; Font.Size := 10; MaxLength := 30;
      Height := 16; Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}  Visible := FALSE;
   end;

   Memo := TMemo.Create (FrmMain.Owner);
   with Memo do begin
      Parent := FrmMain;  Color := clBlack; Font.Color := clWhite; Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}  Visible := FALSE;
   end;

end;

procedure TFrmDlg.FormDestroy(Sender: TObject);
begin
//o

end;

{------------------------------------------------------------------------}

//肺弊牢 芒


procedure TFrmDlg.DLoginNewDirectPaint(Sender: TObject;
  dsurface: TDirectDrawSurface);
var
   d: TDirectDrawSurface;
begin
   with Sender as TDButton do begin
      if TDButton(Sender).Downed then begin
         d := WLib.Images[faceindex];
      if d <> nil then
            dsurface.Draw (SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, true);
      end;
   end;
end;

procedure TFrmDlg.DLoginNewClick(Sender: TObject; X, Y: Integer);
begin
   LoginScene.NewClick;
end;

procedure TFrmDlg.DLoginOkClick(Sender: TObject; X, Y: Integer);
begin
   LoginScene.OkClick;
end;

procedure TFrmDlg.DLoginCloseClick(Sender: TObject; X, Y: Integer);
begin
   FrmMain.Close;
end;

procedure TFrmDlg.DLoginChgPwClick(Sender: TObject; X, Y: Integer);
begin
//   LoginScene.ChgPwClick;
end;


end.