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:   FValue := '';
    FAdditionalValue := '';
    FProgress := -1;
    fShowItem := False;
    FDoHighlight := aDoHighlight;
    FOnItemClick := aOnItemClick;
    CreateChilds;
  
negative.code: 
    position := Width - GUI_SPEC_ITEM_SRLITE_H - GUI_SPEC_ITEM_WIDTH;
    for I := 0 to GetTagCount - 1 do
      if fLinesAggregator.FItemsVisibility[I] then
      begin
        fItems[I].Top := GUI_SPEC_HEADER_HEIGHT;
        fItems[I].Left := position;
  