anchor.diff:  IMPLEMENTATION
   
   {$R *.lfm}
  -{$R *.res}
   
   { TwinSize }
   
  
positive.code: INTERFACE
  
  USES
    Classes, SysUtils, fphttpwebclient, FileUtil, HtmlView, TplButtonUnit,
  	cySimpleGauge, BrookFCLEventLogHandler, Forms, Controls, Graphics, Dialogs,
  	StdCtrls, LResources;
  
  TYPE
  
    { TwinSize }
  
    TwinSize = CLASS(TForm)
      btn1WireAl: TButton;
      btn1WireCu: TButton;
  		htmWireSize: THtmlViewer;
      txtSize:    TMemo;
      PROCEDURE btn1WireCuClick(Sender: TObject);
    PRIVATE
      { private declarations }
  
negative.code:   VAR
      str: string;
    BEGIN
      htmViewer.LoadFromFile('res/wire_Cu_1.html');
      htmViewer.Update;
      htmV2.LoadFromFile('res/wire_Cu_1.html', HtmlType);
      //htmWireSize.LoadFromFile('res\wire_Cu_1.htm');
      //htmWireSize.Update;
      str := '+------------------------+--------------------------------------+-----------------------------------+' + #13#10;
      str += '|Сеченине токопроводящей |   Провода  Напряжение в 220 В        |      Напряжение в 380 В           |'
        + #13#10;
  