FWH 7.09 TPreview Class

Surasak · Post by **Surasak** » Mon Sep 17, 2007 4:58 am

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

Post by **Antonio Linares** » Mon Sep 17, 2007 6:50 am

> 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

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 · Post by **Surasak** » Mon Sep 17, 2007 2:16 pm

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

Post by **Antonio Linares** » Mon Sep 17, 2007 4:13 pm

Is MDI the main window of your application ?

Surasak · Post by **Surasak** » Mon Sep 17, 2007 4:20 pm

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

Post by **Antonio Linares** » Mon Sep 17, 2007 4:50 pm

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

Code: Select all

#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 · Post by **Surasak** » Mon Sep 17, 2007 5:18 pm

Have no error but preview windows still not maximized.

Post by **Antonio Linares** » Mon Sep 17, 2007 5:38 pm

Fixed. Please download FWH 7.09 again

Thanks for your feedback

Surasak · Post by **Surasak** » Tue Sep 18, 2007 3:02 am

It work fine,

Thank you very much.