unit cde_disc_frame;
{$mode delphi}
{$codepage UTF8}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, ExtCtrls, StdCtrls, Buttons;
type
  { Tcde_disc_frm }
  Tcde_disc_frm = class(TFrame)
    CreateLinkBtn: TSpeedButton;
    DiscImg: TImage;
    DiscLbl: TLabel;
    FileSystemImg: TImage;
    DiscSerialImg: TImage;
    DiscSerialLbl: TLabel;
    ButtonsPanel: TPanel;
    EjectDiscBtn: TSpeedButton;
    BrowseDiscBtn: TSpeedButton;
    VolumeNameLbl: TLabel;
    VolumeNameImg: TImage;
    FileSystemLbl: TLabel;
  private
  public
   Drive: WideChar;
   procedure UpdateDriveInfo;
  end;
implementation
{$R *.lfm}
procedure Tcde_disc_frm.UpdateDriveInfo;
begin
DiscLbl.Caption:= '&Disc: ' + Drive;
end;
end.
