I can only confirm your problem and add a question:
What is wvg_InvalidateRect?
*# compile using hbmk2 wvg01.prg -gtwvg -gui
REQUEST HB_GT_WVG_DEFAULT
REQUEST HB_GT_WVG
#INCLUDE "HBGTINFO.CH"
function main
set color to "N/W,N/BG,,,N/W*"
cls
SETMODE(25,80)
Myfunction()
return
function Myfunction()
Local SvE := SaveScreen (0 , 0, Maxrow(),MaxCol())
Local wvtScr := Wvt_SaveScreen( 0, 0, MaxRow(), MaxCol() )
cls
wvg_BoxRaised ( 02,01,17,77, {-5,-5,5,5} )
wvg_BoxRecessed( 02,01,17,77 )
wvg_BoxRaised ( 03,02,16,76 )
wvg_BoxRaised ( 19,01,22,44, {-5,-5,5,5} )
wvg_BoxRecessed( 19,01,22,44 )
wvg_BoxRaised ( 19,47,22,77, {-5,-5,5,5} )
wvg_BoxRecessed( 19,47,22,77 )
wvg_InvalidateRect( 0, 0, maxrow(), maxcol() )
wait
Clear TypeAhead
RestScreen ( 0 , 0, Maxrow(),MaxCol(), SvE)
Wvt_RestScreen( 0, 0, MaxRow(), MaxCol(), wvtScr )
Release aDCol,aDColSayPict,aDEnteCol
wait
Return
2010/5/31 Aoudia <yaam...@yahoo.fr>
> I converted an old application written in clipper and I used the gtwvg
> library
> and particularly the Wvg_BoxRaised Wvg_BoxRecessed functions to give a
> graphic
> look for my application. I got excellent results only I can not erase the
> boxes
> drawn with wvg_box... when I return to the main menu: the boxes stay on the
> screen. It seems to me that RestScreen() does not work the same way as with
> clipper. Here is a portion of my code:
> I thank you in advance for your assistance
> My function()
> Local SvE := SaveScreen (0 , 0, Maxrow(),MaxCol())
> Local wvtScr := Wvt_SaveScreen( 0, 0, MaxRow(), MaxCol() )
> cls
> .
> .
> .
> wvg_BoxRaised ( 02,01,17,77, {-5,-5,5,5} )
> wvg_BoxRecessed( 02,01,17,77 )
>
> wvg_BoxRaised ( 03,02,16,76 )
>
> wvg_BoxRaised ( 19,01,22,44, {-5,-5,5,5} )
> wvg_BoxRecessed( 19,01,22,44 )
>
> wvg_BoxRaised ( 19,47,22,77, {-5,-5,5,5} )
> wvg_BoxRecessed( 19,47,22,77 )
> wvg_InvalidateRect( 0, 0, maxrow(), maxcol() )
> DBEDIT(3,02,16,76,aDCol,fon,aDColSayPict,aDEnteCol, 'ÂÄ','³',)
> Close DataBases
> Clear TypeAhead
> RestScreen ( 0 , 0, Maxrow(),MaxCol(), SvE)
> Wvt_RestScreen( 0, 0, MaxRow(), MaxCol(), wvtScr )
> Release aDCol,aDColSayPict,aDEnteCol
> Return
>
>
>
> _______________________________________________
> Harbour-users mailing list (attachment size limit: 40KB)
> Harbour-users@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour-users
>
--
Massimo Belgrano
Iscritto all'albo dei CTU presso il Tribunale di Novara per materia
Informatica
Delta Informatica S.r.l. (http://www.deltain.it/) (+39 0321 455962)
Analisi e sviluppo software per Lan e Web - Consulenza informatica -
Formazione
_______________________________________________
Harbour-users mailing list (attachment size limit: 40KB)
Harbour-users@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour-users
