FWH 7.09 TPreview Class

[Surasak]

1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version.
2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09
3. Have any problem when use application create by FWH 7.09 in windows VISTA

[Antonio Linares]

> 1. In FWH 7.09 when I use PRINT command by prev32.dll the preview windows not MAXIMIZED How can I active this with MAXIMIZED like the old version.

Please download FWH 7.09 again

> 2. Please give me the detail and sameple of avantage feature for TPREVIEW class in FWH 7.09

You can have as many previews simultaneously as you may need. i.e.:

Code: Select all  Expand view  RUN

PRINT oPrn1 PREVIEW
   PAGE
      oPrn1:Say( 2, 2, "Test" )
   ENDPAGE
ENDPRINT

MsgInfo( "one" )

PRINT oPrn2 PREVIEW
   PAGE
      oPrn2:Say( 2, 2, "Test" )
   ENDPAGE
ENDPRINT

MsgInfo( "two" )

PRINT oPrn3 PREVIEW
   PAGE
      oPrn3:Say( 2, 2, "Test" )
   ENDPAGE
ENDPRINT

MsgInfo( "three" )


> 3. Have any problem when use application create by FWH 7.09 in windows VISTA
We do all our tests in Vista and in XP. No problems in Vista.

[Surasak]

I just download the last update for maximized the preview windows but found error

Application
===========
Path and name: C:\ProjectH\Test\test.exe (32 bits)
Size: 1,080,320 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 09/17/07, 21:11:01
Error description: Error BASE/1004 No exported method: OWNDCLIENT
Args:
[ 1] = U

Stack Calls
===========
Called from: => OWNDCLIENT(0)
Called from: => TMDICHILD:NEW(0)
Called from: => TPREVIEW:BUILDWINDOW(0)
Called from: => TPREVIEW:NEW(0)
Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW(0)
Called from: .\source\classes\PRINTER.PRG => (b)TPRINTER(0)
Called from: => TPRINTER:PREVIEW(0)
Called from: .\source\classes\PRINTER.PRG => PRINTEND(0)
Called from: test.prg => MAIN(9)

System
======
CPU type: Intel(R) Pentium(R) M processor 1.70GHz 1700 Mhz
Hardware memory: 503 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: Harbour devel build 1.1-1 Intl.
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 0

Variables in use
================
Procedure Type Value
==========================
OWNDCLIENT
Local 1: U
TMDICHILD:NEW
Param 1: N 0
Param 2: N 0
Param 3: N 24
Param 4: N 80
Param 5: C "FiveWin Report"
Param 6: N 318701568
Param 7: O Class: TMENU
Param 8: U
Param 9: O Class: TICON
Param 10: L .T.
Param 11: N 0
Param 12: N 12632256
Param 13: U
Param 14: U
Param 15: L .F.
Param 16: L .T.
Param 17: U
Param 18: C "SINGLE"
Param 19: L .T.
Param 20: L .T.
Param 21: L .T.
Param 22: L .T.
Param 23: U
Local 1: O Class: TMDICHILD
Local 2: S
Local 3: O Class: TMDICHILD
TPREVIEW:BUILDWINDOW
Local 1: O Class: TPREVIEW
Local 2: U
Local 3: O Class: TICON
Local 4: C "FiveWin Report"
Local 5: U
Local 6: N 4194304
Local 7: O Class: TPREVIEW
Local 8: S
Local 9: O Class: TPREVIEW
TPREVIEW:NEW
Param 1: O Class: TPRINTER
Local 1: O Class: TPREVIEW
RPREVIEW
Param 1: O Class: TPRINTER
Local 1: U
(b)TPRINTER
Param 1: O Class: TPRINTER
TPRINTER:PREVIEW
PRINTEND
MAIN

Linked RDDs
===========
DBF
DBFFPT
DBFBLOB
DBFNTX

DataBases in use
================

Classes in use:
===============
1 ERROR
2 HBCLASS
3 HBOBJECT
4 TPRINTER
5 TPREVIEW
6 TWINDOW
7 TCONTROL
8 TICON
9 TBRUSH
10 TFONT
11 TMDICHILD
12 TMENU
13 TMENUITEM
14 TREG32

Memory Analysis
===============
82 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


[Antonio Linares]

Is MDI the main window of your application ?

[Surasak]

I use your sample below and also testpre2.prg and all of my source with printer command

#include "FiveWin.ch"

function Main()
local oPrn1,oPrn2,oPrn3

PRINT oPrn1 PREVIEW
PAGE
oPrn1:Say( 2, 2, "Test" )
ENDPAGE
ENDPRINT

MsgInfo( "one" )

PRINT oPrn2 PREVIEW
PAGE
oPrn2:Say( 2, 2, "Test" )
ENDPAGE
ENDPRINT

MsgInfo( "two" )

PRINT oPrn3 PREVIEW
PAGE
oPrn3:Say( 2, 2, "Test" )
ENDPAGE
ENDPRINT

MsgInfo( "three" )
return nil

[Antonio Linares]

Please download FWH 7.09 again and test it this way. Click several times on the main window:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   DEFINE WINDOW oWnd TITLE "Click Me"
   
   ACTIVATE WINDOW oWnd ;
      ON CLICK PrintPV()

return nil

function PrintPV()

   local oPrn

   PRINT oPrn PREVIEW
      PAGE
         oPrn:Say( 2, 2, "Test" )
      ENDPAGE
   ENDPRINT

return nil


[Surasak]

Have no error but preview windows still not maximized.

[Antonio Linares]

Fixed. Please download FWH 7.09 again

Thanks for your feedback

[Surasak]

It work fine,

Thank you very much.