extra_demo_filectrl.pas

themeengine6源码

unit extra_demo_FileCtrl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, te_extended, te_controls, te_extra_FileCtrl,
  te_extra_Effect_Controls;

type
  TfrmFileCtrl = class(TForm)
    SeSkinForm1: TTeForm;
    TeFileListBox1: TTeFileListBox;
    TeDirectoryListBox1: TTeDirectoryListBox;
    TeDriveComboBox1: TTeDriveComboBox;
    TeFilterComboBox1: TTeFilterComboBox;
    TeFileCombo1: TTeFileCombo;
    TeDriveCombo1: TTeDriveCombo;
    TeFolderListbox1: TTeFolderListbox;
    TeLabel1: TTeLabel;
    TeLabel2: TTeLabel;
    TeLabel3: TTeLabel;
    TeLabel5: TTeLabel;
    TeLabel6: TTeLabel;
    TeLabel7: TTeLabel;
    SeSkinButton1: TTeEffectButton;
    dirTeLabel2: TTeLabel;
    dirTeLabel1: TTeLabel;
    TeLabeledEdit1: TTeLabeledEdit;
    TeLabeledEdit2: TTeLabeledEdit;
    TeLabel8: TTeLabel;
    TeButton1: TTeEffectButton;
    procedure TeDirectoryListBox1Change(Sender: TObject);
    procedure TeButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFileCtrl: TfrmFileCtrl;

implementation

{$R *.dfm}

procedure TfrmFileCtrl.TeDirectoryListBox1Change(Sender: TObject);
begin
  try
  TeFileCombo1.Directory:=(Sender as TTeDirectoryListBox).Directory;
  except
  end;
end;

procedure TfrmFileCtrl.TeButton1Click(Sender: TObject);
var dir: string;
begin
  dir:='C:\';
  SelectDirectory(dir,[sdAllowCreate, sdPerformCreate, sdPrompt],0);
  TeDirectoryListBox1.Directory := dir;
  TeFolderListbox1.Directory := dir;
  TeFileCombo1.Directory := dir;
end;

procedure TfrmFileCtrl.FormCreate(Sender: TObject);
var dir: string;
begin
  dir:='C:\';
  TeDirectoryListBox1.Directory := dir;
  TeFolderListbox1.Directory := dir;
  TeFileCombo1.Directory := dir;
end;

end.