ychatu7.pas

Yahoo Messenger for Mobile

unit YchatU7;

interface

uses
  Windows, Messages, SysUtils,  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DynamicSkinForm, SkinCtrls;

type
  TForm7 = class(TForm)
    ListBox1: TListBox;
    Button1: TspSkinButton;
    Button2: TspSkinButton;
    Button4: TspSkinButton;
    Edit1: TEdit;
    Button5: TspSkinButton;
    Button6: TspSkinButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
      function ItemIn(ItemIn: String): Boolean;
      function ItemSelected: Integer;
      procedure DeleteItem(ItemIn: String);      
  end;

var
  Form7: TForm7;

implementation

uses YchatU8, YchatU1, YchatU21, YchatU2;

{$R *.dfm}

Function Tform7.ItemSelected: Integer;
Var
 R,N: Integer;
Begin
 Result:=Form7.ListBox1.ItemIndex;
End;


Function Tform7.ItemIn(ItemIn: String): Boolean;
Var
 R,N: Integer;
Begin
 Result:=False;
 IF Form7.ListBox1.Items.IndexOf(ItemIn)<>-1 Then
   Result:=True;
End;

Procedure Tform7.DeleteItem(ItemIn: String);
Var
 R,N: Integer;
Begin
R:=-1;
  For N:=Form7.ListBox1.Items.Count-1 Downto 0 do
    Begin
      If LowerCase(Form7.ListBox1.Items[n])=LowerCase(ItemIn) Then
        R:=N;
    End;
   If R>=0 Then
    Form7.ListBox1.Items.Delete(R);
End;


procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 ListBox1.Items.SaveToFile(Path+'set4.dat');
end;

procedure TForm7.FormCreate(Sender: TObject);
begin
If FileExists(Path+'set4.dat') Then
  ListBox1.Items.LoadFromFile(Path+'set4.dat');
end;

procedure TForm7.ListBox1Click(Sender: TObject);
Var
 R: Integer;
begin
 R:=ItemSelected;
 If R<>-1 Then
  Begin
   Edit1.Text:=Form7.ListBox1.Items[R];
  End;
end;

procedure TForm7.ListBox1DblClick(Sender: TObject);
Var
 R: Integer;
 Tmp: String;
begin
// Form1.BumpKnocks:=0;
 R:=ItemSelected;
  If R<>-1 Then
    Begin
     Edit1.Text:=Form7.ListBox1.Items[R];
      If Pos('::',Edit1.Text)=0 Then
        Begin
         ShowMessage('Please Select A Room From The Yahoo Room List... "Get The List OF Yahoo Rooms" at the top Eg "Magic Room:1::032324325345"');
         Exit;
        End;
     Tmp:=Form7.ListBox1.Items[R];
     Form1.SendText(Form1.JoinRoom(Loggedinname,Tmp));
     Form2.RoomBox.Text:=Tmp;
     End
      else
     Begin
      Form1.SendText(Form1.JoinRoom(Loggedinname,Edit1.Text));
      Form2.RoomBox.Text:=Edit1.Text;
     End;
    Close;
end;

procedure TForm7.Button4Click(Sender: TObject);
Var
 R: Integer;
 Tmp: String;
begin
// Form1.BumpKnocks:=0;
 If Pos('::',Edit1.Text)=0 Then
   Begin
     ShowMessage('Please Select A Room From The Yahoo Room List... "Get The List OF Yahoo Rooms" at the top');
     Exit;
   End;
 Form1.SendText(Form1.JoinRoom(Loggedinname,Edit1.Text));
 Form2.RoomBox.Text:=Edit1.Text;
 Close;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin
 Form1.CreateSkin(Form8);
 
 Form8.Show;
end;

procedure TForm7.Button2Click(Sender: TObject);
Var
 N,R: Integer;
begin
 R:=-1;
 For N:=ListBox1.Items.Count-1 downto 0 do
   Begin
    If ListBox1.Selected[n]=True then
      R:=N;
   End;
  If R<>-1 Then
    ListBox1.Items.Delete(R);
end;

procedure TForm7.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
 N,R: Integer;
begin
 R:=-1;
 For N:=ListBox1.Items.Count-1 downto 0 do
   Begin
    If ListBox1.Selected[n]=True then
      R:=N;
   End;
  If R<>-1 Then
   If Key=VK_delete Then
     ListBox1.Items.Delete(R);
end;

procedure TForm7.Button5Click(Sender: TObject);
begin
 ListBox1.Clear;
end;

procedure TForm7.Button6Click(Sender: TObject);
begin
 Close;
end;

end.