Code: Select all | Expand
// C:\GETBORDE\TESTGET3.PRG - 26/04/2025 - By Kapiaba the best of the World.
// MODIFICADO EM: 28/04/2025 - Por: Joao Santos - Sao Paulo/Brazil.
#Include "FiveWin.ch"
#define METRO_VERDE13 nRGB( 34, 177, 76 )
#define CLR_VSBAR nRGB( 207, 214, 228 )
#define CLR_VSMAR nRGB( 0, 73, 138 )
FUNCTION Main()
LOCAL oWnd, oMenu, oFont, oSkinB, oIco
SetBalloon( .T. ) // Balloon shape required for tooltips
oSkinB = TSkinButton():New()
oSkinB:nClrBorder0_N := RGB( 249, 194, 179 )
oSkinB:nClrBorder1_N := RGB( 181, 61, 29 )
oSkinB:aClrNormal := { { .50, nRGB( 210, 235, 216 ), nRGB( 0, 73, 138 ) } }
SkinButtons( oSkinB )
DEFINE ICON oIco RESOURCE "ICONE05" // EN: TESTGET3.RES
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
MENU oMenu 2007
MenuItem "From Resource" ACTION FromrES( oWnd )
MENUITEM "&Salida" ACTION( oWnd:End() )
ENDMENU
DEFINE WINDOW oWnd TITLE "Test Button Get Transparent" MENU oMenu PIXEL ;
ICON oIco MDI
oWnd:SetFont( oFont )
ACTIVATE WINDOW oWnd MAXIMIZED
oFont:End()
RETURN NIL
FUNCTION FromRes( oWnd )
LOCAL oDlg, oGet1, oGet2, oGet3, oGet4, cVar1, cVar2, cVar3, cVar4, oFont
LOCAL oBtnDisp, lActive := .F., cLinares, oGet, oFont2, oBtnVisu, oSay
LOCAL oSaida, oFnt, oCbx, cItem := "", aGrad, oBtnFive, oIco
cVar1 := 0
cVar2 := 0
cVar3 := 0
cVar4 := 0
cLinares := SPACE(50)
cLinares := OemToAnsi( "USER: ANTONIO LI¥ARES CA¥AS" )
aGrad := { { .50, nRGB( 210, 235, 216 ), nRGB( 255, 255, 255 ) } }
DEFINE ICON oIco RESOURCE "ICONE05" // EN: TESTGET3.RES
DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 00, -12 BOLD
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 00, -18 BOLD
DEFINE DIALOG oDlg RESOURCE "fromres" OF oWnd GRADIENT aGrad ICON oIco ;
FONT oFont
oDlg:lHelpIcon := .F.
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
REDEFINE SAY ID 401 OF oDlg COLORS METRO_AMBER, CLR_WHITE UPDATE FONT oFont TRANSPARENT
REDEFINE SAY ID 402 OF oDlg COLORS METRO_PINK, CLR_WHITE UPDATE FONT oFnt TRANSPARENT
REDEFINE SAY ID 403 OF oDlg COLORS METRO_COBALT, CLR_WHITE UPDATE FONT oFont TRANSPARENT
REDEFINE SAY ID 404 OF oDlg COLORS METRO_VERDE13, CLR_WHITE UPDATE FONT oFont TRANSPARENT
REDEFINE SAY ID 430 OF oDlg COLORS CLR_VSMAR, CLR_WHITE UPDATE FONT oFnt TRANSPARENT
REDEFINE GET oGet1 VAR cVar1 id 100 bitmap "on" UPDATE ;
ACTION( MsgInfo( "With Transparent" ) ) of oDlg
oGet1:lBtnTransparent := .T. // transparent button get oGet1
REDEFINE GET oGet2 VAR cVar2 id 101 bitmap "on"UPDATE ;
ACTION( MsgInfo( "Without Transparent" ) ) of oDlg
oGet2:lBtnTransparent := .T. // transparent button get oGet1
REDEFINE GET oGet3 VAR cVar3 id 102 bitmap "chkyes" UPDATE ;
ACTION( MsgInfo( "With Adjust-Transparent" ) ) ;
COLOR CLR_BLACK, CLR_CYAN of oDlg
oGet3:disable()
oGet3:lBtnTransparent := .T. // transparent button get oGet3
oGet3:lAdjustBtn := .T. // Button Get Adjust Witdh oGet3
oGet3:lDisColors := .F. // Deactive disable color
oGet3:nClrTextDis := CLR_WHITE // Color text disable status
oGet3:nClrPaneDis := CLR_BLUE // Color Pane disable status
REDEFINE GET oGet4 VAR cVar4 id 103 bitmap "chkyes" UPDATE ;
ACTION( if( lActive, oGet3:disable(), oGet3:enable() ), ;
lActive := !lActive, oDlg:Update() ) of oDlg
oGet4:lAdjustBtn := .T.
REDEFINE GET oGet VAR cLinares ID 4001 OF oDlg PICTURE "@!" UPDATE ;
COLORS METRO_ORANGE, CLR_WHITE FONT oFont2
oGet:bPainted := { || Display( oGet ) }
REDEFINE BITMAP oBtnDisp ID 121 RESOURCE "HOME" TRANSPARENT OF oDlg
REDEFINE BITMAP oBtnVisu ID 122 RESOURCE "FIVEWIN" TRANSPARENT OF oDlg
REDEFINE BITMAP oBtnFive ID 123 RESOURCE "FIVETECH" TRANSPARENT OF oDlg
REDEFINE BUTTONBMP oSaida ID 301 OF oDlg RESOURCE "EXIT" TEXTRIGHT ;
ACTION ( oDlg:End() ) CANCEL
oSaida:cTooltip := { "Click no Botão Para Sair", ;
"Saida - Exit - Cancelar ", 1, CLR_WHITE, CLR_CYAN }
REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "Testing", "this", "ComboBox" } ;
HEIGHTGET 24 ID 210 OF oDlg COLOR "W*/R+" ;
VALID ( MsgBeep(), .t. )
__clsAddMsg( oCbx:ClassH, "Display", @Display2(), HB_OO_MSG_METHOD,, 1 )
ACTIVATE DIALOG oDlg CENTERED
IF Set( _SET_INSERT, ! Set( _SET_INSERT ) )
Set( _SET_INSERT, ! Set( _SET_INSERT ) )
ENDIF
oFont:End()
oFont2:End()
oFnt:End()
RETURN NIL
STATIC FUNCTION Display( o ) // CON GET FUNCIONA PERFECTO!
LOCAL hDC := o:oWnd:GetDC()
LOCAL aRect := GetClientRect( o:hWnd )
LOCAL oBtn
IF Empty( o:Varget() )
RoundBox( hDC, aRect[ 2 ] + o:nLeft - 6, o:nTop + aRect[ 1 ] - 6, o:nLeft + aRect[ 4 ] + 6, o:nTop + aRect[ 3 ] + 12, 0, 0, ;
CLR_RED, 4 )
ELSE
RoundBox( hDC, aRect[ 2 ] + o:nLeft - 22, o:nTop + aRect[ 1 ] - 4, o:nLeft + aRect[ 4 ] + 6, o:nTop + aRect[ 3 ] + 12, 0, 0, ;
CLR_GREEN, 4 )
ENDIF
o:oWnd:ReleaseDC()
RETURN NIL
STATIC FUNCTION Display2( o ) // CON COMBOBOX, FUNCIONA PERFECTO!
LOCAL Self := QSelf()
LOCAL hDC := ::GetDC()
LOCAL aRect := GetClientRect( ::hWnd )
IF Empty( ::Varget() )
RoundBox( hDC, aRect[ 2 ] - 6, aRect[ 1 ] - 6, aRect[ 4 ] + 6, aRect[ 3 ] + 6, 0, 0, ;
METRO_ORANGE, 4 )
ELSE
RoundBox( hDC, aRect[ 2 ] - 6, aRect[ 1 ] - 6, aRect[ 4 ] + 6, aRect[ 3 ] + 6, 0, 0, ;
METRO_ORANGE, 4 )
ENDIF
::ReleaseDC()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
