anchor.diff:      fOnChangeEnableStatus: TBooleanEvent;
       fOnKeyDown: TNotifyEventKeyShiftFunc;
       fOnKeyUp: TNotifyEventKeyShiftFunc;
  +
  +    fOnWidthChange: TObjectIntegerEvent;
  +    fOnHeightChange: TObjectIntegerEvent;
   
       function GetAbsLeft: Integer;
       function GetAbsTop: Integer;
  
positive.code:     property OnChangeEnableStatus: TBooleanEvent read fOnChangeEnableStatus write fOnChangeEnableStatus;
      property OnKeyDown: TNotifyEventKeyShiftFunc read fOnKeyDown write fOnKeyDown;
      property OnKeyUp: TNotifyEventKeyShiftFunc read fOnKeyUp write fOnKeyUp;
  
      procedure Paint; virtual;
      procedure UpdateState(aTickCount: Cardinal); virtual;
  
negative.code: 
  //Overriden in child classes
  procedure TKMControl.SetHeight(aValue: Integer);
  var
    OldH: Integer;
  begin
    OldH := fHeight;
    fHeight := aValue;
    if (OldH <> fHeight) and Assigned(fOnHeightChange) then
      fOnHeightChange(Self, fHeight);
  end;
  
  //Overriden in child classes
  procedure TKMControl.SetWidth(aValue: Integer);
  var
    OldW: Integer;
  begin
    OldW := fHeight;
    fWidth := aValue;
    if (OldW <> fWidth) and Assigned(fOnWidthChange) then
      fOnWidthChange(Self, fWidth);
  end;
  
  
  