Page 1 of 1

Preview error (fixed)

Posted: Thu Nov 24, 2005 4:19 am
by 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)

Re: Preview error

Posted: Thu Nov 24, 2005 7:30 am
by 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

#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

Posted: Thu Nov 24, 2005 7:40 am
by 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,

Posted: Thu Nov 24, 2005 8:59 am
by Johnny Yiu
Antonio,

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

Posted: Thu Nov 24, 2005 1:21 pm
by Enrico Maria Giordano
Antonio Linares wrote: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

Posted: Thu Nov 24, 2005 5:39 pm
by Antonio Linares
Enrico,

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

Posted: Thu Nov 24, 2005 5:49 pm
by Enrico Maria Giordano
Thank you!

EMG

Posted: Sat Nov 26, 2005 6:12 am
by 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 ) )