importsession.pas

刻录机源码

unit ImportSession;

interface

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

type
  TfrmSessions = class(TForm)
    lb: TListBox;
    Button1: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    lMedium: TLabel;
    lDiscSize: TLabel;
    lUsedSpace: TLabel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    Label4: TLabel;
    lFreeSpace: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSessions: TfrmSessions;

implementation

uses unit1, TreeView;

{$R *.DFM}

procedure TfrmSessions.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #27 then close;
end;

procedure TfrmSessions.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmSessions.SpeedButton1Click(Sender: TObject);
begin
  if lb.ItemIndex = -1 then
  begin
    ShowMessage('Select session from list');                                             
    exit;
  end;
  if lb.Items.Count > 0 then
  begin
    form1.mcdb.ClearAll;
    form1.mcdb.ImportSession(lb.ItemIndex+1, form1.mcdb.RootDir);
    frmTree := TfrmTree.Create(Self);
    frmTree.ShowModal;
  end;

end;

end.