Por fin, Pages con Brush y Folders sin encabezados !!!

Post Reply
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Por fin, Pages con Brush y Folders sin encabezados !!!

Post by Raymundo Islas M. »

Hola a todos !!

Para el buen amigo Jose Murugosa y Rolando entre otros que anduvimos buscandole a esto.

Despues de muchos intentos fallidos intentando usar PAGES y a estos aplicarles algun brush ( en este caso un bitmap con degradado de color ) y buscarle sin exito la forma de usar algun FOLDER sin encabezados ( ya que estos SI toman sin ninguna bronca el brush ), y ya casi a punto de aventar el PC por la ventana por la frustacion se me ocurrio una pequeña idea y pensando : -What the fuck-, por que no intentarlo !!!

Y se hizo la luz !!!

Por fin, por fin !!!! ya tengo lo que he estado necesitando hacer.

El truco por llamarlo asi es :

1- En el area que queremos usar, poner un PAGE (un solo dialog)
2- Dentro de este dialog, metemos el FOLDER y la coordenada superior debe ser -14 para que no salgan los encabezados
3- Dentro del FOLDER metemos todos nuestro controles y ya esta !!!


Veremos que usamos un PAGES con degradado y todo, cuando en verdad estamos usando un FOLDER !!!


Espero les sirva a todos.


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Post by sysctrl2 »

Raymundo ,,

Una imagen, dice mas que mil palabras !!!


donde esta ?

jeje saludos..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

Cesar :


Con todo gusto :)



Antes :

Image



Despues :

Image



Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
sysctrl2
Posts: 833
Joined: Mon Feb 05, 2007 7:15 pm
Contact:

Post by sysctrl2 »

muy bueno, RAYMUNDO,

se ve chulis,


saludos..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
jcaro
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Post by jcaro »

Hola Raimundo se excelente - te felicito.

Tengo 2 consultas :

1) Para las lenguetas redondas del folder, utilizas alguna librería especia ?

2) Puedes- si es que es posible- poner un ejemplo con código y el rc, para
poder probarlo mejor.

Saludoys y gracias,
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
User avatar
Raymundo Islas M.
Posts: 590
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Post by Raymundo Islas M. »

Hola Juan,

- En efecto ese control es un RibbonBar, te permite usar un menu tipo Office 2007 dentro de tus apps.

- En realidad todo dependera que es lo que quieres hacer y como lo quieres hacer.

Me explico : He dicho abiertamente que me encanta el uso de Folders en mis apps, de hecho no recuerdo haber hecho una que no lo tenga :)
Pero en un nuevo proyecto estoy implementando este control ( RibbonBar ) y ya me era redundante aplicar un Folder, asi que requeria usar Pages para tal efecto, pero como les estoy poniendo un Brush degradado como fondo, tenia ese problema con las Pages ( cosa que no pasa usando los Folders ) asi que si tus proyectos no requieres usar Pages ni aplicarles un brush, lo mas facil y rapido seria el Folder.


De todos modo aqui va el codigo, ( nada del otro mundo, ni nada especial ) :


REDEFINE PAGES oPosPgs ID 105 OF oDlg DIALOGS "DUMFLDR"

oPosPgs:aDialogs[1]:SetBrush( oBrsh )
oPosPgs:aDialogs[1]:lTransparent := .T.

REDEFINE FOLDER oPosFld ID 101 OF oPosPgs:aDialogs[1] ;
PROMPTS "","" ;
DIALOGS "FLDA","FLDB"

Y como comente anteriormente, la coordenada superior del Folder debe ser -14 para que no se vean las solapas.


DUMFLDR DIALOG 59, 86, 691, 429
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "TAHOMA"
{
CONTROL "",101, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 1, -14, 685, 442


Y eso es todo.


Saludos
FWH 10.6 + xHarbour + Borland 582
jcaro
Posts: 270
Joined: Fri Nov 11, 2005 7:39 pm

Post by jcaro »

Raimundo - Muchas GRACIAS por responder y poner tu ejemplo.

Lo vamos a estudiar y ver que logramos. :D

Saludos ,
Juan
==> Pasando a FWH16.04 + Harbour32 + BCC70 + PellesC
=> Abandonando FWH 13.7 + xHarbour + BCC582
http://www.mitaller.cl
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:

Re: Por fin, Pages con Brush y Folders sin encabezados !!!

Post by jose_murugosa »

Raymundo Islas M. wrote:Hola a todos !!

Para el buen amigo Jose Murugosa ...

Por fin, por fin !!!! ya tengo lo que he estado necesitando hacer.

El truco por llamarlo asi es :

1- En el area que queremos usar, poner un PAGE (un solo dialog)
2- Dentro de este dialog, metemos el FOLDER y la coordenada superior debe ser -14 para que no salgan los encabezados
3- Dentro del FOLDER metemos todos nuestro controles y ya esta !!!


Veremos que usamos un PAGES con degradado y todo, cuando en verdad estamos usando un FOLDER !!!


Espero les sirva a todos.


Saludos
Querido amigo MUCHIIIIIIIIIIIIIISIIIIMAAAAAASSSSSSS GRACIAS!!!!!!!!

Ya lo pongo en práctica.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
User avatar
AIDA
Posts: 782
Joined: Fri Jan 12, 2007 8:35 pm

Hola

Post by AIDA »

Que bonito se ve

yo quiero hacerlo como como se hace :D

me dejaron :shock:

Saluditos

Aida :wink:
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
User avatar
rolando
Posts: 593
Joined: Sat May 12, 2007 11:47 am
Location: San Nicolás - BA - ARGENTINA

Post by rolando »

Raymundo,

Te comento como solucioné el tema, en mi caso, de las pages con fondo en degradé.

ImageImage

Lo que hice fue crear un bitmap con el fondo en degradé (uno por cada page a usar) y lo guardé en mi DLL. En el DLL y abarcando todo el page, coloqué primero un recurso tipo texto y encima todos los otros controles que lleva el page.

Luego, en el PRG, defino ese recurso tipo texto con el que abarqué todo el fondo del page, como un say y listo, sale como quiero.

Saludos.

Rolando :D
Post Reply