anchor.diff:      Caption: UnicodeString;
       Font: TKMFont;
       FontColor: TColor4;
  -    constructor Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = ''; aImageType: TKMPopUpBGImageType = pubgitYellowish);
  +    constructor Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = '';
  +                       aImageType: TKMPopUpBGImageType = pubgitYellowish; aShowBevel: Boolean = True);
       procedure PaintPanel(aPaintLayer: Integer); override;
     end;
   
  
positive.code: 
  
  { TKMCheckBox }
  constructor TKMCheckBox.Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; const aCaption: UnicodeString; aFont: TKMFont);
  begin
    inherited Create(aParent, aLeft, aTop, aWidth, aHeight);
    fFont     := aFont;
    fCaption  := aCaption;
    LineWidth := 1;
    LineColor := clChkboxOutline;
  end;
  
  
  procedure TKMCheckBox.Check;
  begin
    fChecked := True;
  end;
  
  
  procedure TKMCheckBox.Uncheck;
  begin
    fChecked := False;
  end;
  
  
  procedure TKMCheckBox.SwitchCheck;
  begin
    fChecked := not fChecked;
  end;
  
  
  procedure TKMCheckBox.MouseUp(X,Y: Integer; Shift: TShiftState; Button: TMouseButton);
  begin
    if (csDown in State) and (Button = mbLeft) then
      fChecked := not fChecked;
    inherited; //There are OnMouseUp and OnClick events there
  end;
  
  
negative.code: 
  
  { TKMPopUpPanel }
  constructor TKMPopUpPanel.Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = '';
                                   aImageType: TKMPopUpBGImageType = pubgitYellowish; aShowBevel: Boolean = True);
  var
    BGImageID: Integer;
  begin
  