X-Git-Url: https://deadsoftware.ru/gitweb?p=d2df-editor.git;a=blobdiff_plain;f=src%2Feditor%2Fspectrum.pas;h=fcedd73783a9c850afc8794bd5d1a351ed40ae94;hp=d0ef0988249af1f5bdef822e3b2fdba8adb1c557;hb=3dc2fe6b3d29cd54425db8f590e922f2dce50e99;hpb=212386359ea0af4e0a861f9bf92c45a1516ac87c

diff --git a/src/editor/spectrum.pas b/src/editor/spectrum.pas
index d0ef098..fcedd73 100644
--- a/src/editor/spectrum.pas
+++ b/src/editor/spectrum.pas
@@ -1,15 +1,23 @@
 unit spectrum;
 
-{$MODE Delphi}
+{$INCLUDE ../shared/a_modes.inc}
 
 interface
 
 uses
-  LCLIntf, LCLType, LMessages, Classes, Controls, Graphics,
-  fmod, fmodtypes;
+  LCLIntf, LCLType, LMessages, Classes, Controls, Graphics
+  {$IFNDEF NOSOUND}, fmod, fmodtypes;{$ELSE};{$ENDIF}
 
 const
   N_SPECTRUM_VALUES = 512;
+{$IFDEF NOSOUND}
+// fuck my life
+  FMOD_OK = 0;
+
+type
+  FMOD_CHANNEL = Pointer;
+  FMOD_RESULT = Integer;
+{$ENDIF}
 
 type
   TSpectrumStyle = (ssSmooth, ssBlock);
@@ -130,7 +138,7 @@ begin
 {$R-}
   FBuffer.Canvas.Brush.Color := Color;
   FBuffer.Canvas.FillRect(BoundsRect);
-
+{$IFNDEF NOSOUND}
   if Enabled then
     begin
       if FChannel <> nil then
@@ -182,6 +190,7 @@ begin
       end;
     end
   else // if Enabled ...
+{$ENDIF}
     begin
       FBuffer.Canvas.Font.Color := clWhite;
       ARect := BoundsRect;