selectunt.pas

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

unit selectunt;

interface

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

type
  Tselectfrm = class(TForm)
    Bevel1: TBevel;
    xpButton1: TxpButton;
    xpButton2: TxpButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    ListView1: TListView;
    procedure xpButton1Click(Sender: TObject);
    procedure xpButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Label1Click(Sender: TObject);
  private
    procedure createuserlist;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  selectfrm: Tselectfrm;

implementation

uses udpcores,shareunit;

{$R *.DFM}

//------------------------------------------------------------------------------
// 建立用户列表
//------------------------------------------------------------------------------
procedure Tselectfrm.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 Tselectfrm.xpButton1Click(Sender: TObject);
var i:integer;
    tmplist:tstringlist;
begin
try
tmplist:=tstringlist.create;
if listview1.Items.Count>0 then
for i:=1 to listview1.Items.count do
  if listview1.Items.Item[i-1].Checked then
     tmplist.Add(listview1.Items.Item[i-1].SubItems.strings[0]);
if tmplist.Count>0 then
if checkbox1.Checked then
   udpcore.senddirectory(tmplist.text)
   else udpcore.sendmutilfile(tmplist.text);
finally
freeandnil(tmplist);
close;
end;
end;

procedure Tselectfrm.xpButton2Click(Sender: TObject);
begin
close;
end;

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

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

procedure Tselectfrm.FormShow(Sender: TObject);
begin
createuserlist;
end;

procedure Tselectfrm.Label1Click(Sender: TObject);
begin
checkbox1.checked:=not checkbox1.checked;
end;

end.