FOLDEREX ON PAINT -> TFolderEx() how ?

[Jimmy]

hi,

which Parameter of TFolderEx() :New() are

ON PAINT TAB
ON PAINT TEXT

=> ;
[<oFolder> := ] TFoldereX():New( <nRow>, <nCol>, <nWidth>, <nHeight>,;
<oWnd>, [\{<cbmps>\}], <.lPixel.>, <.lDesign.>, [\{<cPrompt>\}], ;
<ntabheight>, [\{<cnHelpids>\}], <nRound>, [{|nOption, nOldOption, Self | <uChange>}],;
[{|Self,nOption| <uPaint>}], [{|Self,nOption| <uPaintxt>}], ;
[\{<nAlign>\}], <.lAdjust.>, <nSep>, <nOption>, [{|Self,nOption| <upop>}],;
<.lStretch.>, [ Upper(<(layout)>) ], [{|Self,nOption| <uAction>}], <nBright>,;
<.lAnimate.>, [<nSpeed>], <oFont>, <.lTransparent.>, [\{<cDlgsName>\}], ;
<.lBorder.>, <nClrPane>, [<(oFolder)>] )

Code: Select all  Expand view

     oTab_Left  := TFolderEx() :New( 40 + nBB, 1, ( nWidth / 2 ) - 05, nHeight - 180 - nBB, oMain, ;
                               aBitmaps, lPixel, lDesign, aPrompts, nFolderHeight, ;
                               aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ;
                               lAdjust, nSeparator, nOption, bPopUp, lStretch, ;
                               cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ;
                               lTransparent, aDialogs, lBorder, nClrPane, cVarName )

[Marc Venken]

Sample of on Paint ?

TestFX1

[Jimmy]

hi

thx for Answer.

i have compile run sample and look into PPO CODE

  oFld := TFoldereX():New( 3, 3,,,,;
        {aBitmaps}, .T., .F., {"&Social", "&OS", "&Games", "&Movies", "&Email", "Mo&nths", "Se&tting", "E&xit"},,;
        ,, {|nOption, nOldOption, Self | ( If( nOption == 8, If( MsgYesNo( "Do you want exit??" ),  oWnd:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) )}, {|Self,nOption| PaintTab( Self, nOption )}, {|Self,nOption| ( If( nOption == ::nOption .AND. nOption == 2, 65535, 0 ) )}, {0, 0, 0, 0, 0, 0, 0, 1},;
        .T.,, 2, {|Self,nOption| MenuTabs( Self, nOption )}, .F.,;
        Upper("TOP"), {|Self,nOption| ( If( nOption == 8, oWnd:End(),  MsgInfo( "Action defined to " + StrTran( ::aPrompts[ nOption ], "&", "" ) ) ) )},, .T., 50,,;
       .F.,, .F.,, "oFld" )

this i compare with Parameter in my CODE

oTab_Left := TFolderEx() :New( 40 + nBB, 1, ( nWidth / 2 ) - 05, nHeight - 180 - nBB, oMain, ;
aBitmaps, lPixel, lDesign, aPrompts, nFolderHeight, ;
aHelps, nRound, bAction, bClrTabs, bClrText, aAlign, ;
lAdjust, nSeparator, nOption, bPopUp, lStretch, ;
cLayOut, bBmpAction, nBright, lAnimate, nSpeed, oFontDefault, ;
lTransparent, aDialogs, lBorder, nClrPane, cVarName )

so

Code: Select all  Expand view

ON PAINT TAB  -> bClrTabs
ON PAINT TEXT -> bClrText