xBrowse Pyjama-effect and defined Textcolors ?

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

xBrowse Pyjama-effect and defined Textcolors ?
Posted: Tue Jul 26, 2011 06:00 PM

Hello,

I have a Problem, switching between Pyjama-effect and back to normal defined Textcolor.

The start-screen :

Changing to Pyjama-effect and back to defined Textcolor uses the Pyjama-text-colors.
The background-change works.

The switch-function :

Code (fw): Select all Collapse

FUNCTION PYJAMA()
LOCAL I := 1, aClrCol := { { nTColorF, nTColorB }, { nTColorB, nTColorF } } 

IF nLSwitch = 2 // Pyjama-effect
    oBrw1:SetBackGround()
    FOR I := 1 TO LEN( oBrw1:aCols )
        oBrw1:aCols[I]:bClrStd := { || aClrCol[ oBrw1:KeyNo % 2 + 1 ] } 
    NEXT
ELSE
    // select Background
    BRW_BRUSH( oBrw1, nTStyle, lTGrad, nTColorF, nTColorB, nTGradPos, cTBrush, cTImage )
    // Return to Textcolor
    oBrw1:bClrStd = { || { nTColor2, } } // Doesn't work !!!!

    // That works : closing and reopen the Preview-dialog
    // oDlgBrw:End()
    // lBrwOpen := .T.
    // SHOW_BRW(oDlgMain) 
ENDIF

RETURN( NIL )

Best Regards
Uwe

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

FiveTech Support Forums

Continue the discussion