index d0ef0988249af1f5bdef822e3b2fdba8adb1c557..fcedd73783a9c850afc8794bd5d1a351ed40ae94 100644 (file)
--- a/src/editor/spectrum.pas
+++ b/src/editor/spectrum.pas
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);
{$R-}
FBuffer.Canvas.Brush.Color := Color;
FBuffer.Canvas.FillRect(BoundsRect);
-
+{$IFNDEF NOSOUND}
if Enabled then
begin
if FChannel <> nil then
end;
end
else // if Enabled ...
+{$ENDIF}
begin
FBuffer.Canvas.Font.Color := clWhite;
ARect := BoundsRect;