FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Loss resources in preview
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
Loss resources in preview
Posted: Tue Dec 16, 2014 10:34 AM
Hi,

Example

Code (fw): Select all Collapse
#include 'fivewin.ch'

STATIC oWnd 

*--------------
FUNCTION Main()
*--------------
    LOCAL oBar, oBtn, oBtnRpt, oMenu, oRptDsg
    
    DEFINE WINDOW oWnd TITLE 'Version: ' + FWVERSION

        DEFINE BUTTONBAR oBar SIZE 30, 30 _3D OF oWnd
        DEFINE BUTTON oBtn OF oBar NAME '' ACTION Test_Prn()

    ACTIVATE WINDOW oWnd
    
    
RETU NIL


*-------------------------
STATIC FUNCTION Test_Prn()
*-------------------------

    LOCAL oPrn := PrintBegin( 'test' , .F., .T.,, .f., .f. )
    

    PAGE
       oPrn:Say( 20, 20, "This 1 is a test in Landscape" )
    ENDPAGE
    PAGE
       oPrn:Say( 20, 20, "This 2 is a test in Landscape" )
    ENDPAGE
    PAGE
       oPrn:Say( 20, 20, "This 3 is a test in Landscape" )
    ENDPAGE

    ENDPRINT

RETU NIL


When i run the preview and close it (maybe I should do it more than once ...) the buttonbar appears all black, as if lost some brush, resource ... Someone has happened and found a solution?

Before execute preview


After execute preview
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Loss resources in preview
Posted: Tue Dec 16, 2014 10:48 AM
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion