Preview problem with win xp, after review and return to the dialog display is frozen on the background of dialogue, working with FWH 14.2. With win7 all doing well.
How to prevent the image freezes on the screen.
Thanks for your help

Davor,

Could you post a screenshot ?

What controls are being used in the background window ?

Could you also post the source code that you are using to create it ? thanks

Antonio
This problem occurs in all my programs on Win XP (not in win 7 or and that in cases where the report has multiple pages (10-15). The problem is not the answer in previous versions FWH 11.3 until recently that I used in the same program.
Thanks.

include "FiveWin.ch"

include "Report.ch"

static oWnd

//----------------------------------------------------------------------------//
function Main()
DEFINE WINDOW oWnd FROM 1,1 To 22,75 TITLE "This is a MDI enviroment" MDI VSCROLL
ACTIVATE WINDOW oWnd ON INIT CreateChild() MAXIMIZED
return nil

//----------------------------------------------------------------------------//
function CreateChild()
local oWndC, oIcon, oDlg, bOk1, bOk2
DEFINE ICON oIcon RESOURCE "test"
DEFINE WINDOW oWndC NOMAXIMIZE MDICHILD OF oWnd FROM 0,0 TO 20,40 ICON oIcon
oWndC:bGotFocus = {||oDlg:SetFocus()} // Sempre coloca o foco no Dialog
oWndC:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd = oDlg
DEFINE DIALOG oDlg OF oWndC STYLE WS_CHILD
@ 0,0 BUTTON bOk1 PROMPT "&RPreview" SIZE 49,17 ACTION (odlg:disable(),DoReport(),odlg:enable(),odlg:refresh())
@ 2,0 BUTTON bOk2 PROMPT "&Sair" SIZE 49,17 ACTION oDlg:End()
oWndC:Center()
ACTIVATE DIALOG oDlg NOWAIT RESIZE16 VALID iif(!GetKeyState( 27 ), oWndC:End(), .F.)
ACTIVATE WINDOW oWndC VALID MsgYesNo( "Want to close it ?" )
return nil

//----------------------------------------------------------------------------//
function DoReport()
local oReport

USE Customer
INDEX ON Field->State+Field->City TO CustStCt
SET INDEX TO CustStCt
REPORT oReport ;
TITLE " LISTADO DE PRUEBA ","","FiveTech Software","" ;
HEADER "Fecha: "+dtoc(date())+space(44)+"Hora: "+time() ;
FOOTER "P gina: "+str(oReport:nPage,3) PREVIEW
GROUP ON Customer->State ;
HEADER " " ;
FOOTER "Total Estado "+oReport:aGroups[1]:cValue
COLUMN TITLE "ST" ;
DATA Customer->State
COLUMN TITLE "City" ;
DATA Customer->City ;
SIZE 30
COLUMN TITLE "First Name","Last Name" ;
DATA Customer->First, Customer->Last ;
SIZE 30
COLUMN TITLE " Salary" ;
DATA Customer->Salary ;
PICTURE "9,999,999" ;
SIZE 9 ;
TOTAL
END REPORT
ACTIVATE REPORT oReport ON STARTPAGE Tone( 100, 1 )
USE

RETURN NIL

Try not to create the dialog:

function CreateChild()
local oWndC, oIcon, oDlg, bOk1, bOk2
DEFINE ICON oIcon RESOURCE "test"
DEFINE WINDOW oWndC NOMAXIMIZE MDICHILD OF oWnd FROM 0,0 TO 20,40 ICON oIcon
oWndC:bGotFocus = {||oDlg:SetFocus()} // Sempre coloca o foco no Dialog
oWndC:SetColor(GetSysColor(8),GetSysColor(15)) // faz Cor da oWnd = oDlg
// DEFINE DIALOG oDlg OF oWndC STYLE WS_CHILD
@ 0,0 BUTTON bOk1 PROMPT "&RPreview" SIZE 49,17 ACTION (odlg:disable(),DoReport(),odlg:enable(),odlg:refresh())
@ 2,0 BUTTON bOk2 PROMPT "&Sair" SIZE 49,17 ACTION oDlg:End()
oWndC:Center()
// ACTIVATE DIALOG oDlg NOWAIT RESIZE16 VALID iif(!GetKeyState( 27 ), oWndC:End(), .F.)
ACTIVATE WINDOW oWndC VALID MsgYesNo( "Want to close it ?" )
return nil

Antonio,
If I add a MODAL command in line 55 of the program appears to me this error
rpt1.prg(55) Error E0030 Syntax error: "syntax error at 'REPORT'"
thx Davor

Antonio
Thanks for your help, in case you are printing from a dialogue with win xp remains the same mistake. In a lot of programs I often use dialog from where I work report and there is a problem with the frozen image.
This problem did not answer before, when am used FWH 11.03, but now it appeared when I upgraded FWH 11.3 from 14.2. so it is not clear whether I am wrong somewhere when using FWH 14.2.
Thank you for your understanding and help.

Davor,

Could you place some MsgInfo()s before you start the report, and later on when it is finished ? Use several MsgInfo()s, so you can trace every x lines of source code.

The idea is to find the code that generates that error on XP, thanks

See this same problem here:

viewtopic.php?f=3t=27354p=152355#p152355

&&

Oscar,
Thanks for your help now everything works ok.
I added a command to the program

TPreview():lListViewHide := .T.

Greetings .

This problem really exists in newer versions of Fivewin (Printer).

Oscar,
Now the preview on the screen is ok, but it occurs poblem if one wants to watch two page views then the following error occurs, what is the problem?
thanks Davor.

Application

Path and name: D:\FWH\clipper\odwinx.exe (32 bits)
Size: 2,919,936 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903)
FiveWin Version: FWHX 13.12
Windows version: 6.1, Build 7601 Service Pack 1

