mirror of
https://github.com/CarldricGaming/Mini-Compressor
synced 2026-08-23 02:26:04 -04:00
97 lines
2.6 KiB
ObjectPascal
97 lines
2.6 KiB
ObjectPascal
unit Unit4;
|
|
|
|
interface
|
|
|
|
uses
|
|
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
|
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
|
|
FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, MMSystem, Windows,
|
|
FMX.Ani;
|
|
|
|
type
|
|
TForm4 = class(TForm)
|
|
Label1: TLabel;
|
|
Panel2: TPanel;
|
|
Image1: TImage;
|
|
Label2: TLabel;
|
|
Timer1: TTimer;
|
|
Label3: TLabel;
|
|
StyleNote: TStyleBook;
|
|
Image2: TImage;
|
|
FloatAnimation2: TFloatAnimation;
|
|
Arc1: TArc;
|
|
FloatAnimation1: TFloatAnimation;
|
|
procedure Timer1Timer(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
Form4: TForm4;
|
|
|
|
implementation
|
|
|
|
{$R *.fmx}
|
|
|
|
uses
|
|
MC_DLL,
|
|
Unit1;
|
|
|
|
function GetAnySource(FileSource: string): PChar;
|
|
begin
|
|
if FileSource <> '' then
|
|
Result := PChar(IncludeTrailingBackslash(GetCurrentDir) + FileSource);
|
|
end;
|
|
|
|
procedure TForm4.FormCreate(Sender: TObject);
|
|
begin
|
|
if FileExists(GetAnySource('..\Resources\MC_Logo.png')) then
|
|
Image1.Bitmap.LoadFromFile(GetAnySource('..\Resources\MC_Logo.png'))
|
|
else
|
|
if not FileExists(GetAnySource('..\Resources\MC_Logo.png')) then
|
|
begin
|
|
sndPlaySound(GetAnySource('..\Resources\MC_ERROR.wav'),SND_ASYNC);
|
|
MessageBox(0,'Missing file' +#13 +#13
|
|
+'"Resources\MC_Logo.png"', 'Error',
|
|
MB_ICONERROR or MB_OK);
|
|
end;
|
|
|
|
if FileExists(GetAnySource('..\Version.ini')) then
|
|
Label1.Text := 'Mini Compressor AIO - v' +IniRead(GetAnySource('..\Version.ini'), 'Version', 'Current');
|
|
if FileExists(GetAnySource('..\Version.ini')) then
|
|
Label2.Text := IniRead(GetAnySource('..\Version.ini') , 'Version' ,'Copyright');
|
|
|
|
if FileExists(GetAnySource('..\Resources\Wallpaper.jpg')) then
|
|
Image2.Bitmap.LoadFromFile(GetAnySource('..\Resources\Wallpaper.jpg'))
|
|
else
|
|
if not FileExists(GetAnySource('..\Resources\Wallpaper.jpg')) then
|
|
begin
|
|
sndPlaySound(GetAnySource('..\Resources\MC_ERROR.wav'),SND_ASYNC);
|
|
MessageBox(0,'Missing file' +#13 +#13
|
|
+'"Resources\IM_Bg.jpg"', 'Error',
|
|
MB_ICONERROR or MB_OK);
|
|
end;
|
|
|
|
Label2.Width := 297;
|
|
//Form1.TabControl9.TabIndex := 0;
|
|
end;
|
|
|
|
procedure TForm4.FormShow(Sender: TObject);
|
|
begin
|
|
FloatAnimation2.Enabled:= False;
|
|
FloatAnimation2.Enabled:= True;
|
|
end;
|
|
|
|
procedure TForm4.Timer1Timer(Sender: TObject);
|
|
begin
|
|
Timer1.Enabled := False;
|
|
|
|
//Form1.TabControl9.TabIndex := 1;
|
|
Close;
|
|
end;
|
|
|
|
end.
|