anchor.diff:  {$IFDEF VIDEOS}
   
   uses
  -  KM_Render, KM_RenderUI, dglOpenGL, KM_Controls, KM_ResFonts;
  +  KM_Render, KM_RenderUI, dglOpenGL, KM_Controls, KM_ResFonts, KM_GameApp;
   
   procedure lib_vlc_player_event_hdlr(p_event: libvlc_event_t_ptr; data: Pointer); cdecl; forward;
   
  
positive.code: {$IFDEF VIDEOS}
    FCriticalSection := TCriticalSection.Create;
    FVideoList := TStringList.Create;
  {$ENDIF}
  end;
  
  
negative.code:   media := libvlc_media_new_path(FInstance, PAnsiChar(UTF8Encode(path)));
    libvlc_media_parse(media);
  
    FTrackList.Clear;
    trackCount := libvlc_media_tracks_get(media, Pointer(tracks));
  
    if trackCount > 0 then
    begin
      for i := 0 to trackCount - 1 do
      begin
        track := tracks[i];
        case track.i_type of
          libvlc_track_video:
            begin
              FWidth := track.u.video.i_width;
              FHeight := track.u.video.i_height;
            end;
          libvlc_track_audio:
            if track.psz_language <> nil then
              FTrackList.AddObject(track.psz_language, TObject(track.i_id));
        end;
      end;
  
      FCriticalSection.Enter;
      SetLength(FBuffer, FWidth * FHeight * 3);
  
  