Code: Select all | Expand
// C:\FWH..\SAMPLES\GERMANO.PRG
#include "FiveWin.ch"
STATIC lChangeBtn := .T.
function Main()
LOCAL oDlg, oBtn, oBtn2, oBtn3, oBtn4, oFont, cTile := "WHEN IN BTNBMP"
SKinButtons()
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE DIALOG oDlg TITLE cTile FONT oFont SIZE 600, 200
oDlg:lHelpIcon := .F.
@ 10, 10 BTNBMP oBtn FILE "..\bitmaps\btntouch.bmp" SIZE 65, 50 NOBORDER ;
PROMPT "Change" FLAT 2007 GDIPLUS LEFT ;
ACTION CHANGE_BTN( oBtn2, oBtn3 )
oBtn:LoadBitmaps( ,,,,,,, "..\bitmaps\btntouch2.bmp" )
@ 10, 80 BTNBMP oBtn2 FILE "..\bitmaps\PNGS\image2.png" SIZE 65, 50 LEFT ;
FLAT 2007 GDIPLUS NOROUND PROMPT "Con GDIP" WHEN( lChangeBtn ) ;
ACTION( oDlg:End() )
oBtn2:bClrGrad = {| lInvert | If( ! lInvert, ;
{ { 0.25, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) }, ;
{ 0.75, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) } }, ;
{ { 0.25, RGB( 250, 250, 245 ), RGB( 245, 245, 235 ) }, ;
{ 0.75, RGB( 245, 245, 235 ), RGB( 250, 250, 245 ) } } ) }
oBtn2:nClrBorder := iif( oBtn:lMOver, RGB( 219, 230, 244 ), RGB( 219, 230, 244 ) )
oBtn2:lCancel := .T.
oBtn2:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image6.png" )
// SIN GDIPLUS
@ 10, 150 BTNBMP oBtn3 FILE "..\bitmaps\PNGS\image3.png" SIZE 65, 50 LEFT ;
FLAT NOROUND PROMPT "Sin GDIP" WHEN( lChangeBtn ) ;
ACTION( oDlg:End() )
oBtn3:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image4.png" )
@ 10, 220 BTNBMP oBtn4 FILE "..\bitmaps\PNGS\image2.png" SIZE 65, 50 LEFT ;
FLAT 2007 GDIPLUS NOROUND PROMPT "Show GDIP" ;
ACTION REFRESH_BTN( oBtn2, oBtn3 )
oBtn4:LoadBitmaps( ,,,,,,, "..\bitmaps\PNGS\image1.png" )
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
FUNCTION CHANGE_BTN( oBtn2, oBtn3 )
lChangeBtn := .F.
//oBtn2:Disable() // Hide()
oBtn2:Refresh()
//oBtn3:Disable() // Hide()
oBtn3:Refresh()
RETURN( .T. )
FUNCTION REFRESH_BTN( oBtn2, oBtn3 )
lChangeBtn := .T.
//oBtn2:Enable() // Hide()
oBtn2:Refresh()
//oBtn3:Enable() // Hide()
oBtn3:Refresh()
RETURN( .T. )
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
