unit Unit3;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm2 }

  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormResize(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.FormResize(Sender: TObject);
var
  w,h: longint;
begin
  image1.free;
  image1:=tImage.create(self);
  image1.left:=0;
  image1.top:=0;
  image1.height:=form2.clientHeight;
  image1.width:=form2.clientWidth;
  image1.parent:=self;
  w:=image1.width;
  h:=image1.height;
  with image1.canvas do begin
    rectangle(-10,-10,w+10,h+10);

    moveTo(round(0.05*w),round(0.75*h));
    lineTo(round(0.15*w),round(0.75*h));
    rectangle(round(0.15*w),round(0.775*h),round(0.25*w),round(0.725*h));
    textout(round(0.15*w),round(0.775*h),'R1');
    moveTo(round(0.25*w),round(0.75*h));
    lineTo(round(0.35*w),round(0.75*h));
    rectangle(round(0.35*w),round(0.775*h),round(0.45*w),round(0.725*h));
    textout(round(0.35*w),round(0.775*h),'R2');
    moveTo(round(0.45*w),round(0.75*h));
    lineTo(round(0.55*w),round(0.75*h));

    moveTo(round(0.5*w),round(0.75*h));
    lineTo(round(0.5*w),round(0.85*h));

    moveTo(round(0.47*w),round(0.85*h));
    lineTo(round(0.53*w),round(0.85*h));
    moveTo(round(0.47*w),round(0.875*h));
    lineTo(round(0.53*w),round(0.875*h));
    textout(round(0.53*w),round(0.85*h),'C2');

    moveTo(round(0.5*w),round(0.875*h));
    lineTo(round(0.5*w),round(0.975*h));

    moveTo(round(0.475*w),round(0.975*h)); // Masse
    lineTo(round(0.525*w),round(0.975*h));

    moveTo(round(0.27*w),round(0.625*h));
    lineTo(round(0.33*w),round(0.625*h));
    moveTo(round(0.27*w),round(0.65*h));
    lineTo(round(0.33*w),round(0.65*h));
    textout(round(0.33*w),round(0.625*h),'C1');

    moveTo(round(0.3*w),round(0.65*h));
    lineTo(round(0.3*w),round(0.75*h));

    moveTo(round(0.3*w),round(0.625*h));
    lineTo(round(0.3*w),round(0.525*h));
    lineTo(round(0.8*w),round(0.525*h));
    lineTo(round(0.8*w),round(0.7*h));

    moveTo(round(0.85*w),round(0.7*h));
    lineTo(round(0.75*w),round(0.7*h));
    lineTo(round(0.55*w),round(0.6*h));
    lineTo(round(0.55*w),round(0.8*h));
    lineTo(round(0.75*w),round(0.7*h));

    moveTo(round(0.5*w),round(0.525*h));
    lineTo(round(0.5*w),round(0.65*h));
    lineTo(round(0.55*w),round(0.65*h));


    moveTo(round(0.05*w),round(0.25*h));
    lineTo(round(0.1875*w),round(0.25*h));

    textout(round(0.2125*w),round(0.28*h),'C1');
    moveTo(round(0.1875*w),round(0.22*h));
    lineTo(round(0.1875*w),round(0.28*h));
    moveTo(round(0.2125*w),round(0.22*h));
    lineTo(round(0.2125*w),round(0.28*h));

    moveTo(round(0.2125*w),round(0.25*h));
    lineTo(round(0.3875*w),round(0.25*h));

    textout(round(0.4125*w),round(0.28*h),'C2');
    moveTo(round(0.3875*w),round(0.22*h));
    lineTo(round(0.3875*w),round(0.28*h));
    moveTo(round(0.4125*w),round(0.22*h));
    lineTo(round(0.4125*w),round(0.28*h));

    moveTo(round(0.4125*w),round(0.25*h));
    lineTo(round(0.55*w),round(0.25*h));

    moveTo(round(0.5*w),round(0.25*h));
    lineTo(round(0.5*w),round(0.3125*h));

    textout(round(0.525*w),round(0.3125*h),'R1');
    rectangle(round(0.475*w),round(0.3125*h),round(0.525*w),round(0.4125*h));

    moveTo(round(0.5*w),round(0.4125*h));
    lineTo(round(0.5*w),round(0.475*h));

    moveTo(round(0.475*w),round(0.475*h)); // Masse
    lineTo(round(0.525*w),round(0.475*h));


    textout(round(0.325*w),round(0.0925*h),'R2');
    rectangle(round(0.275*w),round(0.0925*h),round(0.325*w),round(0.1925*h));

    moveTo(round(0.3*w),round(0.1925*h));
    lineTo(round(0.3*w),round(0.25*h));

    moveTo(round(0.3*w),round(0.0925*h));
    lineTo(round(0.3*w),round(0.025*h));
    lineTo(round(0.8*w),round(0.025*h));
    lineTo(round(0.8*w),round(0.2*h));

    moveTo(round(0.85*w),round(0.2*h));
    lineTo(round(0.75*w),round(0.2*h));
    lineTo(round(0.55*w),round(0.1*h));
    lineTo(round(0.55*w),round(0.3*h));
    lineTo(round(0.75*w),round(0.2*h));

    moveTo(round(0.5*w),round(0.025*h));
    lineTo(round(0.5*w),round(0.15*h));
    lineTo(round(0.55*w),round(0.15*h));
  end;
  image1.visible:=true;
end;

end.