anchor.diff:      property EventParams: string read FEventParams write FEventParams stored IsEventParamsStored;
       // Mainteins a list of pairs names=values to translate the EventParams to the params pased to the OnAsyncEvent
       property CallBackParams: TStringList read FCallBackParams write SetCallBackParams;
  +    // lock screen during async event
  +    property Lock: boolean read FLock write FLock default false;
       // Occurs when the defined JQ event is triggered
       property OnAsyncEvent: TIWAsyncEvent read FAsyncEvent write FAsyncEvent;
     end;
  
positive.code:   end;
    if LParams = '' then
      LParams := '""';
    Result := 'ajaxCall("'+TIWBSCustomControl(Collection.Owner).HTMLName+'.'+EventName+'",'+LParams+', true)';
    if ASemiColon then
      Result := Result + ';';
  end;
  
negative.code:     FCallBackParams: TStringList;
      FAutoBind: boolean;
      FEventParams: string;
      FLock: boolean;
      procedure SetCallBackParams(const Value: TStringList);
      procedure ExecuteCallBack(aParams: TStringList);
      function IsEventParamsStored: Boolean;
  