Pregunta sobre Rbbtn

[horacio]

Tengo definido un dialogo con un gradiente y definí unos botones Rbbtn también con gradientes, pero los botones no toman el gradiente. Si le quito la clausula gradiente al Dialogo si toma el gradiente de los mismos. Es correcto este comportamiento ?, es posible modificarlo ? Muchas gracias

Saludos

[Antonio Linares]

Horacio,

Puedes mostrar el código de cómo lo haces ó proporcionar un ejemplo pequeño ? gracias

[horacio]

Antonio, aquí te mando el código.

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"  
Function Main() 
   
   Local oDlg
   Local oBtn := Array( 2, 0 )
       
    Define Dialog oDlg Resource 'Folders' Gradient { { 0.5, nRGB( 232, 232, 232 ), nRGB( 240, 240, 240 ) }, ;
                                                                         { 0.5, nRGB( 240, 240,  240 ), nRGB( 232, 232, 232 ) } }

      Redefine Rbbtn oBtn[ 1 ] Prompt "Cerrar"  Id 251 Bitmap 'imagen98'  Action( msgalert( 'click' ) ) Left;
      Gradiant { { 0.5, Rgb( 125,250,255 ), Rgb( 147,250,255 ) }, { 0.5, CLR_CYAN, CLR_HCYAN } }
      Redefine Rbbtn oBtn[ 2 ] Prompt "Guardar" Id 250 Bitmap 'grabar' Action ( msgalert( 'click' ) ) Left;
      Gradiant { { 0.5, Rgb( 125,250,255 ), Rgb( 147,250,255 ) }, { 0.5, CLR_CYAN, CLR_HCYAN } }


   Activate Dialog oDlg
    Return 0
 

Aqui el RC

Code: Select all  Expand view

// RESOURCE SCRIPT generated by "Pelles C for Windows, version 6.00".

#include <windows.h>
#include <commctrl.h>
#include <richedit.h>

LANGUAGE LANG_ENGLISH,SUBLANG_ENGLISH_US

FOLDERS DIALOG DISCARDABLE 98, 31, 378, 236
STYLE DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_CLIPSIBLINGS|WS_VISIBLE
FONT 8, "MS Sans Serif"
{
  CONTROL "Test", 251, "TRBTN", 0x00000000, 321, 208, 53, 20
  CONTROL "Test", 250, "TRBTN", 0x00000000, 321, 187, 53, 20
}
 

Saludos

[Antonio Linares]

Horacio,

Como solución rápida cambia el código asi:

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"  
Function Main()
   
   Local oDlg
   Local oBtn := Array( 2, 0 )
       
    Define Dialog oDlg Resource 'Folders

      Redefine Rbbtn oBtn[ 1 ] Prompt "Cerrar"  Id 251 Bitmap 'imagen98'  Action( msgalert( 'click' ) ) Left;
      Gradiant { { 0.5, Rgb( 125,250,255 ), Rgb( 147,250,255 ) }, { 0.5, CLR_CYAN, CLR_HCYAN } }
      Redefine Rbbtn oBtn[ 2 ] Prompt "Guardar" Id 250 Bitmap 'grabar' Action ( msgalert( 'click' ) ) Left;
      Gradiant { { 0.5, Rgb( 125,250,255 ), Rgb( 147,250,255 ) }, { 0.5, CLR_CYAN, CLR_HCYAN } }

   oDlg:aGradColors = { { 0.5, nRGB( 232, 232, 232 ), nRGB( 240, 240, 240 ) }, ;
                                  { 0.5, nRGB( 240, 240,  240 ), nRGB( 232, 232, 232 ) } }

   Activate Dialog oDlg
 
Return 0
 

[horacio]

Gracias Antonio, funcionó perfecto ...

Saludos