there is a error on PopupGroup() method of CLASS TRBGroup I did a test I remmed everything that is written in the CLASS TRBGroup PopupGroup () method. I made the window smaller if I click on the button the menu is not displayed then I widened the ...
... 1: L .F. Local 2: L .F. Local 3: L .T. TMENU:ACTIVATE Param 1: O Class: TMENUITEM TRBTN:LBUTTONUP Param 1: N 66 Param 2: N 145 Param 3: O Class: TRBGROUP Param 4: L .F. Local 1: N 0 Local 2: A Len: 2 TCONTROL:HANDLEEVENT Param 1: N 8 Param 2: N 58 Param 3: N 0 Local 1: L .T. Local 2: L .T. Local ...
... feature and insert a button "Next" at the end of window to show the other buttons perhaps can be changed the METHOD PopupGroup() CLASS TRBGroup but I not found a solution
thanks to all, only the modifying to the class TRBGroup works fine. it resolve also the problem of the 'cursor' and of the 'selection', but not the problem of the buffer. i have a button with a clause WHEN !Empty(cVar) .and. !Empty(cVar2) after ...
There are two possible solutions 1) Modify your class TRBGroup METHOD MouseLeave( nRow, nCol, nFlags ) CLASS TRBGroup... / ... if !Empty( ::aControls ) //AEval( ::aControls, { | oControl |oControl:Refresh() ...
... 17: U Param 18: U Param 19: U Param 20: L .F. Local 1: O Class: TMDIFRAME Local 2: U Local 3: U MAIN Param 1: C "L" Local 1: O Class: TRBGROUP Local 2: A Len: 6 Local 3: A Len: 6 Local 4: A Len: 6 Local 5: A Len: 6 Local 6: A Len: 6 Local 7: A Len: 6 Local 8: A Len: 7 Local 9: O Class: ...
In the trbtn.prg, the condition is like this: if ( ::oWnd:IsKindOf( "TRIBBONBAR" ) .or. ::oWnd:IsKindOf( "TRBGROUP" ) ) .and. ; ! ::oWnd:l2013 The condition ! ::oWnd:l2013 is checked only if ::oWnd is RibbonBar or TRbGroup, provided /z compiler ...
Buenas tardes He intentado sin éxito realizar dos grupos en un TRibbonBar del ancho total del TRibbonBar uno debajo de otro 1.- Si defino los TRBGroup() mediante comando con fila, columna y su correspondiente ancho y alto, al definir el segundo, simplemente, copiando el código anterior y modificando ...