anchor.diff:  
       procedure ControlsUpdate(Sender: TObject);
     private
  +    fShowStartVideo: Boolean;
       fUpdating: Boolean;
       fMissionDefOpenPath: UnicodeString;
       fOnControlsUpdated: TEvent;
  
positive.code: 
    Application.ProcessMessages;
  
    if (gGameApp.GameSettings <> nil) and gGameApp.GameSettings.VideoStartup then
    begin
      gVideoPlayer.AddVideo('Campaigns\The Shattered Kingdom\Logo');
      gVideoPlayer.AddVideo('KaM');
      gVideoPlayer.Play;
    end;
  end;
  
  
  
negative.code: //Remove VCL panel and use flicker-free TMyPanel instead
  procedure TFormMain.FormCreate(Sender: TObject);
  begin
    fShowStartVideo := True;
    RenderArea := TKMRenderControl.Create(Self);
    RenderArea.Parent := Self;
    RenderArea.Align := alClient;
  