Commit bacd1b8

Nick committed on
Changing check for Screen.Fonts because it doesn't work for some reason
commit bacd1b845cf4acc846e596acc258e8f38d13862f parent f8625f3
1 changed files +5−3
Modifiedtracker.pas +5−3
@@ -955,14 +955,16 @@ procedure TfrmTracker.FormCreate(Sender: TObject);
955 var 955 var
956 I: Integer; 956 I: Integer;
957 begin 957 begin
958 if Screen.Fonts.IndexOf('PixeliteTTF') = -1 then 958 {if Screen.Fonts.IndexOf('PixeliteTTF') = -1 then
959 MessageDlg('Warning', 'You don''t have the Pixelite font installed. '+ 959 MessageDlg('Warning', 'You don''t have the Pixelite font installed. '+
960 'On Windows, this probably means you didn''t extract hUGETracker before running it, '+ 960 'On Windows, this probably means you didn''t extract hUGETracker before running it, '+
961 'so please extract the .zip and run again! On Linux, you need to manually install the '+ 961 'so please extract the .zip and run again! On Linux, you need to manually install the '+
962 'font file, so please install PixeliteTTF.ttf and relaunch. Thanks!', 962 'font file, so please install PixeliteTTF.ttf and relaunch. Thanks!',
963 mtWarning, [mbOk], 0); 963 mtWarning, [mbOk], 0);}
964 964
965 if (not FileExists('halt.gb')) or (not DirectoryExists('hUGEDriver')) then begin 965 if (not FileExists('PixeliteTTF.ttf'))
966 or (not FileExists('halt.gb'))
967 or (not DirectoryExists('hUGEDriver')) then begin
966 MessageDlg('Error', 968 MessageDlg('Error',
967 'hUGETracker can''t load a required file which comes with '+ 969 'hUGETracker can''t load a required file which comes with '+
968 'the tracker. This likely means that you haven''t extracted the program ' + 970 'the tracker. This likely means that you haven''t extracted the program ' +