From: root <ro...@re...> - 2002-01-31 23:24:34
|
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; |