Preview error (fixed)

[Johnny Yiu]

The latest preview do not work correctly on some page size. The problem is on startup the page are hidden one have to press the zoom/unzoom button to display it.

I am using 21.15 x 14.00
::oPrn:setsize(2150,1400)

[Enrico Maria Giordano]

I confirm the problem (but I'm currently still using FWH 2.6) even with A4 page size. Sample:

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]

Enrico,

I just modified USE C:\XHARBOUR\TEST into USE customer and executed your sample at FWH\samples directory and it worked ok.

I am using 800x600. What screen resolution do you use ? thanks,

[Johnny Yiu]

Antonio,

If the screen resolution is greater than 1024 x 768 it show the problem.

[Enrico Maria Giordano]

Enrico,

I just modified USE C:\XHARBOUR\TEST into USE customer and executed your sample at FWH\samples directory and it worked ok.

I am using 800x600. What screen resolution do you use ? thanks,

Can you try using xHarbour's TEST.DBF? Anyway, I'm using 1280 x 1024 as desktop resolution.

EMG

[Antonio Linares]

Enrico,

Ok, using 1280 x 1024 I get the error. We are going to review it asap.

[Enrico Maria Giordano]

Thank you!

EMG

[Antonio Linares]

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 ) )