anchor.diff:  end;
   
   
  +procedure TKMLabel.SetFont(const Value: TKMFont);
  +begin
  +  fFont := Value;
  +  ReformatText;
  +end;
  +
  +
   //Existing EOLs should be preserved, and new ones added where needed
   //Keep original intact incase we need to Reformat text once again
   procedure TKMLabel.ReformatText;
  +
     procedure Reformat;
     begin
       if fAutoWrap then
  
positive.code: 
  
    TKMListBox = class(TKMSearchableList)
    private
      fAutoHideScrollBar: Boolean;
      fBackAlpha: Single; //Alpha of background (usually 0.5, dropbox 1)
  
negative.code: constructor TKMBevel.Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aPaintLayer: Integer = 0);
  begin
    inherited Create(aParent, aLeft, aTop, aWidth, aHeight, aPaintLayer);
  
    SetDefBackAlpha;
    SetDefEdgeAlpha;
  end;
  
  
  procedure TKMBevel.SetDefBackAlpha;
  begin
    BackAlpha := DEF_BACK_ALPHA; //Default value
  end;
  
  
  procedure TKMBevel.SetDefEdgeAlpha;
  begin
    EdgeAlpha := DEF_EDGE_ALPHA; //Default value
  end;
  
  
  procedure TKMBevel.SetDefColor;
  begin
    Color := COLOR3F_BLACK; //Default value
  end;
  
  
  procedure TKMBevel.Paint;
  begin
    inherited;
    TKMRenderUI.WriteBevel(AbsLeft, AbsTop, Width, Height, Color, EdgeAlpha, BackAlpha, PaintingBaseLayer);
  end;
  
  
  