anchor.diff: -﻿unit KM_Controls;
  +unit KM_Controls;
   {$I KaM_Remake.inc}
   interface
   uses
  
positive.code:     property Strikethrough: Boolean read fStrikethrough write fStrikethrough;
      property TabWidth: Integer read fTabWidth write fTabWidth;
      property TextSize: TKMPoint read fTextSize;
      property Font: TKMFont read fFont write fFont;
      procedure Paint; override;
    end;
  
  
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;
  
  
  