get rid of "kastet" and "pulemet" in symbols

[d2df-editor.git] / src / editor / spectrum.pas

diff --git a/src/editor/spectrum.pas b/src/editor/spectrum.pas
index d0ef0988249af1f5bdef822e3b2fdba8adb1c557..f7dfe351ba29ae5a77fb711e3cc9c8ade6ced99b 100644 (file)
--- 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,10 +190,11 @@ begin
       end;
     end
   else // if Enabled ...
+{$ENDIF}
     begin
       FBuffer.Canvas.Font.Color := clWhite;
       ARect := BoundsRect;
-      DrawText(FBuffer.Canvas.Handle, PChar(_lc[I_LAB_SPECTRUM]), -1, ARect,
+      DrawText(FBuffer.Canvas.Handle, PChar(MsgLabSpectrum), -1, ARect,
                DT_WORDBREAK or DT_NOPREFIX or DT_VCENTER or DT_CENTER);
     end;