TPages from source

[StefanHaupt]

Hi,

is anyone using the tpages-class creating pages from source ?

I have great problems creating a page control and placing controls on the page. The coordinates (nTop,nLeft,nBottom,nRight) does not seem to be pixel coordinates nor text coordinates.

Code: Select all  Expand view  RUN

DEFINE DIALOG oDlg FROM  0, 0 TO 690,910 TITLE 'Event' PIXEL ;
          FONT oFnt1 COLOR CLR_BLACK,CLR_HGRAY

oPage := TPages():New(0,0, oDlg:nHeight-20,oDlg:nWidth, oDlg)


the sample above creates a page which is greater than the dialog itself. Why ?

Do I miss something ?

Stefan

[Enrico Maria Giordano]

Try adding

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg;
         ON INIT oPage:Move( 0, 0, oDlg:nHeight-20, oDlg:nWidth )

EMG

[StefanHaupt]

Enrico,

thanks for your tip, but it does not work.

The result is, that the height of the page is greater than the height of the dialog and the width is smaller than the dialog width

I tried to insert a picture here, but I did not succeed. How can insert picture from the local disk ?

What now?

Stefan

[Antonio Linares]

Stefan,

There is a small typo in Enrico's code:

Code: Select all  Expand view  RUN

ACTIVATE DIALOG oDlg;
         ON INIT oPage:Move( 0, 0, oDlg:nWidth, oDlg:nHeight-20 )

[StefanHaupt]

Antonio,

It´s working now

thanks


kind regards
Stefan

[Enrico Maria Giordano]

There is a small typo in Enrico's code:

Sorry.

EMG