anchor.diff:      ReadOnly: Boolean;
       ShowColors: Boolean;
       MaxLen: Word;
  +    DrawOutline: Boolean;
  +    OutlineColor: Cardinal;
       OnChange: TNotifyEvent;
       OnKeyDown: TNotifyEventKey;
       constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aFont: TKMFont);
  
positive.code: begin
    Inc(CtrlPaintCount);
  
    if DrawOutline then
    begin
      TKMRenderUI.WriteShape(AbsLeft-1, AbsTop-1, Width+2, Height+2, $00000000, OutlineColor);
      TKMRenderUI.WriteShape(AbsLeft-2, AbsTop-2, Width+4, Height+4, $00000000, OutlineColor);
    end;
  
    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;
  
  
    if not SHOW_CONTROLS_OVERLAY then exit;
  
  
negative.code:   OffX: Integer;
  begin
    inherited;
  
    if DrawOutline then
    begin
      TKMRenderUI.WriteShape(AbsLeft-1, AbsTop-1, Width+2, Height+2, $00000000, OutlineColor);
      TKMRenderUI.WriteShape(AbsLeft-2, AbsTop-2, Width+4, Height+4, $00000000, OutlineColor);
    end;
  
    TKMRenderUI.WriteBevel(AbsLeft, AbsTop, Width, Height);
    if fEnabled then Col:=$FFFFFFFF else Col:=$FF888888;
  
  