FOLDEREX ON PAINT -> TFolderEx() how ?

FOLDEREX ON PAINT -> TFolderEx() how ?

Postby Jimmy » Fri May 19, 2023 5:57 pm

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 )
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: FOLDEREX ON PAINT -> TFolderEx() how ?

Postby Marc Venken » Fri May 19, 2023 6:53 pm

Sample of on Paint ?

TestFX1
Marc Venken
Using: FWH 23.04 with Harbour
User avatar
Marc Venken
 
Posts: 1425
Joined: Tue Jun 14, 2016 7:51 am
Location: Belgium

Re: FOLDEREX ON PAINT -> TFolderEx() how ?

Postby Jimmy » Fri May 19, 2023 9:36 pm

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
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1725
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 37 guests