RibbonBar de FWH con apariencia Windows 7

[norberto]

hi Mantonio, very thanks, this samples is a good sample of class programming too.

only one doubt: this fwh class included is changed? can i use original ones?

[mantonio_08]

amigo... existen cambios en dos .prg.. el trbgroup y trbtn

estan marcados asi:: //Por ABC-System

trbgroup
==========
METHOD LButtonDown( nRow, nCol, nFlags ) INLINE ::lPressed := ::lMOverAction //Por ABC-System

trbtn
=======
DATA lPressedR INIT .F. //Por ABC-System

METHOD RButtonDown( nRow, nCol, nKeyFlags ) //Por ABC-System

METHOD RButtonDown( nRow, nCol, nKeyFlags ) //Por ABC-System

::lPressedR:=.T.

return Super:RButtonDown( nRow, nCol, nKeyFlags )



ahora si antonio puede incluir _ en las nuevas versiones seria genial::

aca andamos cualquier duda::

[Patricio Avalos Aguirre]

Gracias Mantonio

Code: Select all

   @ 01, 01 BTNBMP btn_circle OF oRbar SIZE 50, 50 TRANSPARENT;
            RESOURCE "btnnormal"    , ;  //Boton normal
                     "bntpress"     , ;  //Boton presionado
                            NIL     , ;  //Boton disable
                     "btnmousemove"   ;  //Boton mousemove
            2007 NOBORDER UPDATE;
        TOOLTIP "Muestra < Menu > Standar del Sistema";
        MESSAGE "Muestra < Menu > Standar del Sistema"
 

no me imagine nunca la clase btnbmp, siempre busque TRBtn

[gdeteran]

Donde consigo RIBBON.CH ?

[Antonio Linares]

Gonzalo,

Ribbon.ch es un fichero de FWH que se incluye en nuestro producto comercial.

Solo pueden publicarse modificaciones de los ficheros originales aqui, no los ficheros completos, pues solo los usuarios registrados a las versiones correspondientes pueden tener acceso a ellos, gracias

[gdeteran]

Antonio,

Tengo la version 2.7 comprada en Junio 2006. Deduzco entonces, que esta versión es muy antigua y debo actualizarme.
A propósito, basta con que compre la "Actualización a la nueva versión de FWH" ?

[Antonio Linares]

Gonzalo,

Si, asi es.

Para usar todas estas novedades tan atractivas de FWH es preciso usar la versión más reciente, actualizándose, gracias

[Silvio]

MAntonio88
Sorry I cannot download your files

[Silvio]

http://www.mediafire.com/myfiles.php

ahi les dejo el link de descarga..

a los colegas que lo quieran probar... una recomendacion,, ojo con el manejo de los array.. que son algo complejos de entender.. claro si es que quieren usarlos.. ahora si lo que desean es solo saber como se hace el boton redondo y el quickaccess.. pueden solo utilizar esa parte y adaptarla a sus necesidades..

cualquier duda por aca estare...

ATTE..
un colega

on this link I cannot download anything ....
can you help me pls ?

[TecniSoftware]

Silvio:

The link http://www.megaupload.com/?d=FRAGU5UE is working ok!

Salute

[mantonio_08]

(Editado por Antonio)

Mantonio, no puedes distribuir clases originales de FWH, son propiedad intelectual de nuestra empresa, gracias

Puedes publicar _ que les hagas, pero solo las diferencias, no las clases completas. Gracias

============================================ OOooOO ==================================================

MASTER ANTONIO,, mis disculpa por la subida, no fue mi intencion , no me percate que dentro de la carpeta comprimida, se me quedaron agregados esos prgs..,,, no volvera a ocurrir..

para los q no pudieron bajarlo::: aca el link.. CORREGIDO

http://www.mediafire.com/?3ajdkjiymmv

[Antonio Linares]

Mantonio,

gracias

[Juan Planelles]

Antonio: Los Ribonbar los voy a poner. En realidad son de WORD 2007, mucho antes que Windows 7, los he usado en Word y veo la ventaja que son "pequeños" diálogos que sustituyen a muchos popus y proporcionan una información mas amplia de las opciones posibles y una acción más rápida sin tener que abrir tantas listas.

Saludos, - Juan -

[Silvio]

Antonio,

MAntonio_08 use bitmaps for show the quickaccess button and round button
it can be good
Instead I re-write the ribbon class add new methods

Now I can create the riboon in this mode :


If we want 2007 effect


DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Configuración", "Ficheros", "Informes", "Ayudas" HEIGHT 160 TOPMARGIN 55


//Circolar Button

oRBar:cImageCircle1 := ".\bitmaps\BtnNormal.bmp"
oRBar:cImageCircle2 := ".\bitmaps\BtnMousemove.bmp"
oRBar:cImageCircle4 := ".\bitmaps\BtnPress.bmp"


//Load a style
nStyle:=1 // As Default blue
oRBar:SetStyle( nStyle )

// show the Panel Bar and circolar button
oRBar:PaintPanelBar()
oRBar:PaintCircleButton()


ADD GROUP oGr RIBBON oRBar TO OPTION 1 PROMPT "Empresa" width 135


............


On Circular button I can oppen an popup menu and select colors :
Blue, Black, Silver, Orange


Here there are snapshot s of my work for 2007 effect



Base Blue Colors



Menu Config



Aqua colors



Black colors



Orange colors



the last one problem I use the quickaccess bitmap and it is only for blue color , How I can change the pattern of this bitmap OR

How we can create with polygon functiond this bitmap ?



For the effect 2010 I'm studying What I can make... any idea ?

[AIDA]

Hola

Todo muy bonito pero a un no me queda


Saluditos

Aida