anchor.diff:  
     if (S='treeview') then
     begin
  -    Ctl:= proc_globdata.TTreeView.Create(AForm);
  +    Ctl:= TTreeViewMy.Create(AForm);
       DoApplyThemeToTreeview(Ctl as TTreeView, false{not themed});
       TTreeView(Ctl).Images:= TImageList.Create(AForm);
       TTreeView(Ctl).OnChange:= @AForm.DoOnTreeviewChange;
  
positive.code:   Gauges,
    proc_customdialog_dummy,
    proc_miscutils,
    proc_globdata,
    PythonEngine;
  
  procedure DoDialogCustom(const ATitle: string;
  
negative.code: 
    if (S='listbox_ex') then
    begin
      Ctl:= TATListboxMy.Create(AForm);
      (Ctl as TATListbox).CanGetFocus:= true;
      (Ctl as TATListbox).OnChangedSel:= @AForm.DoOnChange;
      exit;
  