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