anchor.diff:      property Value: String read FValue write FValue;
       property AdditionalValue: String read FAdditionalValue write FAdditionalValue;
       property Progress: Single read FProgress write FProgress;
  -    property ShowItem: Boolean read fShowItem write fShowItem;
       procedure CreateChilds;
       procedure PaintPanel(aPaintLayer: TKMPaintLayer); override;
     end;
  
positive.code:   count := 0;
    for I := 0 to GetTagCount - 1 do
    begin
      fItems[I].Visible := fLinesAggregator.FItemsVisibility[I];
      if fItems[I].Visible then
        Inc(count);
    end;
  
  
negative.code: var
    paintLightness: Single;
  begin
    paintLightness := CTRL_HIGHLIGHT_COEF_DEF * Byte(((csOver in Image.State) or (csOver in Bevel.State)) and FDoHighlight(FItemTag));
  
    Image.Lightness := paintLightness;
  
    PercentBar.Visible := (FProgress >= 0);
    PercentBar.Position := fProgress;
  
    Label_Text.Caption := fValue;
    Label_AddText.Caption := fAdditionalValue;
  
    inherited PaintPanel(aPaintLayer);
  