Message not found: TSAY:LTRANSPARENT

[karinha]

// 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
//----------------------------------------------------------------------------//

[Antonio Linares]

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

[karinha]

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.

[Antonio Linares]

João,

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

[karinha]

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 ::oBrush:hBitmap != nil
SetBrushOrgEx( hDC, ::nLeft(), nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
endif

return ::oBrush:hBrush

[karinha]

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

[karinha]

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