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