anchor.diff:    while S<>'' do
     begin
       SItem:= SGetItem(S, #9);
  -    if C is TListbox then (C as TListbox).Items.Add(SItem);
  -    if C is TComboBox then (C as TComboBox).Items.Add(SItem);
  -    if C is TCheckGroup then (C as TCheckGroup).Items.Add(SItem);
  -    if C is TRadioGroup then (C as TRadioGroup).Items.Add(SItem);
  -    if C is TCheckListBox then (C as TCheckListBox).Items.Add(SItem);
  -    if C is TListView then DoControl_SetState_ListviewItem(C as TListView, SItem);
  -    if C is TTabControl then (C as TTabControl).Tabs.Add(SItem);
  -    if C is TPageControl then (C as TPageControl).AddTabSheet.Caption:= SItem;
  +    if C is TListbox then TListbox(C).Items.Add(SItem);
  +    if C is TComboBox then TComboBox(C).Items.Add(SItem);
  +    if C is TCheckGroup then TCheckGroup(C).Items.Add(SItem);
  +    if C is TRadioGroup then TRadioGroup(C).Items.Add(SItem);
  +    if C is TCheckListBox then TCheckListBox(C).Items.Add(SItem);
  +    if C is TListView then DoControl_SetState_ListviewItem(TListView(C), SItem);
  +    if C is TTabControl then TTabControl(C).Tabs.Add(SItem);
  +    if C is TPageControl then TPageControl(C).AddTabSheet.Caption:= SItem;
     end;
   end;
   
  
positive.code: begin
    Result:= '';
    if C is TCustomListbox then
      exit(DoControl_GetItems_Listbox(C as TCustomListbox));
    if C is TListView then
      exit(DoControl_GetItems_ListView(C as TListView));
  end;
  
  
  
negative.code:   if (C is TProgressBar) then
    begin
      case AIndex of
        0: TProgressBar(C).Orientation:= TProgressBarOrientation(StrToIntDef(S, 0));
        1: TProgressBar(C).Min:= StrToIntDef(S, 0);
        2: TProgressBar(C).Max:= StrToIntDef(S, 100);
        3: TProgressBar(C).Smooth:= AppStrToBool(S);
        4: TProgressBar(C).Step:= StrToIntDef(S, 1);
        5: TProgressBar(C).Style:= TProgressBarStyle(StrToIntDef(S, 0));
        6: TProgressBar(C).BarShowText:= AppStrToBool(S);
      end;
      exit;
    end;
  