Неверное отображение отчета или печать отчета с установкой размера шрифта Windows: (125%, 150%) или dpi больше, чем 96 (120,144)

Question

Эта проблема хорошо известна, но мне еще предстоит найти решение.

Всякий раз, когда фон-размер в окнах установлен выше, чем нормальный размер

отчет сжимается относительно размера бумаги,

и получает на якорь в левом верхнем углу страницы, как так:

Swiching в «масштабируется» свойство включить или выключить в любой точке не влияет на это.

Как возится с PixelsPerInch.

Единственное решение, предложенное от тех, что я видел, что на самом деле делает что-то,

и могут быть найдены в QuickReport форуме, в этой ссылке прямо здесь:

QrPreview with UseDpiScaling under Windows7,

включает в себя создание новый ресурс проекта, добавив следующие строки:

<application xmlns="urn:schemas-microsoft-com:asm.v3"> 
    <windowsSettings> 
     <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware> 
    </windowsSettings> 
    </application> 
</assembly> 

Однако единственное, что это делает, это мак е текст в докладе большего,

в то время как отчет остается в пределах одних и тех же boundries, как показано на рисунке ниже:

Что можно сделать по этому поводу?

мне нужен отчет в соответствии с размером бумаги,

для отображения и печати так же, как он был разработан, независимо от окна размера шрифта

Answer 1

Я нашел рабочее решение! Патч для QRPrntr.pas:

procedure TQRPrinter.CreateMetafileCanvas; 

    function scaleToNativeDeskRes(pVal: Integer): Integer; 
    var 
    tTemp: HDC; 
    begin 
    tTemp := GetDC(0); 
    try 
     Result := Round((pVal * GetDeviceCaps(tTemp, VERTRES))/GetDeviceCaps(tTemp, DESKTOPVERTRES)); 
    finally 
     ReleaseDC(0, tTemp); 
    end; 
    end; 

begin 
... 
    FMetafile.Width := scaleToNativeDeskRes(XSize(PaperWidthValue)); 
    FMetafile.Height := scaleToNativeDeskRes(YSize(PaperLengthValue)); 
    FCanvas := TMetafileCanvas.Create(FMetafile, 0); 
    FCanvas.Font.PixelsPerInch := MetafileDPI; 
... 
end;