anchor.diff:  
     if AName='props' then
     begin
  -    ////MsgLogConsole('Deprecated API: dlg_proc "props" for "'+TAppControlProps(C.Tag).FTypeString+'"');
  +    ////MsgLogConsole('Deprecated API: dlg_proc "props" for "'+Props.FTypeString+'"');
       DoControl_SetPropsFromString_Adv(C, AValue);
       exit;
     end;
  
positive.code: 
    if AName='tag' then
    begin
      TAppControlProps(C.Tag).FTagString:= AValue;
      exit;
    end;
  
  
negative.code: 
    if AName='on_change' then
    begin
      Props.FEventOnChange:= AValue;
      exit;
    end;
  
    if AName='on_select' then
    begin
      Props.FEventOnSelect:= AValue;
      exit;
    end;
  
    if AName='on_fold' then
    begin
      Props.FEventOnFold:= AValue;
      exit;
    end;
  
    if AName='on_unfold' then
    begin
      Props.FEventOnUnfold:= AValue;
      exit;
    end;
  
    if AName='on_menu' then
    begin
      Props.FEventOnMenu:= AValue;
      exit;
    end;
  
    if AName='on_click' then
    begin
      Props.FEventOnClick:= AValue;
      exit;
    end;
  
    if AName='on_click_x' then
    begin
      Props.FEventOnClickX:= AValue;
      exit;
    end;
  
    if AName='on_click_dbl' then
    begin
      Props.FEventOnClickDbl:= AValue;
      exit;
    end;
  
    if AName='on_click_header' then
    begin
      Props.FEventOnClickHeader:= AValue;
      exit;
    end;
  
    if AName='on_focus_enter' then
    begin
      Props.FEventOnFocusEnter:= AValue;
      exit;
    end;
  
    if AName='on_focus_exit' then
    begin
      Props.FEventOnFocusExit:= AValue;
      exit;
    end;
  
    if AName='on_mouse_enter' then
    begin
      Props.FEventOnMouseEnter:= AValue;
      exit;
    end;
  
    if AName='on_mouse_exit' then
    begin
      Props.FEventOnMouseExit:= AValue;
      exit;
    end;
  
    if AName='on_mouse_down' then
    begin
      Props.FEventOnMouseDown:= AValue;
      exit;
    end;
  
    if AName='on_mouse_up' then
    begin
      Props.FEventOnMouseUp:= AValue;
      exit;
    end;
  
    if AName='on_draw_item' then
    begin
      Props.FEventOnListboxDrawItem:= AValue;
      exit;
    end;
  
    if AName='on_caret' then
    begin
      Props.FEventOnEditorCaret:= AValue;
      exit;
    end;
  
    if AName='on_scroll' then
    begin
      Props.FEventOnEditorScroll:= AValue;
      exit;
    end;
  
    if AName='on_key_down' then
    begin
      Props.FEventOnEditorKeyDown:= AValue;
      exit;
    end;
  
    if AName='on_key_up' then
    begin
      Props.FEventOnEditorKeyUp:= AValue;
      exit;
    end;
  
    if AName='on_click_gutter' then
    begin
      Props.FEventOnEditorClickGutter:= AValue;
      exit;
    end;
  
    if AName='on_click_gap' then
    begin
      Props.FEventOnEditorClickGap:= AValue;
      exit;
    end;
  
    if AName='on_paste' then
    begin
      Props.FEventOnEditorPaste:= AValue;
      exit;
    end;
  
  