Adding some ifdef crap to load Pixelite

GBEmu.lpr

@@ -3,6 +3,18 @@
 {$MODE Delphi}
 
 uses
+{$ifdef MSWINDOWS}
+  windows,
+{$endif}
+
+{$ifdef UNIX}
+// font includes here
+{$endif}
+
+{$ifdef DARWIN}
+// font includes here
+{$endif}
+
 {$ifdef unix}
   cthreads,
   cmem, // the c memory manager is on some systems much faster for multi-threading
@@ -21,6 +33,15 @@
 {$R *.res}
 
 begin
+  { Before the LCL starts, embed Pixelite so users dont have to install it.
+    Unfortunately there isn't really a cross-platform way to do it, so here's an
+    ifdef mess. }
+
+  {$ifdef MSWINDOWS}
+    if AddFontResource('PixeliteTTF.ttf') = 0 then
+      Writeln(StdErr, 'Couldn''t load Pixelite!!!');
+  {$endif}
+
   Application.Scaled:=True;
   Application.Title:='hUGETracker';
   Application.Initialize;

tracker.pas

@@ -886,9 +886,10 @@ procedure TfrmTracker.FormCreate(Sender: TObject);
   Stream: TStream;
 begin
   if Screen.Fonts.IndexOf('Pixelite') < 0 then
-    MessageDlg('Warning', 'You don''t have the Pixelite .FON file installed, '+
-      'which means the tracker view will be messed up. Please install the font and restart!',
-      mtWarning, [mbOk], 0);
+    MessageDlg('Warning', 'You don''t have the Pixelite .TTF file in the same '+
+    'directory as the program, which means you likely didn''t extract the program before running.'+
+    LineEnding+LineEnding+'Please extract, and restart!',
+    mtWarning, [mbOk], 0);
 
   ReturnNilIfGrowHeapFails := False;
   PreviewingInstrument := -1;