FastReport y códigos de barras

[afxe]

Por si a alguien le ocurriera:

Hay que modificar el método DrawBarCode en el fuente frxBarcod.pas de Fastreport (yo estoy con la versión 4), y al principio, sustituir:

Código Delphi [-]
  BarWidth := Width;

por

Código Delphi [-]
  tTemp := GetDC(0);  // definir en var tTemp : HDC
  try
    BarWidth := Round((Width * GetDeviceCaps(tTemp, VERTRES)) / GetDeviceCaps(tTemp, DESKTOPVERTRES));
  finally
    ReleaseDC(0, tTemp);
  end;

Con esto se soluciona que el código de barras se estreche cuando se cambia el tamaño de los elementos del escritorio al 125%, 150%, etc. en las propiedades de la pantalla.

También he solucionado el problema para Quickreport, que le pasa otro tanto de lo mismo, usando la misma función.

Saludos