tasknewunt.pas

絮语2007视频聊天软件源程序.仅供参考

unit tasknewunt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, xpButton, OLERichEdit,structureunt,constunt, ExtCtrls;

type
  Ttasknewfrm = class(TForm)
    ListView1: TListView;
    xpButton1: TxpButton;
    dater: TDateTimePicker;
    Label2: TLabel;
    send_memo: TOLEEdit;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure createuserlist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tasknewfrm: Ttasknewfrm;

implementation
uses udpcores,shareunit,richunt;
{$R *.DFM}

procedure Ttasknewfrm.FormShow(Sender: TObject);
begin
dater.datetime:=now;
initrichedit(trichedit(send_memo));
createuserlist;
end;

procedure Ttasknewfrm.FormPaint(Sender: TObject);
begin
udpcore.formonpaint(self);
end;

//------------------------------------------------------------------------------
// 建立用户列表
//------------------------------------------------------------------------------
procedure Ttasknewfrm.createuserlist;
var i:integer;
    tmp:userinfo;
begin
listview1.items.Clear;
if udpcore.user.getcount>0 then
for i:=1 to udpcore.user.getcount do
  begin
  tmp:=udpcore.user.getuserinfoex(i-1);
  if not tmp.nullity then
   with listview1.Items.Add,SubItems do
     begin
     imageindex:=0;
     caption:=tmp.uname+'('+tmp.userid+')';
     add(tmp.md5name);
     end;
  end;
end;


procedure Ttasknewfrm.xpButton1Click(Sender: TObject);
var msgex,md5code:string;
    i:integer;
    tmpinfo:userinfo;
begin
if length(send_memo.text)>0 then
    begin
    xpbutton1.Enabled:=false;
    tmpinfo:=udpcore.user.getuserinfoex(0);
    if listview1.Items.Count>0 then
    for i:=1 to listview1.Items.count do
      begin
      if listview1.Items.Item[i-1].Checked then
         begin
          md5code:=listview1.Items.Item[i-1].SubItems.strings[0];
          msgex:='';
          makeparamsex(msgex,'msgid',xy_message);
          makeparamsex(msgex,'funid',xy_usertext);
          makeparamsex(msgex,'msgtext',send_memo.text);
          makeparamsex(msgex,'firendid',tmpinfo.md5name);
          makeparamsex(msgex,'fontname',send_memo.font.name);
          makeparamsex(msgex,'fontsize',send_memo.font.size);
          makeparamsex(msgex,'fontcolor',send_memo.font.color);
          makeparamsex(msgex,'fontstyle',destyle(send_memo.font.style));
          makeparamsex(msgex,'dt',datetimetostr(dater.datetime));
          udpcore.chat.addusertext(md5code,msgex,true,true);
          udpcore.task.addtask(dater.datetime,md5code,msgex,false);
         end;
      end;
    xpbutton1.Enabled:=true;
    end;
end;

procedure Ttasknewfrm.FormCreate(Sender: TObject);
begin
udpcore.changeLayered(handle);
end;

end.