Time from start: 0 hours 0 mins 11 secs
Error occurred at: 25/04/2014, 12:13:44
Error description: Error BASE/1004 Class: 'NIL' has no exported method: HIDE
Args:
[ 1] = U

Stack Calls

Called from: => HIDE( 0 )
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:TWOPAGES( 1013 )
Called from: .\source\classes\RPREVIEW.PRG => (b)TPREVIEW:BUILDBUTTONBAR( 324 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 476 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 667 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1470 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
Called from: => SYSREFRESH( 0 )
Called from: .\source\function\MSGRUN.PRG => STOPUNTIL( 60 )
Called from: .\source\classes\RPREVIEW.PRG => TPREVIEW:ACTIVATE( 155 )
Called from: .\source\classes\RPREVIEW.PRG => RPREVIEW( 1797 )
Called from: .\source\classes\PRINTER.PRG => (b)TPRINTER:TPRINTER( 252 )
Called from: => TPRINTER:PREVIEW( 0 )
Called from: .\source\classes\PRINTER.PRG => PRINTEND( 1052 )
Called from: ODWINX.prg => ODVR1( 1578 )
Called from: ODWINX.prg => ODOBR11( 1864 )
Called from: ODWINX.prg => (b)ODVR11( 1762 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 476 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 667 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1470 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 274 )
Called from: ODWINX.prg => ODVR11( 1770 )
Called from: ODWINX.prg => (b)BUILDMENU( 33 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 463 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1050 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 255 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1003 )
Called from: ODWINX.prg => MAIN( 423 )

System

CPU type: AMD Athlon(tm) II P340 Dual-Core Processor 2200 Mhz
Hardware memory: 2812 megs

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

Windows total applications running: 7
1 ,
2 , C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.17514_none_41e697
3 , C:\Windows\system32\SHELL32.dll
4 , C:\Windows\system32\SHLWAPI.dll
5 , D:\FWH\clipper\odwinx.exe
6 DDE Server Window, C:\Windows\system32\OLE32.DLL
7 TouchPad object helper window, D:\FWH\clipper\freeimage.dll

Variables in use

Procedure Type Value
==========================
HIDE
Local 1: A Len: 0
Local 2: U
Local 3: U
TPREVIEW:TWOPAGES
Local 1: L .F.
Local 2: O Class: TPREVIEW
(b)TPREVIEW:BUILDBUTTONBAR
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 18
Param 2: N 7
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1179655
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 1179655
Local 1: O Class: TBTNBMP
FWH
Param 1: N 1179655
Param 2: N 514
Param 3: N 0
Param 4: N 1179655
Param 5: N 30
Local 1: O Class: TBTNBMP
SYSREFRESH
STOPUNTIL
Param 1: B {|| ... }
TPREVIEW:ACTIVATE
Local 1: O Class: TPREVIEW
RPREVIEW
Param 1: O Class: TPRINTER
Local 1: U
Local 2: O Class: TPREVIEW
(b)TPRINTER:TPRINTER
Param 1: O Class: TPRINTER
TPRINTER:PREVIEW
PRINTEND
ODVR1
Param 1: N 1
Param 2: N 3
Local 1: N 0
Local 2: N 0
Local 3: N 0
Local 4: N 0
Local 5: O Class: TFONT
Local 6: O Class: TFONT
Local 7: O Class: TFONT
Local 8: O Class: TFONT
Local 9: O Class: TFONT
Local 10: O Class: TPEN
Local 11: O Class: TPEN
Local 12: O Class: TPRINTER
Local 13: N 10.6
Local 14: N 0
Local 15: N 0
Local 16: N -1000.00
Local 17: N 0
Local 18: N 0
Local 19: N 0
Local 20: N 0
Local 21: C "Kom-past d.o.o. "
Local 22: C "HR1123600001101217601 "
Local 23: C "Krapina, Zrinskog i Frankopana 10"
Local 24: N 0
Local 25: N 7.7
Local 26: A Len: 0
Local 27: A Len: 0
Local 28: A Len: 0
Local 29: N 1
Local 30: A Len: 9
Local 31: A Len: 9
Local 32: N 28
Local 33: N 3
Local 34: N 0
Local 35: N 44022.18
Local 36: N 0
ODOBR11
Param 1: N 1
Param 2: N 0
Local 1: N 3
(b)ODVR11
Param 1: O Class: TBTNBMP
TBTNBMP:CLICK
Local 1: O Class: TBTNBMP
TBTNBMP:LBUTTONUP
Param 1: N 11
Param 2: N 14
Param 3: O Class: TBTNBMP
Local 1: U
Local 2: L .T.
TCONTROL:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 720910
Local 1: O Class: TBTNBMP
Local 2: U
TBTNBMP:HANDLEEVENT
Param 1: N 514
Param 2: N 0
Param 3: N 720910
Local 1: O Class: TBTNBMP
_FWH
Param 1: N 720910
Param 2: N 514
Param 3: N 0
Param 4: N 720910
Param 5: N 20
Local 1: O Class: TBTNBMP
DIALOGBOXINDIRECT
Param 1: N 4194304
Param 2: C " ϐ
  Ă
-
D A T O T E K A - R A D N I H J E D I N I C A 6 P
 ~
l S T A T I C `
i f r a r a d n e j e d i n i c e ‚ P U    m E D I T 0 P
! ‡
n S T A T I C N a z i v r a d n e j e d i n i c e : €€P U  ‚  o E D I T P
/ <
p S T A T I C D j e l a t n i k : ‚ P U - (  q E D I T 0 €€P € - d  r E D I T
P r
- 7  s T B T N B M P P
ú 5  t S T A T I C G o t o v o : P U ú
 u T M E T E R "
Param 3: N 10225184
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Param 11: L .F.
Local 1: O Class: TDIALOG
Local 2: N 10225184
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
ODVR11
Local 1: U
Local 2: U
Local 3: U
Local 4: O Class: TDIALOG
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: O Class: TBTNBMP
Local 10: U
Local 11: C " "
Local 12: C " "
Local 13: C " "
Local 14: O Class: TGET
Local 15: O Class: TGET
Local 16: O Class: TGET
Local 17: O Class: TGET
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20015
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20015
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20015
Local 4: N 0
TMDIFRAME:COMMAND
Param 1: N 20015
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: L .F.
TMDIFRAME:HANDLEEVENT
Param 1: N 273
Param 2: N 20015
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20015
Param 4: N 0
Param 5: N 1
Local 1: O Class: TMDIFRAME
WINRUN
Param 1: N 10225184
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: B {|| ... }
Param 6: U
Param 7: U
Param 8: U
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: O Class: TBRUSH
Local 2: O Class: TBAR
Local 3: O Class: TCURSOR
Local 4: U

Linked RDDs

ADS
ADT
ADSVFP
ADSCDX
ADSNTX
DBF
DBFFPT
DBFBLOB
DBFCDX

DataBases in use

1: KART RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
13 12 .F. .T.

 Indexes in use                        TagName
    => STR(kart->broj)+STR(KART->GODIS)+STKARTA
       STR(kart->broj)+STR(KART->GOD)+STR(KARTB

 Relations in use

2: OSN RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.

 Indexes in use                        TagName

 Relations in use

3: OPCINA RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 3 .F. .F.

 Indexes in use                        TagName
    => opcina->s_kred                     OPCINA

 Relations in use

4: DOPR RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
8 8 .F. .F.

 Indexes in use                        TagName
    => DOPR->B_DOP                        DOPR

 Relations in use

5: VK RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 12 .F. .F.

 Indexes in use                        TagName
    => vk->vp                             VKX

 Relations in use

6: KRED RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
5 15 .F. .F.

 Indexes in use                        TagName
    => kred->s_kred                       KRED

 Relations in use

7: K1 RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
4 301 .F. .F.

 Indexes in use                        TagName
    => str(k1->broj)+str(K1->s_kred)+k1->pK1

 Relations in use

8: STIM RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
3 2 .T. .T.

 Indexes in use                        TagName
    => STIM->broj                         STIM

 Relations in use

9: MATD RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
9 8 .T. .T.

 Indexes in use                        TagName
    => matd->BROJ                         MATD
       matd->IME                          MATD1

 Relations in use

10: ORG RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
5 4 .T. .T.

 Indexes in use                        TagName
    => org->oour                          ORG

 Relations in use

11: RADNA RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 4 .F. .F.

 Indexes in use                        TagName

 Relations in use

12: VRBA RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
4 3 .T. .T.

 Indexes in use                        TagName
    => vrba->oour                         VRBA

 Relations in use
             1: TO vrba->oour INTO ORG

13: STAZ RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 209 .F. .F.

 Indexes in use                        TagName

 Relations in use

14: JOPPD RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 4 .F. .F.

 Indexes in use                        TagName

 Relations in use

15: OBUST RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 12 .F. .F.

 Indexes in use                        TagName

 Relations in use

16: => NETO RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
5 4 .F. .T.

 Indexes in use                        TagName
    => str(neto->oour)+neto->ime          NETOX

 Relations in use
             1: TO NETO->BROJ INTO MATD
             2: TO neto->oour INTO VRBA
             3: TO neto->broj INTO STIM
             4: TO neto->oour INTO ORG

17: ODOBR RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
6 11 .F. .F.

 Indexes in use                        TagName
    => str(odobr->broj)+str(odobr->bbo)   OBRX

 Relations in use
             1: TO ODOBR->VP INTO VK

18: REKAP RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.

 Indexes in use                        TagName

 Relations in use

Classes in use:

 1 ERROR
 2 HASHENTRY
 3 HBCLASS
 4 HBOBJECT
 5 TWINDOW
 6 TCONTROL
 7 TGET
 8 TPREVIEW
 9 TFONT
10 TBRUSH
11 TMDIFRAME
12 TMENU
13 TMENUITEM
14 TMDICLIENT
15 TCURSOR
16 TBAR
17 TRECT
18 TBTNBMP
19 TMSGBAR
20 TMSGITEM
21 TTIMER
22 TGIF
23 TDIALOG
24 TICON
25 TSAY
26 GET
27 TCLIPGET
28 TMETER
29 TBUTTON
30 TBUTTONBMP
31 TPRINTER
32 TPEN
33 TSCROLLBAR
34 TMETAFILE
35 TCOMBOBOX
36 TREG32

Memory Analysis

  233 Static variables

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