Canvas.LineTo(width,0 ) ;
    end ;
    TopBottom:
    begin
    Canvas.MoveTo(0,0) ;
    Canvas.LineTo(width,Height ) ;
    end ;
    None:
    begin
    Height := Parent.Height ;
    Top:=0 ;
    Width:=4 ;
    Shape:=qrsVertLine ;
    Inherited Paint ;
    end ;
    end ;
    end ;
    procedure TMyQRShape.Print(OfsX,OfsY : Integer);
    begin
    with QRPrinter do
    begin
    case LineType of
    BottomTop:
    begin
    Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)+Height) ;
    Canvas.LineTo(XPos(OfsX + Size.Left)+width,YPos(OfsY + Size.Top) ) ;
    end ;
    TopBottom:
    begin
    Canvas.MoveTo(XPos(OfsX + Size.Left), YPos(OfsY + Size.Top)) ;
    Canvas.LineTo(XPos(OfsX + Size.Left)+Width,YPos(OfsY + Size.Top)+Height ) ;
    end ;
    None:
    Inherited Print(OfsX,OfsY ) ;
    end ;
    end ;
    end;
    procedure Register;
    begin
    RegisterComponents(‘QReport'', [TMyQRShape]);
    end;
    end.