FiveTech Support Forums

  DEFINE BRUSH oBrush
  DEFINE DIALOG oDlg RESOURCE 1001 BRUSH oBrush 
         oDlg:lTransparent:= .T.
         //oDlg:SetColor(,9425383)
        
   REDEFINE GROUP group oGrp[1] id 301 of oDlg TRANSPARENT
 
   REDEFINE RADIO oRad VAR nVal ID 4001 OF oDlg 

   REDEFINE CHECKBOX oCbx VAR lVal ID 4002 OF oDlg 

   REDEFINE SAY oSay[1] ID 401 OF oDlg COLOR CLR_RED
 
  ACTIVATE DIALOG oDlg CENTERED ;
                 ON PAINT GradientFill( hDC, 0, 0, oDlg:nHeight, oDlg:nWidth, { { , nRGB( 211, 211, 211), nRGB( 55, 255, 245) } } )

REDEFINE CHECKBOX oCbx VAR lVal ID 4002 OF oDlg 
oCbx:lTransparent := .t.

#include "FiveWin.ch"

function Main()

   local oDlg, oCbx1, lValue1 := .T., oCbx2, lValue2 := .T., oCbx3, lValue3 := .T.

   DEFINE DIALOG oDlg TITLE "Test"

   @ 1, 2 CHECKBOX oCbx1 VAR lValue1 COLOR "W+/B"
   oCbx1:lTransparent = .T. 

   @ 2, 2 CHECKBOX oCbx2 VAR lValue2 COLOR "W+/B" 
   oCbx2:lTransparent = .T. 

   @ 3, 2 CHECKBOX oCbx3 VAR lValue3 COLOR "W+/B" 
   oCbx3:lTransparent = .T. 

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT GradientBrush( oDlg, { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } } ) 

return nil

function GradientBrush( oDlg, aColors )

   local hDC, hBmp, hBmpOld
   
   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, aColors )
      oDlg:oBrush:hBitmap = hBmp
      oDlg:oBrush:hBrush = CreatePatternBrush( hBmp ) 
      SelectObject( hDC, hBmpOld )
      oDlg:ReleaseDC()
   endif   

return nil