onlinemsg.pas

原版翎风(LF)引擎(M2)源码(Delphi)

unit OnlineMsg;

interface

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

type
  TfrmOnlineMsg = class(TForm)
    ComboBoxMsg: TComboBox;
    MemoMsg: TMemo;
    Label1: TLabel;
    StringGrid: TStringGrid;
    ButtonAdd: TButton;
    ButtonDelete: TButton;
    ButtonSend: TButton;
    procedure ComboBoxMsgKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBoxMsgChange(Sender: TObject);
    procedure StringGridClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonAddClick(Sender: TObject);
    procedure StringGridDblClick(Sender: TObject);
    procedure ButtonDeleteClick(Sender: TObject);
    procedure MemoMsgChange(Sender: TObject);
    procedure ButtonSendClick(Sender: TObject);
  private
    StrList:TStringList;
    StrListFile:string;
    { Private declarations }
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmOnlineMsg: TfrmOnlineMsg;
implementation

uses UsrEngn, M2Share, Grobal2;


{$R *.dfm}

procedure TfrmOnlineMsg.ComboBoxMsgKeyPress(Sender: TObject;
  var Key: Char);
var
  Msg:string;
begin
try
  case Ord(Key) of
    13:
      begin
        Msg:=ComboBoxMsg.Text;
        if Trim(Msg) <> '' then begin
          if ComboBoxMsg.Items.Count = 0 then ComboBoxMsg.Items.Add(Msg);
          ComboBoxMsg.Items.Insert(1,Msg);
          UserEngine.SendBroadCastMsgExt(Msg,t_System);
          MemoMsg.Lines.Add(g_Config.sSysMsgPreFix + Msg);
        end;
        ComboBoxMsg.ItemIndex:=0;
        ComboBoxMsg.Text:='';
        ButtonAdd.Enabled:=False;
      end;
  end;
finally
end;
end;

procedure TfrmOnlineMsg.ComboBoxMsgChange(Sender: TObject);
begin
try
  if ComboBoxMsg.Items.Count > 20 then
    ComboBoxMsg.Items.Delete(19);
  if trim(ComboBoxMsg.Text) <> '' then
    ButtonAdd.Enabled:=True
  else
    ButtonAdd.Enabled:=False;
finally

end;
end;

procedure TfrmOnlineMsg.StringGridClick(Sender: TObject);
begin
try
  if StringGrid.Col >= 0 then
    ButtonDelete.Enabled:=True;
finally
end;
end;

procedure TfrmOnlineMsg.FormCreate(Sender: TObject);
begin
  StrListFile:='.\MsgList.txt';
  StrList:=TStringList.Create;
  if FileExists(StrListFile) then begin
    StrList.LoadFromFile(StrListFile);
    StringGrid.RowCount:=StrList.Count;
    StringGrid.Cols[0]:=StrList;
  end else begin
    StrList.SaveToFile(StrListFile);
  end;
  MemoMsg.Clear;
end;

procedure TfrmOnlineMsg.ButtonAddClick(Sender: TObject);
var
  Msg:string;
begin
try
  Msg:=Trim(ComboBoxMsg.Text);
  if Msg <> '' then
    begin
      StrList.Add(Msg);
    end;
  StringGrid.RowCount:=StrList.Count;
  StringGrid.Cols[0]:=StrList;
  ButtonAdd.Enabled:=False;
  StrList.SaveToFile(StrListFile);
finally
end;
end;

procedure TfrmOnlineMsg.StringGridDblClick(Sender: TObject);
begin
try
  ComboBoxMsg.Text:=StrList.Strings[StringGrid.Row];
  ComboBoxMsg.SetFocus;
finally
end;
end;

procedure TfrmOnlineMsg.ButtonDeleteClick(Sender: TObject);
begin
try
  if StringGrid.RowCount = 1 then
    begin
      ButtonDelete.Enabled:=False;
      exit;
    end;
  StrList.Delete(StringGrid.Row);
  StringGrid.RowCount:=StrList.Count;
  StringGrid.Cols[0]:=StrList;
  StrList.SaveToFile(StrListFile);
finally
end;
end;

procedure TfrmOnlineMsg.MemoMsgChange(Sender: TObject);
begin
try
  if MemoMsg.Lines.Count > 80 then
    begin
      MemoMsg.Lines.Clear;
    end;
finally
end;
end;

procedure TfrmOnlineMsg.ButtonSendClick(Sender: TObject);
var
  Msg:string;
begin
  Msg:=ComboBoxMsg.Text;
  if Trim(Msg) <> '' then begin
    if ComboBoxMsg.Items.Count = 0 then ComboBoxMsg.Items.Add(Msg);
    ComboBoxMsg.Items.Insert(1,Msg);
    UserEngine.SendBroadCastMsgExt(Msg,t_System);
    MemoMsg.Lines.Add(g_Config.sSysMsgPreFix + Msg);
  end;
  ComboBoxMsg.ItemIndex:=0;
  ComboBoxMsg.Text:='';
end;

procedure TfrmOnlineMsg.Open;
begin
  ShowModal;
end;

end.