anchor.diff:  end;
   
   procedure TfmMain.DoPyEvent_AppState(AState: integer);
  -var
  -  Params: TAppVariantArray;
  -begin
  -  SetLength(Params, 1);
  -  Params[0]:= AppVariant(AState);
  -  DoPyEvent(nil, cEventOnState, Params);
  +begin
  +  DoPyEvent(nil, cEventOnState, [AppVariant(AState)]);
   end;
   
   procedure TfmMain.DoPyEvent_EdState(Ed: TATSynEdit; AState: integer);
  -var
  -  Params: TAppVariantArray;
  -begin
  -  SetLength(Params, 1);
  -  Params[0]:= AppVariant(AState);
  -  DoPyEvent(Ed, cEventOnStateEd, Params);
  +begin
  +  DoPyEvent(Ed, cEventOnStateEd, [AppVariant(AState)]);
   end;
   
   procedure TfmMain.DoPyEvent_AppActivate(AEvent: TAppPyEvent);
   var
     Tick: QWord;
  -  Params: TAppVariantArray;
   begin
     Tick:= GetTickCount64;
     if (Tick-FLastAppActivate)>500 then //workaround for too many calls in LCL, on Ubuntu 20.04
     begin
       FLastAppActivate:= Tick;
  -    SetLength(Params, 0);
  -    DoPyEvent(nil, AEvent, Params);
  +    DoPyEvent(nil, AEvent, []);
     end;
   end;
   
  
positive.code: 
  procedure TfmMain.DoFolderOpen(const ADirName: string; ANewProject: boolean;
    AInvoke: TATEditorCommandInvoke);
  var
    Params: TAppVariantArray;
  begin
    SetLength(Params, 2);
    Params[0]:= AppVariant(ADirName);
    Params[1]:= AppVariant(ANewProject);
  
    DoPyCommand('cuda_project_man', 'open_dir', Params, AInvoke);
  end;
  
  procedure TfmMain.DoFolderAdd(AInvoke: TATEditorCommandInvoke);
  var
    Params: TAppVariantArray;
  begin
    if not AppPython.Inited then
    begin
  
negative.code:     exit;
    end;
  
    DoPyCommand('cuda_project_man', 'new_project_open_dir', [], AInvoke);
  end;
  
  procedure TfmMain.DoGroupsChangeMode(Sender: TObject);
  