anchor.diff:      function GetIsClickable: Boolean;
   
       procedure ResetClickHoldMode;
  +
  +    procedure DebugKeyDown(Key: Word; Shift: TShiftState);
     protected
       procedure SetLeft(aValue: Integer); virtual;
       procedure SetTop(aValue: Integer); virtual;
  
positive.code: 
    if Assigned(fOnKeyUp) then
      Result := fOnKeyUp(Self, Key, Shift);
  
    if not MODE_DESIGN_CONTROLS then Exit;
  end;
  
  
  
negative.code: procedure TKMMasterControl.Paint;
  var
    I: Integer;
    str: string;
  begin
    if Self = nil then Exit;
  
  