dfwdrivecombou.pas

dfw控件组V0.62

unit DFWDriveComboU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, DFWDriveCombo, ExtCtrls, DFWStdSelectDirTree;

type
  TForm1 = class(TForm)
    SelectDirTree: TDFWStdSelectDirTree;
    Label1: TLabel;
    DriveCombo: TDFWDriveCombo;
    Button1: TButton;
    UpdateTimer: TTimer;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    procedure DriveComboMediaArrival(Media: Char);
    procedure DriveComboMediaRemove(Media: Char);
    procedure DriveComboChange(Sender: TObject);
    procedure UpdateTimerTimer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.DriveComboMediaArrival(Media: Char);
begin
  if Media=SelectDirTree.Drive then
    UpdateTimer.Enabled:=True;
end;

procedure TForm1.DriveComboMediaRemove(Media: Char);
begin
  if Media=SelectDirTree.Drive then
    UpdateTimer.Enabled:=True;
end;

procedure TForm1.DriveComboChange(Sender: TObject);
begin
  SelectDirTree.Drive:=DriveCombo.Drive;
end;

procedure TForm1.UpdateTimerTimer(Sender: TObject);
begin
  //This timer is used to add 2 seconds delay between windows messages and
  //icon updating, else icon is bad updated...
  SelectDirTree.UpdateTree;
  UpdateTimer.Enabled:=False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SelectDirTree.Selected<>nil then
    SelectDirTree.RootDir:=SelectDirTree.GetNodeDirectory(SelectDirTree.Selected);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  SelectDirTree.RootDir:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  List: TStringList;
begin
  List:=TStringList.Create;
  SelectDirTree.GetSelection(List);
  ListBox1.Items.Clear;
  ListBox1.Items.AddStrings(List);
  List.Free;
end;

end.