FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour RibbonBar en Dialog.... How to ??
Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
Re: RibbonBar en Dialog.... How to ??
Posted: Mon Apr 26, 2010 10:56 PM

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

FWH 10.6 + xHarbour + Borland 582
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: RibbonBar en Dialog.... How to ??
Posted: Tue Jun 21, 2011 03:57 PM
Hello Daniel,
when I try the sample I get:

"Not Supported for TDialog"

Thanks in advance
Otto


Code (fw): Select all Collapse
#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
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: RibbonBar en Dialog.... How to ??
Posted: Tue Jun 21, 2011 08:55 PM
Hello Mr. Otto

you can try suppress the dialog restriction inside TRIBBON.PRG

Code (fw): Select all Collapse
if !( oWnd:ClassName() $ "TWINDOW,TMDIFRAME,TMDICHILD" )
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM
Re: RibbonBar en Dialog.... How to ??
Posted: Wed Jun 22, 2011 07:39 AM

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

Best regards,
Otto

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: RibbonBar en Dialog.... How to ??
Posted: Wed Jun 22, 2011 10:21 AM

Hello

Yes

Continue the discussion