anchor.diff:    Inc(CtrlPaintCount);
   
     if SHOW_CONTROLS_FOCUS and (csFocus in State) then
  -  begin
  -    TKMRenderUI.WriteShape(AbsLeft-1, AbsTop-1, Width+2, Height+2, $00000000, $FF00D0FF);
  -    TKMRenderUI.WriteShape(AbsLeft-2, AbsTop-2, Width+4, Height+4, $00000000, $FF00D0FF);
  -  end;
  +    TKMRenderUI.WriteOutline(AbsLeft-2, AbsTop-2, Width+4, Height+4, 2, $FF00D0FF);
  +
  +  if MODE_DESIGN_CONTROLS and (csOver in State) then
  +    TKMRenderUI.WriteOutline(AbsLeft-2, AbsTop-2, Width+4, Height+4, 2, $FFFFD000);
   
     if SHOW_CONTROLS_ID then
       TKMRenderUI.WriteText(AbsLeft+1, AbsTop, fWidth, IntToStr(fID), fntMini, taLeft);
  
positive.code:     function GetIsClickable: Boolean;
  
      procedure ResetClickHoldMode;
    protected
      procedure SetLeft(aValue: Integer); virtual;
      procedure SetTop(aValue: Integer); virtual;
  
negative.code: 
    if Assigned(fOnKeyUp) then
      Result := fOnKeyUp(Self, Key, Shift);
  end;
  
  
  