[TANK-develop] CVS: tank Main.pas,1.2,1.3

[root <ro...@re...>]

Update of /home/tank_cvs/tank
In directory router.bac.net.au:/tmp/cvs-serv8175

Modified Files:
	Main.pas 
Log Message:
-added some stuff so when another user connects.. it will add their name to the listbox..

Index: Main.pas
===================================================================
RCS file: /home/tank_cvs/tank/Main.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Main.pas	2002/01/29 10:33:48	1.2
--- Main.pas	2002/01/31 23:28:54	1.3
***************
*** 109,112 ****
--- 109,114 ----
      procedure cbxIRCChannelChange(Sender: TObject);
      procedure FormClose(Sender: TObject; var Action: TCloseAction);
+     procedure ircClientJoin(Sender: TObject; AUser: TIdIRCUser;
+       AChannel: TIdIRCChannel);
    private
      { Private declarations }
***************
*** 240,247 ****
  begin
    lbxUsers.Items.Clear;
!   for intCount := 0 to AUsers.Count-1 do
      begin
!       if ircClient.IsOp(AUsers.Items[intCount].Nick) then strName := '@'
!                                                      else strName := '';
        strName := strName + AUsers.Items[intCount].Nick;
        lbxUsers.Items.Add(strName);
--- 242,250 ----
  begin
    lbxUsers.Items.Clear;
!   for intCount := 0 to AUsers.Count -1 do
      begin
!       if ircClient.IsOp(AUsers.Items[intCount].Nick)
!          then strName := '@'
!       else strName := '';
        strName := strName + AUsers.Items[intCount].Nick;
        lbxUsers.Items.Add(strName);
***************
*** 377,380 ****
--- 380,398 ----
        if gnuaccept.Active then gnuaccept.Active := false;
      end;
+ end;
+ 
+ procedure TClient.ircClientJoin(Sender: TObject; AUser: TIdIRCUser;
+   AChannel: TIdIRCChannel);
+ begin
+   {notify the user that someone has joined..}
+   AddChatText('*** ' + AUser.nick + ' ' + auser.Address + ' + has joined! ' + AChannel.Name ,Options.pnlChatSystemMessages.color);
+   {now add the name to the list}
+   if ircclient.IsOp(Auser.nick) then
+       begin
+          lbxUsers.Items.Add('@' + AUser.Nick);
+          exit;
+       end;
+   lbxUsers.Items.Add(AUser.Nick);
+ 
  end;