anchor.diff:  
   
   { TKMPopUpPanel }
  -constructor TKMPopUpPanel.Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = ''; aImageType: TKMPopUpBGImageType = pubgitYellowish);
  +constructor TKMPopUpPanel.Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = '';
  +                                 aImageType: TKMPopUpBGImageType = pubgitYellowish; aShowBevel: Boolean = True);
   var
     BGImageID: Integer;
   begin
  
positive.code: begin
    ImageBG.Width := Width + 40;
    ImageBG.Height := Height + 60;
    BevelBG.Width := Width;
    BevelBG.Height := Height;
  end;
  
  
  
negative.code: //Might need additional graphics to be added to gui.rx
  //Some kind of box with an outline, darkened background and shadow maybe, similar to other controls.
  procedure TKMCheckBox.Paint;
  var
    Col, SemiCol: TColor4;
    CheckSize: Integer;
  begin
    inherited;
  
    if fEnabled then
    begin
      Col := icWhite;
      SemiCol := $FFCCCCCC;
    end
    else
    begin
      Col := icGray2;
      SemiCol := $FF888888;
    end;
  
    CheckSize := gRes.Fonts[fFont].GetTextSize('x').Y + 1;
  
    TKMRenderUI.WriteBevel(AbsLeft, AbsTop, CheckSize - 4, CheckSize-4, 1, {0.35 - }Byte(not IsSemiChecked)*0.35);
  
    if DrawOutline then
      TKMRenderUI.WriteOutline(AbsLeft, AbsTop, CheckSize - 4, CheckSize - 4, LineWidth, LineColor);
  
    case fState of
      cbsChecked:     TKMRenderUI.WriteText(AbsLeft + (CheckSize-4) div 2, AbsTop - 1, 0, 'x', fFont, taCenter, Col);
      cbsSemiChecked: TKMRenderUI.WriteText(AbsLeft + (CheckSize-4) div 2, AbsTop - 1, 0, 'x', fFont, taCenter, SemiCol);
      cbsUnchecked: ; //Do not draw anything
    end;
  
  
    TKMRenderUI.WriteText(AbsLeft + CheckSize, AbsTop, Width - Height, fCaption, fFont, taLeft, Col);
  end;
  