anchor.diff:      function GetSelfAbsTop: Integer; virtual;
       function GetSelfHeight: Integer; virtual;
       function GetSelfWidth: Integer; virtual;
  +    procedure UpdateVisibility; virtual;
     public
       Hitable: Boolean; //Can this control be hit with the cursor?
       Focusable: Boolean; //Can this control have focus (e.g. TKMEdit sets this true)
  
positive.code:   private
      fMasterControl: TKMMasterControl;
      procedure Init;
      procedure UpdateVisibility;
    protected
      //Do not propogate SetEnabled and SetVisible because that would show/enable ALL childs childs
      //e.g. scrollbar on a listbox
  
negative.code:     property OnFocus: TNotifyEventFocus read fOnFocus write fOnFocus;
      property OnControlMouseDown: TNotifyEventShift read fOnControlMouseDown write fOnControlMouseDown;
      property OnControlMouseUp: TNotifyEventShift read fOnControlMouseUp write fOnControlMouseUp;
  
      procedure Paint; virtual;
    end;
  