anchor.diff: -﻿unit KM_Controls;
  +unit KM_Controls;
   {$I KaM_Remake.inc}
   interface
   uses
  
positive.code:     fTextSize: TKMPoint;
      fStrikethrough: Boolean;
      fTabWidth: Integer;
      function TextLeft: Integer;
      procedure SetCaption(const aCaption: UnicodeString);
      procedure SetAutoWrap(aValue: Boolean);
      procedure SetAutoCut(aValue: Boolean);
      procedure ReformatText;
    protected
      function GetIsPainted: Boolean; override;
    public
  
negative.code: 
      fTextSize := gRes.Fonts[fFont].GetTextSize(fText);
    end;
  
  begin
    Reformat;
    // Automatically cut text symbol by symbol until it will fit into given sizes (width and height)
  