unit2.pas

ziptv为delphi控件

Unit Unit2;

Interface

Uses
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls,
   ExtCtrls;

Type
   TForm2 = Class(TForm)
      ListBox1: TListBox;
      Panel1: TPanel;
      Button1: TButton;
      Button3: TButton;
      Button2: TButton;
      Button4: TButton;
      Procedure FormActivate(Sender: TObject);
      Procedure FormDeactivate(Sender: TObject);
      Procedure Button1Click(Sender: TObject);
      Procedure Button2Click(Sender: TObject);
      Procedure Button3Click(Sender: TObject);
      Procedure Button4Click(Sender: TObject);
   Private
   Public
   End;

Var
   Form2: TForm2;

Implementation

Uses Unit1;

{$R *.DFM}

Var
   NewExt: String;

   //-------------------------------------------------------------

Procedure TForm2.FormActivate(Sender: TObject);
Begin
   ListBox1.Items.Assign(Form1.TurboSearch1.ExcludeExts);
   If ListBox1.Items.Count > 0 Then
      ListBox1.ItemIndex := 0;
End;
//-------------------------------------------------------------

Procedure TForm2.FormDeactivate(Sender: TObject);
Begin
   Form1.TurboSearch1.ExcludeExts.Assign(ListBox1.Items);
End;
//-------------------------------------------------------------

Procedure TForm2.Button1Click(Sender: TObject);
Begin
   NewExt := LowerCase(InputBox('Add extension...', '', ''));
   If NewExt <> '' Then
   Begin
      If NewExt[1] <> '.' Then
         NewExt := '.' + NewExt;
      ListBox1.Items.Add(NewExt);
   End;
End;
//-------------------------------------------------------------

Procedure TForm2.Button2Click(Sender: TObject);
Var
   cIdx, Index: Integer;
Begin
   Index := ListBox1.ItemIndex;
   If Index > -1 Then
   Begin
      NewExt := LowerCase(InputBox('Edit extension...', ListBox1.Items[Index],
         ListBox1.Items[Index]));
      If NewExt <> '' Then
      Begin
         cIdx := Pos('.', NewExt);
         If cIdx = 0 Then
            ListBox1.Items[Index] := '.' + NewExt
         Else
            If cIdx = 1 Then
               ListBox1.Items[Index] := NewExt;
      End;
      ListBox1.ItemIndex := Index;
   End
   Else
      ShowMessage('No item selected');
End;
//-------------------------------------------------------------

Procedure TForm2.Button3Click(Sender: TObject);
Begin
   Close;
End;
//-------------------------------------------------------------

Procedure TForm2.Button4Click(Sender: TObject);
Var
   i: Integer;
Begin
   If MessageDlg('Delect selected items?', mtConfirmation, [mbYes, mbNo], 0) = mrNo Then
      Exit;

   i := 0;
   While i < ListBox1.Items.Count Do
   Begin
      If ListBox1.Selected[i] Then
         ListBox1.Items.Delete(i)
      Else
         Inc(i);
   End;
   ListBox1.Refresh;
End;
//-------------------------------------------------------------

End.