index d0ef0988249af1f5bdef822e3b2fdba8adb1c557..f7dfe351ba29ae5a77fb711e3cc9c8ade6ced99b 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;
- 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;