taskmainunt.pas

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

unit taskmainunt;

interface

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

type
  Ttaskmainfrm = class(TForm)
    ListView1: TListView;
    xpButton1: TxpButton;
    xpButton3: TxpButton;
    xpButton4: TxpButton;
    main_memo: TOLEEdit;
    procedure xpButton4Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure xpButton3Click(Sender: TObject);
    procedure xpButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    md5code:string;
    procedure refreshtasklist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  taskmainfrm: Ttaskmainfrm;

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


procedure Ttaskmainfrm.refreshtasklist;
var i:integer;
    tmpuser:userinfo;
    tmptask:Ttaskinfo;
begin
listview1.Items.Clear;
listview1.Items.BeginUpdate;
with udpcore do
  begin
  if task.getcount>0 then
  for i:=1 to task.getcount do
    begin
    tmptask:=task.gettaskinfoex(i);
    if not tmptask.nullity then
        begin
        tmpuser:=user.getuserinfoex(tmptask.firendid);
        with listview1.Items.Add,subitems do
           begin
           caption:=datetimetostr(tmptask.msgtime);
           if tmptask.tasktype then add('文件') else add('文本');
           add(tmpuser.uname);
           add(tmptask.md5code);
           end;
        end;
    end;
  end;
listview1.items.EndUpdate;
end;

procedure Ttaskmainfrm.xpButton4Click(Sender: TObject);
begin
udpcore.task.cleartask;
refreshtasklist;
end;

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

procedure Ttaskmainfrm.ListView1Click(Sender: TObject);
var tmptask:Ttaskinfo;
begin
if listview1.SelCount>0 then
   begin
   md5code:=listview1.Selected.SubItems.Strings[2];
   tmptask:=udpcore.task.gettaskinfoex(md5code);
   if tmptask.tasktype then
      begin
      end else begin
      main_memo.Text:=getparamitem(strpas(tmptask.msgtext),'msgtext');
      end;
   end;
end;

procedure Ttaskmainfrm.xpButton3Click(Sender: TObject);
begin
if md5code<>'' then
  begin
  udpcore.task.deltask(md5code);
  refreshtasklist;
  end;
end;

procedure Ttaskmainfrm.xpButton1Click(Sender: TObject);
begin
with Ttasknewfrm.create(nil) do
  try
  showmodal;
  finally
  free;
  end;
refreshtasklist;
end;

procedure Ttaskmainfrm.FormShow(Sender: TObject);
begin
initrichedit(Trichedit(main_memo));
refreshtasklist;
end;

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

end.