unit cde_MainForm;
{$mode delphi}
{$codepage UTF8}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Buttons, ExtCtrls, ButtonComps, kernel,
     SimplyJSON, cde_skins;
type
  { Tcde_Main }
  Tcde_Main = class(TForm)
    WorkArea: TPanel;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
var
  cde_Main: Tcde_Main;
implementation
{$R *.lfm}
procedure Tcde_Main.FormCreate(Sender: TObject);
begin
ApplySkin;
CreateDriveRec('f');
//LogoImg.Picture.LoadFromFile(GetCDEPath + 'images\Main_logo.png');
//VersionLbl.Caption:= 'v. ' + FileVersion(GetCDEPath + 'bin\cdejecter.exe');
//case GetBuildPlatform of
 //ospUnknown: VersionLbl.Caption:= VersionLbl.Caption;
 //ospWin32: VersionLbl.Caption:= VersionLbl.Caption + ' (x32)';
 //ospWin64: VersionLbl.Caption:= VersionLbl.Caption + ' (x64)';
 //end;
end;
procedure Tcde_Main.CloseBtnClick(Sender: TObject);
begin
cde_Main.Close;
end;
end.
