Quelltext geändert

[EWeiss]

Nebenbei..

Ich habe die normalen Functionen vom Record TWinAMPVisModule gecastet
da ich im Plugin mehrere Module verwende.

Standard

Delphi-Quellcode:

    Config        : procedure(This_Mod: PWinAMPVisModule); cdecl;
    Init          : function(This_Mod: PWinAMPVisModule): Integer; cdecl;
    Render        : function(This_Mod: PWinAMPVisModule): Integer; cdecl;
    Quit          : procedure(This_Mod: PWinAMPVisModule); cdecl;

umgelegt..

Delphi-Quellcode:

function _Slideshow_Init(This_Mod: PWinAMPVisModule): integer; cdecl; forward;
function _Slideshow_Render(This_Mod: PWinAMPVisModule): integer; cdecl; forward;
procedure _Slideshow_Quit(This_Mod: PWinAMPVisModule); cdecl; forward;
procedure _Slideshow_Config(This_Mod: PWinAMPVisModule); cdecl; forward;

Delphi-Quellcode:

var
  _Slideshow: TWinAMPVisModule = (Description: PAnsiChar('Background Slideshow');
  LatencyMs: 1;
  DelayMS: 25;
  SpectrumNch: 2;
  WaveformNch: 2;
  Config: _Slideshow_Config;
  Init: _Slideshow_Init;
  Render: _Slideshow_Render;
  Quit: _Slideshow_Quit;
  UserData: nil);

Kann mir aber nicht vorstellen das dies mein genanntes Problem verursacht.

gruss