FiveTech Support Forums

#include "FiveWin.ch" 

function Main() 

   local oDlg, oFld, oGrp, oGrp1
    
   DEFINE DIALOG oDlg SIZE 400, 300 COLOR "W/B" transparent

   @ 0.5, 1 FOLDER oFld OF oDlg SIZE 188, 138 ; 
      PROMPTS "One", "Two", "Three" 
   
   @ 2, 3 GROUP oGrp TO 120, 180 PROMPT " 1. Group Text " OF oFld:aDialogs[ 1 ] PIXEL

   @ 10, 10 GROUP oGrp1 TO 70, 100 PROMPT " 2. Group Text " OF oFld:aDialogs[ 1 ] PIXEL
      
   ACTIVATE DIALOG oDlg CENTERED ON INIT oFld:aDialogs[1]:SetColor(, 9425383)

return nil

1 24 "WindowsXP.Manifest"

function IsAppThemed()

return .F.

METHOD Colors( hDC ) CLASS TControl

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

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

   if ::lTransparent
      SetBkMode( hDC, 1 ) // TRANSPARENT
      if IsAppThemed()
         if ! Empty( ::oBrush:hBitmap )
            SetBrushOrgEx( hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
            FillRect( hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush )
         else            //  This condition is added by RAMESH BABU P on Nov. 06, 2006
            if Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
               // DrawPBack( ::hWnd,  hDC )
               ParentImage( ::hWnd, hDC )
               if Upper( ::ClassName() ) != "TGROUP"  // NEW !!!
                  SendMessage( ::oWnd:hWnd, WM_ERASEBKGND, hDC, 0 ) // to properly remove/set the dotted rect
               endif   
            endif
         endif
      endif
   else
      if IsAppThemed() .and. Upper( ::ClassName() ) $ "TCHECKBOX;TRADIO;TGROUP"
         DrawPBack( ::hWnd,  hDC )
      endif
   endif

return ::oBrush:hBrush