anchor.diff:  {$ENDIF}
   
   procedure TKMVideoPlayer.Stop;
  +{$IFDEF VIDEOS}
   var
     startingVideo: Boolean;
  +{$ENDIF}
   begin
   {$IFDEF VIDEOS}
     StopVideo;
  
positive.code: interface
  
  uses
    SysUtils, SyncObjs, Types, Messages, Classes, Dialogs, KromOGLUtils, KM_VLC, Generics.Collections
    {$IFDEF WDC} , UITypes {$ENDIF}
    {$IFDEF FPC} , Controls {$ENDIF}
    ;
  
  {$IFDEF VIDEOS}
  
negative.code:   videoFileData.Kind := aKind;
    FVideoList.Add(videoFileData);
  end;
  {$ENDIF}
  
  
  procedure TKMVideoPlayer.AddCampaignVideo(const aCampaignPath, aVideoName: string);
  