fwh 14.2 print preview issue with win xp

[davor0501]

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

[Antonio Linares]

Davor,

Could you post a screenshot ?

What controls are being used in the background window ?

[davor0501]

[img]c:\slika.jpg[/img]
Antonio,
It is a view after printing

[davor0501]

Antonio, this is photo. Thx for help.

[Antonio Linares]

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

[davor0501]

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

[Antonio Linares]

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

[davor0501]

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

[davor0501]

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.

[Antonio Linares]

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

[davor0501]

Antonio, i sending screen shoot



program rep01.prg

#include "FiveWin.ch"
#include "report.ch"

request DBFCDX

STATIC oReport

function main()
local odlg
USE TEST NEW VIA "DBFCDX"
define dialog odlg size 600,400 pixel
@10,10 BUTTON "&Print" OF oDlg SIZE 40, 13 ACTION rep01() pixel
@40,10 button "&Exit" OF oDlg SIZE 40, 13 ACTION odlg:end() pixel
activate dialog odlg centered
close all
return nil

Function Rep01()


go top
REPORT oReport TITLE "*** My First Report ***" PREVIEW

COLUMN TITLE "St" DATA Test->State
COLUMN TITLE "First Name" DATA Test->First,TEST->LAST,test->street
COLUMN TITLE " Salary" DATA Test->Salary

END REPORT

oReport:CellView()

ACTIVATE REPORT oReport

RETURN NIL




These are the screens to be viewed through xp
First screen of the dialogue from which the call report
Second screen is a preview base
Third screen is back from the preview on it is frozen Review
This happens only with xp in the case when the list has more than 10-15 pages,
If the program is compiled with FWH 11.3 until recently that I used everything is ok,
This happens only when compiling programs with FWH 14.2 and win xp.
Thanks for your help

[ORibeiro]

See this same problem here:

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

[davor0501]

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

TPreview():lListViewHide := .T.

Greetings .

[ORibeiro]

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

[davor0501]

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