[TANK-develop] CVS: tank about.pas,NONE,1.1

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

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

Added Files:
	about.pas 
Log Message:
Changed the IRC Chat interface, the panels were to hard to deal with.. added
some stuff like channel topic and user count... **We need to fix how it adds a blank
user to the top of the listbox... also whne people disconnect the listbox needs to be
updated.. and when we switch channels.. oh.. check out the NEW ABOUT FORM

--- NEW FILE: about.pas ---
unit about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;

type
  TfrmAbout = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ListBox1: TListBox;
    Label4: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.dfm}

procedure TfrmAbout.Button1Click(Sender: TObject);
begin
   frmabout.close;
end;

end.