anchor.diff:      fAdditionalValue: String;
       fProgress: Single;
       fItemTag: Integer;
  -    fShowItem: Boolean;
       FOnItemClick: TIntBoolEvent;
       FDoHighlight: TBoolIntFuncSimple;
       procedure ItemClicked(Sender: TObject; Shift: TShiftState);
  
positive.code:   FValue := '';
    FAdditionalValue := '';
    FProgress := -1;
    fShowItem := False;
    FDoHighlight := aDoHighlight;
    FOnItemClick := aOnItemClick;
    CreateChilds;
  
negative.code:     property Value: String read FValue write FValue;
      property AdditionalValue: String read FAdditionalValue write FAdditionalValue;
      property Progress: Single read FProgress write FProgress;
      procedure CreateChilds;
      procedure PaintPanel(aPaintLayer: TKMPaintLayer); override;
    end;
  