FiveTech Software tech support forums

hi Antonio, oMain:bResized = { || oMain:oClient:Adjclient() } ok, thx but how to resize Child Control "on Area" :?: have 2 x TFolder() and on its "Area" are some Control when use SPLITTER i can "see" that "Area" ...

Dear Jimmy,

oMain:bResized = { || oMain:oClient:Adjclient() }

hi, i found Method AdjClient() which "seems" to do the Job but how to call it :?:      @  0, nWidth/2 SPLITTER oSplit ;              VERTICAL ;              PREVIOUS CONTROLS oTab_Left ;              HINDS CONTROLS oTab_Right ...

... and have another xbrowse on bottom each folder can be close from label ( see the red x on label) how create it ? I made a test but it make a adjclient error on resize     #include "FiveWin.ch"    static oWnd,oBar,oExit    static oMsgItem3,oMsgItem2,cMsgBar  ...

Leandro,

Prueba asi:

ACTIVATE WINDOW oWHiCt MAXIMIZED ON RESIZE( oExpBCtra:AdjLeft(), oSplitV:AdjClient(), oSplitV:AdjRight() ) ;
VALID( oBrw:End(), oRsDocfac:close(),oBtn16:enable(),.t. )

... CLR_HBLUE), CLR_GRAY } } //:aCols[ 10 ]:nDataStrAlign := AL_RIGHT :cAlias := cAliTab :CreateFromCode() :SetRDD() :SetFocus() :oClient := oBrwFW2 :AdjClient() :SelectCol(nColPos) // oDlgSel:oClient := oBrwFW2 END RETURN BrowseLibre := oBrwFW2 //********************************************************************************* ...

... CLR_HBLUE), CLR_GRAY } } //:aCols[ 10 ]:nDataStrAlign := AL_RIGHT :cAlias := cAliTab :CreateFromCode() :SetRDD() :SetFocus() :oClient := oBrwFW2 :AdjClient() :SelectCol(nColPos) // :nMoveType = MOVE_NONE // oDlgSel:oClient := oBrwFW2 END //oBrwFW2:nMoveType = MOVE_NONE RETURN BrowseLibre := oBrwFW2 ...

... .\source\classes\CONTROL.PRG => TLAYOUT:HANDLEEVENT( 1729 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3183 ) Called from: => WNDADJCLIENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TLAYOUT:ADJCLIENT( 275 ) Called from: .\source\classes\WINDOW.PRG => TMDICHILD:RESIZE( ...

... ?)    WINDOW.PRG      495 ADIALOGS                WINDOW.PRG     3239  3239  3288 ADJBOTTOM()            (function  in ?)    WINDOW.PRG     2641 ADJCLIENT()            (function  in ?)    WINDOW.PRG     2659 ADJLEFT()              (function  in ?)    WINDOW.PRG     2652 ADJRIGHT()             ...

yes of course, I tried also with valid ACTIVATE DIALOG oApp():oDlg NOWAIT ; ON PAINT (oApp():oSplit:AdjClient()); ON INIT(oApp():oGrid:SetFocus(),ResizeWndMain()) ; VALID ( oApp():oGrid:nLen := 0 ,; oBar:End(), DbCloseAll(), oApp():oDlg := NIL, oApp():oGrid := NIL, oApp():oTab ...

I made this on code nMod :=1 ACTIVATE DIALOG oApp():oDlg NOWAIT; ON PAINT (oApp():oSplitV:AdjClient() ,oApp():oSplitH:AdjRight()); ON INIT ( BuildPanel(nMod) ,; ..... Function BuildPanel(nMod) oApp():oTaskPanel := TExplorerBar():New( 0, 0,oApp():oPanelLeft:nwidth-5, ...

Then there is bugs on adjclient and adjleft of Controls as the same Reyes say on his class "Fivewin Bug"

Also, if the Explorer bar is put on a window, there there is no need to do any adjusting--it is handled automatically by the window.

James

... third-party class" RIght ... this is that I'm trying to say to you. We must work on this class to resolve the problems. Then there is bugs on adjclient and adjleft of Controls as the same Reyes say on his class "Fivewin Bug" I hoped Reyes give his class to Antonio and published it ...

... ; _3DLOOK ; UPDATE ACTIVATE DIALOG oApp():oDlg NOWAIT ; ON INIT BarExplorer(oApp():oExBar,oApp():oCont,"CU") ; ON PAINT ( oApp():oSplit:AdjClient()) How I can resolve this graphic error ?

... .........Define Dialog (CHILD) .........Active Dialog NOWAIT ......... oWnd:oClient := oDlg //runtime here.. "Message not found: TDIALOG:ADJCLIENT" Activate Window ... The goal is to bind oDlg as child to oWnd (MDI CHILD) Is this possible? Mr. Antonio? regards, Frances