FiveTech Support Forums

// nSTYLE = 2 => Gradient
// D_MOVE => Color-Position
// D_DIRECT => Horizontal or Vertical

ACTIVATE DIALOG oDlg4 CENTERED NOWAIT ;
ON INIT ( oDlg4:Move( 400, 470, 430, 290, .f. ), DisableX(oDlg4, .T.), ;
        oBtn1:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ), ;
        oBtn2:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ), ;
        oBtn3:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ), ;
        oBtn4:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ), ;
        oBtn5:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ), ;
        oBtn6:SetSize( D_BUTTONH * 2, D_BUTTONV * 2, .T. ) ) ;
ON PAINT ( IIF( nSTYLE = 2 .and. D_DIRECT = 1, ;
   ( D_GRADIENT( hDC, oDlg4 ), ;
     GradientBrush( oDlg4, { { D_MOVE, D_COLOR1, D_COLOR2 },;
     { D_MOVE, D_COLOR2, D_COLOR1 } }, .T. ) ), NIL ), ;
    IIF( nSTYLE = 2 .and. D_DIRECT = 2, ;
   ( D_GRADIENT( hDC, oDlg4 ), ;
     GradientBrush( oDlg4, { { D_MOVE, D_COLOR1, D_COLOR2 },;
     { D_MOVE, D_COLOR2, D_COLOR1 } }, .F. ) ), NIL ), ;
    IIF( nSTYLE = 5, DL_IMAGE( hDC, oDlg4 ), NIL ), ;
       D_ALPHA( hDC ) )

RETURN ( NIL )



// ---- The Buttons :
// -----  1. Line, 1. Button  Transparent NOBORDER ---------

REDEFINE BTNBMP oBtn1 ID 100 OF oDlg3 ;
NOBORDER ;
FILENAME c_path + "\project\" + D_BUTTON1 ;
ACTION MsgAlert( "Button-Click", "Button 1" ) ;
PROMPT "But.1" ;
FONT oButtFont ;
RIGHT
oBtn1:lTransparent = .t.   
oBtn1:cTooltip := "Button1"

// ----- 2. Line, 1. Button Transparent BORDER ---------

REDEFINE BTNBMP oBtn4 ID 200 OF oDlg3 ;
FILENAME c_path + "\project\" + D_BUTTON1 ;
ACTION MsgAlert( "Button-Click", "Button 4" ) ;
PROMPT "But.4" ;
FONT oButtFont ;
BOTTOM
oBtn4:lTransparent = .t.   
oBtn4:cTooltip := "Button4"


// -------------- DIALOG - GRADIENT --------------------

STATIC FUNCTION D_GRADIENT( hDC, oDlg )
local aGrad := { { D_MOVE, D_COLOR1, D_COLOR2 }, ;  
                          { D_MOVE, D_COLOR2, D_COLOR1 } }    

IF D_DIRECT = 1 // Horizontal
   GradientFill( hDC,  0, 0, oDlg:nHeight, oDlg:nWidth, aGrad, .T. )
ENDIF
IF D_DIRECT = 2 // Vertical
   GradientFill( hDC,  0, 0, oDlg:nHeight, oDlg:nWidth, aGrad, .F. )
ENDIF

RETURN NIL

// ----- Antonio's function with added lPos ( Gradient-Direction ) -------

FUNCTION GradientBrush( oDlg, aColors, lPos )
local hDC, hBmp, hBmpOld, oBrush

if Empty( oDlg: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, lPos )
      DeleteObject( oDlg:hBrush )
      oDlg:hBitmap = hBmp
      oDlg:hBrush = CreatePatternBrush( hBmp ) 
      SelectObject( hDC, hBmpOld )
      oDlg:ReleaseDC()
endif   

RETURN NIL