Report preview bug (fixed)

[Enrico Maria Giordano]

The following sample shows an empty report:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"
#include "Report.ch"


FUNCTION MAIN()

    LOCAL oRpt

    USE C:\XHARBOUR\TEST

    REPORT oRpt PREVIEW

    COLUMN TITLE "FIRST";
           DATA FIELD -> first

    COLUMN TITLE "LAST";
           DATA FIELD -> last

    COLUMN TITLE "STREET";
           DATA FIELD -> street

    COLUMN TITLE "CITY";
           DATA FIELD -> city

    END REPORT

    ACTIVATE REPORT oRpt

    CLOSE

    RETURN NIL

EMG

[Antonio Linares]

Warning: This fix is just for FWH 2.6 and 2.7.

Fixed. This change in needed in source\classes\rpreview.prg line 530:

oCoors1 := TRect():New( 40,;
Max( ( nWidth / 2 ) - nMetaWidth, 10 ),;
nHeight,;
Min( ( nWidth / 2 ) + nMetaWidth, nWidth - 20 ) )

[Enrico Maria Giordano]

Thank you, Antonio!

EMG