[TANK-develop] CVS: tank Main.dfm,1.4,1.5 Main.pas,1.4,1.5

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

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

Modified Files:
	Main.dfm Main.pas 
Log Message:
Fixed anchoring on irc tab. Changed main homepage to http://tdt,ath.cx

Index: Main.dfm
===================================================================
RCS file: /home/tank_cvs/tank/Main.dfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Main.dfm	2002/02/03 19:19:53	1.4
--- Main.dfm	2002/02/08 02:46:20	1.5
***************
*** 1,5 ****
  object Client: TClient
!   Left = 208
!   Top = 116
    BorderStyle = bsSingle
    Caption = 'Tis Another Newtella Client - Not Connected'
--- 1,5 ----
  object Client: TClient
!   Left = 74
!   Top = 21
    BorderStyle = bsSingle
    Caption = 'Tis Another Newtella Client - Not Connected'
***************
*** 27,34 ****
      Width = 625
      Height = 432
!     ActivePage = TabSheet6
      Anchors = [akLeft, akTop, akRight, akBottom]
      Style = tsButtons
!     TabIndex = 5
      TabOrder = 0
      OnExit = Exit1Click
--- 27,34 ----
      Width = 625
      Height = 432
!     ActivePage = TabSheet5
      Anchors = [akLeft, akTop, akRight, akBottom]
      Style = tsButtons
!     TabIndex = 4
      TabOrder = 0
      OnExit = Exit1Click
***************
*** 280,284 ****
          Width = 617
          Height = 154
!         Anchors = [akLeft, akRight, akBottom]
          Caption = '-Search Traffic-'
          Font.Charset = ANSI_CHARSET
--- 280,284 ----
          Width = 617
          Height = 154
!         Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = '-Search Traffic-'
          Font.Charset = ANSI_CHARSET
***************
*** 516,519 ****
--- 516,522 ----
        ImageIndex = 5
        ParentFont = False
+       DesignSize = (
+         617
+         401)
        object lblIRCChannel: TLabel
          Left = 478
***************
*** 521,524 ****
--- 524,528 ----
          Width = 43
          Height = 13
+         Anchors = [akRight, akBottom]
          Caption = 'Channel:'
        end
***************
*** 536,539 ****
--- 540,544 ----
          Width = 136
          Height = 17
+         Anchors = [akTop, akRight]
          AutoSize = False
          Caption = 'Users: 0'
***************
*** 544,547 ****
--- 549,553 ----
          Width = 138
          Height = 344
+         Anchors = [akTop, akRight, akBottom]
          ItemHeight = 13
          Sorted = True
***************
*** 553,564 ****
          Width = 469
          Height = 21
          TabOrder = 1
          OnKeyPress = txtChatSendKeyPress
        end
!       object CbxIRCChannel: TComboBox
          Left = 524
          Top = 378
          Width = 91
          Height = 21
          ItemHeight = 13
          TabOrder = 2
--- 559,572 ----
          Width = 469
          Height = 21
+         Anchors = [akLeft, akRight, akBottom]
          TabOrder = 1
          OnKeyPress = txtChatSendKeyPress
        end
!       object cbxIRCChannel: TComboBox
          Left = 524
          Top = 378
          Width = 91
          Height = 21
+         Anchors = [akRight, akBottom]
          ItemHeight = 13
          TabOrder = 2
***************
*** 571,579 ****
          Width = 474
          Height = 344
          Lines.Strings = (
            '')
          TabOrder = 3
        end
!       object btnIRCOnOFF: TBitBtn
          Left = 385
          Top = 6
--- 579,588 ----
          Width = 474
          Height = 344
+         Anchors = [akLeft, akTop, akRight, akBottom]
          Lines.Strings = (
            '')
          TabOrder = 3
        end
!       object btnIRCOnOff: TBitBtn
          Left = 385
          Top = 6
***************
*** 581,584 ****
--- 590,594 ----
          Height = 20
          Action = actIRCConnect
+         Anchors = [akTop, akRight]
          Caption = 'Connect'
          TabOrder = 4

Index: Main.pas
===================================================================
RCS file: /home/tank_cvs/tank/Main.pas,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Main.pas	2002/02/03 19:21:24	1.4
--- Main.pas	2002/02/08 02:46:20	1.5
***************
*** 73,81 ****
      txtChatSend: TEdit;
      lblIRCChannel: TLabel;
!     CbxIRCChannel: TComboBox;
      redChatSession: TRichEdit;
      lblChannelInfo: TLabel;
      lblChatUserCount: TLabel;
!     btnIRCOnOFF: TBitBtn;
      TimerChatUsers: TTimer;
      gnuaccept: TIdTCPClient;
--- 73,81 ----
      txtChatSend: TEdit;
      lblIRCChannel: TLabel;
!     cbxIRCChannel: TComboBox;
      redChatSession: TRichEdit;
      lblChannelInfo: TLabel;
      lblChatUserCount: TLabel;
!     btnIRCOnOff: TBitBtn;
      TimerChatUsers: TTimer;
      gnuaccept: TIdTCPClient;
***************
*** 131,135 ****
  begin
    //load the webpage in our browser
!   webbrowser.Navigate('http://bcheese.homeip.net/~tank/index.php');
  end;
  
--- 131,135 ----
  begin
    //load the webpage in our browser
!   webbrowser.Navigate('http://tdt.ath.cx');
  end;
  
***************
*** 218,226 ****
    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);
      end;
  end;
--- 218,228 ----
    for intCount := 0 to AUsers.Count -1 do
      begin
!       if ircClient.IsOp(AUsers.Items[intCount].Nick) then
!       begin
!         strName := '@' + AUsers.Items[intCount].Nick;
!         lbxUsers.Items.Add(strName);
!       end
!       else
!         lbxUsers.Items.Add(AUsers.Items[intCount].Nick);
      end;
  end;
***************
*** 315,319 ****
          for intCount := 0 to ircClient.Channels.Count-1 do
            begin
!             ircClient.Channels.Items[intCount].Part('Closing TANK.');
            end;
        end;
--- 317,321 ----
          for intCount := 0 to ircClient.Channels.Count-1 do
            begin
!             ircClient.Channels.Items[intCount].Part('Closing TANK');
            end;
        end;
***************
*** 392,396 ****
  procedure TClient.About1Click(Sender: TObject);
  begin
!    frmabout.show;
  end;
  
--- 394,398 ----
  procedure TClient.About1Click(Sender: TObject);
  begin
!    frmabout.showmodal;
  end;