fstate.pas

传奇源代码的delphi版本

    procedure ShowGuildDlg;
    procedure ShowGuildEditNotice;
    procedure ShowGuildEditGrade;

    procedure ResetMenuDlg;
    procedure ShowShopMenuDlg;
    procedure ShowNewShopMenuDlg;
    procedure ShowShopSellDlg;
    procedure ShowStoreDlg;
    procedure CloseDSellDlg;
    procedure CancelGemMaking;
    procedure CloseMDlg;

    procedure ToggleShowGroupDlg;
    procedure OpenDealDlg;
    procedure CloseDealDlg;

    procedure OpenFriendDlg;
    procedure OpenHelpWin;
    procedure OpenQuestAccept;
    procedure OpenItemShopDlg;
    procedure OpenMailDlg;
    procedure OpenBlockListDlg;        

    procedure ToggleAuctionWindow;

    procedure SoldOutGoods (itemserverindex: integer);
    procedure DelStorageItem (itemserverindex: integer);
    procedure GetMouseItemInfo (var iname, line1, line2, line3: string; var useable: boolean);
    procedure SetMagicKeyDlg (icon: integer; magname: string; var curkey: word);
    procedure AddGuildChat (str: string);

    function FindFriendObject(sName: String): pTClientFriends;
    
    procedure ToggleGTListWindow;
    procedure ToggleDecoListWindow;
    procedure ToggleBBSListWindow;
    procedure ToggleBBSMsgWindow;
  end;

var
  FrmDlg: TFrmDlg;

implementation

uses
   ClMain, MShare, Share, SDK, WebForm;
{$R *.DFM}

function TFrmDlg.FindFriendObject(sName: String): pTClientFriends;
var
  A,I: Integer;
  Friend: ptClientFriends;
begin
  for A := 0 to 1 do begin
    for I := 0 to FriendList[A].Count-1 do begin
      Friend := PTClientFriends(FriendList[A].Items[I]);
      if Friend <> nil then begin
        if LowerCase(Friend.Name) = LowerCase(sName) then begin
          Result := Friend;
          exit;
        end;
      end;
    end;
  end;
  Result := nil;
end;

procedure TFrmDlg.FormCreate(Sender: TObject);
begin
   MaxLineHeight := 0;
   StatePage := 0;
   DlgTemp := TList.Create;
   DialogSize := 1;
   m_nDiceCount:=0;
   m_boPlayDice:=False;
   magcur := 0;
   magtop := 0;
   MDlgPoints := TList.Create;
   SelectMenuStr := '';
   MenuList := TList.Create;
   MenuIndex := -1;
   ShopMenuList := TList.Create;
   ShopMenuIndex := -1;
   MenuTopLine := 0;
   BoDetailMenu := FALSE;
   BoStorageMenu := FALSE;
   BoNoDisplayMaxDura := FALSE;
   BoMakeDrugMenu := FALSE;
   MagicPage := 0;
   NAHelps := TStringList.Create;
   BlinkTime := GetTickCount;
   BlinkCount := 0;

   g_SellDlgItem.S.Name := '';
   Guild := '';
   GuildFlag := '';
   GuildCommanderMode := FALSE;
   GuildStrs := TStringList.Create;
   GuildStrs2 := TStringList.Create;
   GuildNotice := TStringList.Create;
   GuildMembers := TStringList.Create;
   GuildChats := TStringList.Create;

   FriendList[F_GOOD] := TList.Create;
   FriendList[F_BAD] := TList.Create;
   FriendIndex[F_GOOD] := -1;
   FriendIndex[F_BAD] := -1;
   FriendScreen := F_GOOD;

   EdMemo := TMemo.Create (FrmMain.Owner);
   with EdMemo do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Name := g_sCurFontName;
      Font.Size := 9;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 100;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
   end;

   EdSalesEdit := TMemo.Create (FrmMain.Owner);
   with EdSalesEdit do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Name := g_sCurFontName;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 100;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Left := 34;
      Top := 414;
      Width := 143;
      Height := 19;
   end;

   EdShopEdit := TMemo.Create (FrmMain.Owner);
   with EdShopEdit do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;
      Visible := FALSE;
      MaxLength := 100;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Left := 470;
      Top := 45;
      Width := 143;
      Height := 19;
   end;

   EdDlgEdit := TEdit.Create (FrmMain.Owner);
   with EdDlgEdit do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Name := g_sCurFontName;
      Font.Size := 10;
      MaxLength := 30;
      Height := 16;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
   end;

   EnterPasswd := TEdit.Create (FrmMain.Owner);
   with EnterPasswd do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 190;
      Height := 16;
      PasswordChar := '*';
   end;

   EdSetPasswd := TEdit.Create (FrmMain.Owner);
   with EdSetPasswd do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 262;
      Height := 16;
      PasswordChar := '*';
   end;

   EdSetConfirm := TEdit.Create (FrmMain.Owner);
   with EdSetConfirm do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 262;
      Height := 16;
      PasswordChar := '*';
   end;

   EdOldPasswd := TEdit.Create (FrmMain.Owner);
   with EdOldPasswd do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 262;
      Height := 16;
      PasswordChar := '*';
   end;

   EdNewPasswd := TEdit.Create (FrmMain.Owner);
   with EdNewPasswd do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 262;
      Height := 16;
      PasswordChar := '*';
   end;

   EdConfirm := TEdit.Create (FrmMain.Owner);
   with EdConfirm do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 30;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
      Width := 262;
      Height := 16;
      PasswordChar := '*';
   end;

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

   MailList := TList.Create;   
   BlockList := TList.Create;

   EdMail := TMemo.Create (FrmMain.Owner);
   with EdMail do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Name := g_sCurFontName;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 100;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
   end;
   EdMailRead := TMemo.Create (FrmMain.Owner);
   with EdMailRead do begin
      Parent := FrmMain;
      Color := clBlack;
      Font.Color := clWhite;
      Font.Name := g_sCurFontName;
      Font.Size := 10;
      Ctl3d := FALSE;
      BorderStyle := bsSingle;  {OnKeyPress := EdDlgEditKeyPress;}
      Visible := FALSE;
      MaxLength := 100;
      OnMouseMove := DGenericMouseMove;
      OnChange := TextAreaNotify;
      OnClick := TextAreaNotify;
      OnDblClick := TextAreaNotify;
   end;

   BBSMemo := TMemo.Create (FrmMain.Owner);
   with BBSMemo do begin
      Parent := FrmMain;