RibbonBar en Dialog.... How to ??

[Raymundo Islas M.]

Daniel,

- Antes de probar lo que indicas habia creado el control pero como "TTitle" y nada, despues como "TTITLE" y nada.
quize intentarlo con otro control : RBBTN SAYBUTTON y tampoco, lo que descubri es que si aplico la clausula TRANSPARENT al dialogo no se pinta nada, quitandolo si se muestra.

En este momento si se ve el Title pero el resto de la pantalla se ve "feito" por la falta de transparencia en el resto de los controles.

Saludos

[Otto]

Hello Daniel,
when I try the sample I get:

"Not Supported for TDialog"

Thanks in advance
Otto

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "ribbon.ch"


FUNCTION Main()

  LOCAL oDlg

  DEFINE DIALOG oDlg SIZE 600, 400 PIXEL
 
  ACTIVATE DIALOG oDlg CENTERED;
           ON INIT CreateRibbon( oDlg )
 
RETURN NIL


FUNCTION CreateRibbon( oDlg )
   LOCAL oRib

   DEFINE RIBBONBAR oRib WINDOW oDlg ;
    PROMPT "Test", "test2", "test3";
    HEIGHT 140 TOPMARGIN 36
   
    oRib:Move( 0, 0, oDlg:nWidth, oRib:nHeight )

RETURN NIL
 

[Daniel Garcia-Gil]

Hello Mr. Otto

you can try suppress the dialog restriction inside TRIBBON.PRG

Code: Select all  Expand view  RUN

if !( oWnd:ClassName() $ "TWINDOW,TMDIFRAME,TMDICHILD" )

[Otto]

Hello Mr. Daniel,
thank you so much. Will this change be in TRibbon class?

Best regards,
Otto

[Daniel Garcia-Gil]

Hello

Yes