// Testing Groups -> Original en c:\fwh\samples\TESTGRP.PRG

//-> Antonio Compile este ejemplo para me comprender/entender.

Include "FiveWin.Ch"

Include "WColors.Ch"

//----------------------------------------------------------------------------//

Function Main()

LOCAL oDlg, oBrush, oGroup, oFont

DEFINE BRUSH oBrush FILE "..\bitmaps\bricks.bmp"

DEFINE FONT oFont NAME 'MS Sans Serif' SIZE 0,-8 BOLD

DEFINE DIALOG oDlg NAME "Test" BRUSH oBrush

REDEFINE GROUP oGroup ID 101 COLOR GetSysColor( COLOR_HIGHLIGHT ) OF oDlg ;
         FONT oFont PROMPT "Modified Group Caption" TRANSPARENT

REDEFINE BUTTON ID 103 OF oDlg ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

RELEASE BRUSH oBrush
RELEASE FONT oFont

Return Nil
//----------------------------------------------------------------------------//

João,

Cambia el orden del GET dentro del RC así y se muestra bien:

GROUPBOX "Mensaje desde RECURSO", 101, 10, 6, 156, 82, BS_GROUPBOX | WS_GROUP
EDITTEXT 102, 55, 39, 58, 12
PUSHBUTTON "&Ok", 103, 106, 107, 50, 14

Antonio, mi querido maestro...

Este ejemplo, era solamente, para usted comprender o ke esta aconteciendo en mis DIALOGOS, cuando en la misma DIALOG, yo uso GROUP BOX, GETS, SAYS, RADIO BUTTONS O CHECKBOX, todos los controles DESAPARECEN y son muchas DIALOGS ke tengo.

Comprende??

En el release de marzo/2006, GROUP.PRG, está incompleta. Mira por favor.

Par favor, se posible, hable com Gilmer Tavares, talbez asi, el lo consiga explicar mejor.

Gracias y saludos.

João,

Te enviamos por email la versión más reciente de group.prg

Antonio Linares wrote:João,

Te enviamos por email la versión más reciente de group.prg

Antonio,

Dudas: No Hay Problemas Con La Ausencia de Estes METHODS???

#ifndef __CLIPPER__

METHOD EraseBkGnd( hDC ) CLASS TGroup

if IsAppThemed()
// return 1 Fix: 09-May-2005
endif

return Super:EraseBkGnd( hDC )

#endif

//----------------------------------------------------------------------------//

METHOD Colors( hDC ) CLASS TGroup

DEFAULT ::nClrText := GetTextColor( hDC ),;
::nClrPane := GetBkColor( hDC ),;
::oBrush := TBrush():New( , ::nClrPane )

SetTextColor( hDC, ::nClrText )
SetBkColor( hDC, ::nClrPane )

if ::hBitmap != nil
SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::hBitmap ) - ::nTop )
endif

return ::hBrush

Antonio, necesito autorización, orden, permiso, licencia, consentimiento, para enviar un DEMO de mi programa para usted testar con el FIVEWIN 2.7 release de marzo de 2006.

Puedo??

Gracias. Saludos

Antonio, el mayor problema, és cuando uso este comando:

//-> Colores en el Group Box
//-> Si lo retiro, funciona cuasi perfecto, ahi me da problemas en los RADIOS.

REDEFINE GROUP oGroup ID 501 COLOR CLR_RED, CLR_YELLOW OF oDlg ;
FONT oFont TRANSPARENT

Antonio, en la CLASSE RADIO, esto esta correcto???

Pues mis RADIOs, estan retornado ERRORES. Entran en LOOPING...

ifndef CLIPPER

METHOD EraseBkGnd( hDC ) CLASS TRadio

if IsAppThemed() .and. ! ::lTransparent
return 1
endif

return Super:EraseBkGnd( hDC )

METHOD LostFocus( hCtl ) CLASS TRadio

if IsAppThemed()
// CheckFocus( ::hWnd, hCtl )
endif

return Super:LostFocus( hCtl )

endif