Hi,
I have created a dialog box with customer selectable gradient colors. When radio buttons are being used the backround color refuses to go transparent so displays a white square surrounding the button. I have tried AEval( oMyRadio:aItems, { | oRad | oRad:lTransparent := .T. } ) but this seems to have no effect.
Have read through loads of posts but am rather confused on exactly what i need to use to fix the problem.
Any ideas?
Regards
Gary
Please see gradbrus.prg in fwh\samples folder.
FUNCTION DLGTEST(oDlg,oFont)
LOCAL nStyle :=nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION )
LOCAL oSay, oRadio, oCheck
LOCAL nRadio := 1, lCheck := .F.
LOCAL aGrad := { { 0.50, 8388608, 16777215 }, { 0.50, 16777215, 8388608 } }
LOCAL oSayFont := TFont():New("Arial", ,-18,.F.,.T. , , , ,.F. )
LOCAL oRadioFont := TFont():New("Arial", ,-16,.F.,.T. , , , ,.F. )
DEFINE DIALOG oDlg RESOURCE "Test_Dlg" STYLE nSTYLE TRANSPARENT ;
TITLE "Testing Dialog-Backgrounds" FONT oFont
REDEFINE SAY oSay prompt "This is a Transparent-Test" ID 110 of oDlg ;
COLOR 128 PIXEL TRANSPARENT ADJUST
oSay:SetFont(oSayFont)
REDEFINE RADIO oRadio VAR nRadio ID 120,121 OF oDlg
AEval( oRadio:aItems, { | oRad | oRad:lTransparent := .T. } )
oRadio:SetFont( oRadioFont )
REDEFINE CHECKBOX oCheck VAR lCheck ID 210 OF oDlg
oCheck:lTransparent := .T.
oCheck:oFont := oRadioFont
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( DLG_BAR( oDlg ), ;
GradBrush( oDlg, aGrad, .T. ) ) ;
ON PAINT D_ALPHA( hDC )
oSayFont:End()
oRadioFont:End()
RETURN ( NIL )
// -------------------------------------------------------
FUNCTION DLG_BAR( oDlg )
LOCAL oBar, oBtn50, oBtn51, oBtn52, oBtn53, oBtn54, oBtn55, oBtn56, oBtn57, oBtn58
DEFINE BUTTONBAR oBar OF oDlg SIZE 80, 80 2007 TOP
oBar:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 0.90,11892819,16777215 },{ 0.90,16777215,11892819 } },;
{ { 0.50,128,16777215 }, { 0.50,16777215,128 } } ) }
oBar:nClrText := 0
DEFINE BUTTON oBtn50 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Info.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn51 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Tools.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn52 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Word.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn53 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Excel.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn54 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\View.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn55 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Image.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn56 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Zip.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn57 OF oBar ACTION MsgAlert( "Test", "Test" ) ;
FILE c_path + "\images\Email.bmp" TOOLTIP "Test"
DEFINE BUTTON oBtn58 OF oBar ACTION oDlg5:End() ;
FILE c_path + "\images\Quit.bmp" TOOLTIP "Exit Dialog-Test"
RETURN( NIL )
// - Gradient-Brush (posted in the Forum) lDir added for Horiz./Vert.-Direction --
FUNCTION GradBrush( oDlg, aColors , lDir)
local hDC, hBmp, hBmpOld , nWidth , nHeight
DEFAULT lDir := .T.
if Empty( oDlg:oBrush:hBitmap )
nHeight := if(lDir,oDlg:nHeight,1)
nWidth := if(lDir,1,oDlg:nWidth)
hDC = CreateCompatibleDC( oDlg:GetDC() )
hBmp = CreateCompatibleBitMap( oDlg:hDC, nWidth, nHeight )
hBmpOld = SelectObject( hDC, hBmp )
GradientFill( hDC, 0, 0, nHeight, nWidth, aColors,lDir )
DeleteObject( oDlg:oBrush:hBrush )
oDlg:oBrush:hBitmap = hBmp
oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
SelectObject( hDC, hBmpOld )
oDlg:ReleaseDC()
endif
RETURN NIL
// --------- ALPHA-BMP --------------------------------------
STATIC FUNCTION D_ALPHA( hDC )
LOCAL oBmp1
DEFINE BITMAP oBmp1 FILENAME c_path + "\images\A_LOGO.BMP"
ABPaint( hDC, 60, 70, oBmp1:hBitmap, 220 )
RETURN NIL
Mr Uwe
Either you should write
REDEFINE RADIO oRadio VAR nVar ID 120,121 OF oDlg
OR
REDEFINE RADIO nVar ID 120,121 OF oDlg
Because your code is "REDEFINE RADIO oRadio ID 120,121 OF oDlg", oRadio is considered as a numeric variable and not as radio object.
If you correct your code, there will be no error.
Thank You very much,
I added the missing Var's ( for Radio and Checkbox ).
My sample from above works fine now.
I deleted the Errormessage and corrected the Radio- and Checkbox-Lines in the sample above.
Font defines also included now ( Radio is different to Checkbox ) :
oRADIO:SetFont( oRadioFont )
oCheck:oFont := oRadioFont
I still have to look for the Font-Color-defines on Gradient, to make the sample complete.
Before I didn't use :
AEval( oRadio:aItems, { | oRad | oRad:lTransparent := .T. } )
and
oCheck:lTransparent := .T.
Radio and Checkbox without these lines, are shown transparent as well,
like You can see from the screenshot. Maybe because using VISTA, not needed ?
I didn't test with XP.
A few month ago, we have been talking about different results, working with VISTA.
Best Regards
Uwe 
If the dialog is transparent, there is no need to say :lTansparent := .t. for checkboxes and radio buttons. You can remove that code. It works on XP also.
Even the gradbrus.prg in the samples can be modified.
If this modification is made in the sample, it will be a good guidance to the users.
I agree with Mr.Rao on his opinion,
I was wondering why too much of complications. If we specify the Dialog itself as transparent, then all the controls of the dialog should have its lTransparent property set to .T.
Regards
Anser
>If we specify the Dialog itself as transparent, then all the controls of the dialog should have its lTransparent property set to .T.
Or, I have always wondered why all controls are not transparent by default. I can not think of any situation why I would want them not showing the background of the object that they are on. Maybe someone else can think of a situation?
I am not sure that a dialog should be transparent--this would mean that whatever is behind the dialog would show through. Maybe one would want a percent transparent so a little of the background would show through.
James
FUNCTION D_GRAD1( oDlg, aDLG , lDir)
local hDC, hBmp, hBmpOld , oBrush
IF Empty( oDlg:oBrush:hBitmap )
hDC = CreateCompatibleDC( oDlg:GetDC() )
hBmp = CreateCompatibleBitMap( oDlg:hDC, oDlg:nWidth, oDlg:nHeight )
hBmpOld = SelectObject( hDC, hBmp )
GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, aDLG, lDir )
DeleteObject( oDlg:oBrush:hBrush )
oDlg:oBrush:hBitmap = hBmp
oDlg:oBrush:hBrush = CreatePatternBrush( hBmp )
SelectObject( hDC, hBmpOld )
oDlg:ReleaseDC()
ENDIF
RETURN NIL
