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:     fAdditionalValue: String;
      fProgress: Single;
      fItemTag: Integer;
      FOnItemClick: TIntBoolEvent;
      FDoHighlight: TBoolIntFuncSimple;
      procedure ItemClicked(Sender: TObject; Shift: TShiftState);
  