FiveTech Software tech support forums

Hola

si esta incluido en fivewin

HOLA

ese efecto Blur esta super
es de fivewin o codiguito tuyo

Saluditos

... aArea[ 2 ], aArea[4], aArea[ 3 ] ) Funcionó en el ejemplo, pero no funcionó en mi programa... Lo del efecto Blur, ya fue resuelto... y lo del pintado de la RibbonBar no tiene nada que ver con el... sino con el estilo PopUp... Por ahora lo tengo resuelto de ...

Bayron prueba esto, el boton dentro del grupo hace el efecto blur #INCLUDE "FiveWin.CH"  //FWH10.2#include "Ribbon.ch"static oRBarstatic oBtn101, oBtn102, oBtn103FUNCTION Main()    LOCAL aArea := GETWORKAREA()  ...

He logrado Refrescar la RibbonBar, con esta funcion: FUNCTION RefRBar()    For n = 1 To Len(oRBar:aDialogs)        oRBar:aDialogs[n]:Refresh()        For m = 1 to Len(oRBar:aDialogs[n]:aControls)            oRBar:aDialogs[n]:aControls[m]...

Daniel y Equipo FiveTech, 1 He encontrado una forma temporal de refrescar la RibbonBar al momento de entrar a mi programa: on init ( oRBar:Resize( 0, oRBar:nWidth, oRBar:nHeight  ) ) Pero solo funciona para entrar al programa y no con oWnd:Maximize() y oWnd:Restore(), asi que: 2 Tuve...

La RibbonBar no refresca cuando regreso del efecto Blur, como lo tengo ahora y tambien con el ejemplo que tu pusiste....
Le he colocado un SysRefresh(), oWnd:Refresh() y oRBr:Refresh(), pero no funciona...

http://www.youtube.com/watch?v=SY7EaGB_8bs

Daniel, Este codigo reproduce el error... Hay botones en la parte superior derecha para las funciones basicas de la ventana... (Por favor intenta a Maximizar/Restaurar la ventana) #INCLUDE "FiveWin.CH"  //FWH10.2#include "Ribbon.ch"static oRBarstatic oBtn101, oBtn102, oBtn103FUNC...

Daniel, El problema del BLUR ya está resuelto, no sé ni que le moví, pero ahora funciona correctamente... Ahora el problema es con el pintado del RibbonBar, y éste apareció despues de que definí la ventana principal colocando el estilo: ...

... oDialog es la ventana principal y retorno Function BlurEffect( oDialog )  LOCAL hBmp, i  LOCAL hBlur  LOCAL oWnd    oDialog:GetDC()  hBmp := MakeBkBmp( ...

Aquí te muestro el problema:

http://www.youtube.com/watch?v=YAqTucM2Pzw

para Maximizar la ventana solamente uso oWnd:Maximize()

... hoy si está trabajando bien??? Hice algunas pruebas, aparentemente el problema de pintado en los grupos (ya no tiene nada que ver con el efecto Blur) me lo da al colocar STYLE nOr( WS_POPUP ); en el ejemplo ribbon.prg no me produce este problema... Ya coloque oRBar:Refresh() y un SysRefresh() ...

Bayron

intenta hacerlo sobre la ventana principal no sobre la ribbon

Hola, Al intentar usar el efecto Blur en una ventana con RibbonBar, ésta hace el efecto, pero la RibbonBar no lo hace... Al hacerlo sobre el objeto de la RibbonBar, solamente los tabs hacen el efecto, pero no los botones pintados sobre ella... ...

Andres, intenta este codigo: Function Main()............     ACTIVATE Window oDialog ;        on Init ( BlurEffect( oDialog , .T. ), MsgInfo( "NNN" ), oDialog:Refresh(), BlurEffect( oDialog , .F. ) )............Return nilFunction ...