kapiaba

Nunca testei, será que funciona mesmo? https://forums.fivetechsoft.com/viewtopic.php?t=39837 Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=26352&p=145049&hilit=pdf+password&sid=38eeb32c92337c8860a5ff712d406d35#p145049 Regards, saludos.

https://www.fivetechsoft.com/forums/viewtopic.php?f=3&t=38985 Regards, saludos.

// https://forums.fivetechsupport.com/viewtopic.php?f=6&t=2381&start=0 // C:\FWH\SAMPLES\MOUSE01.PRG - By Rossine. #Include "FiveWin.ch" FUNCTION Main() LOCAL oDlg, oBrush, oFont, oBtn DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE DEFINE FONT oFont NAME "TAHOMA" SIZE 0, -16 BOLD DEFINE DIALOG oDlg FROM 0, 0 TO 400, 600 PIXEL BRUSH oBrush FONT oFont ; TRANSPARENT oDlg:lHelpIcon := .F. // Posiciona o cursor do mouse @10, 10 BUTTON " Posicionar " OF oDlg ACTION SetCursorPos( 200, 300 ) PIXEL // Mostra o Mouse na Tela @30, 10 BUTTON " Mostar " OF oDlg ACTION SHOW_MOUSE() PIXEL // Esconde o Mouse nesta Dialog @50, 10 BUTTON " Esconder " OF oDlg ACTION HIDE_MOUSE() PIXEL // Confina o Mouse em uma certa posicao da tela @70, 10 BUTTON " Confinar " OF oDlg ACTION clipcursor( 10, 10, 10, 10 ) ; PIXEL // Confina o Mouse em uma certa posicao da tela @90, 10 BUTTON " Sair Confinamento " OF oDlg ; ACTION ( ClipCursor( 0, 0, 800, 600 ), setcursorpos( 400, 300 ) ) PIXEL @ 139.5, 130 BTNBMP oBtn PROMPT "&EXIT" FILENAME "..\BitMaps\Exit.bmp" ; SIZE 35, 35 OF oDlg PIXEL NOBORDER TOP 2007 FLAT FONT oFont ; COLOR CLR_HRED, CLR_WHITE ACTION( oDlg:End() ) oBtn:lCancel := .T. oBtn:nRound := 60 ACTIVATE DIALOG oDlg CENTERED /* oFont:End() oBrush:End() */ /* RELEASE BRUSH oBrush RELEASE FONT oFont */ // Direto: IIF( HB_ISOBJECT( oBrush ), oBrush:End(), ) ; oBrush := nil IIF( HB_ISOBJECT( oFont ), oFont:End(), ) ; oFont := nil RETURN NIL FUNCTION HIDE_MOUSE() LOCAL ST_CUR WHILE( .T. ) SYSREFRESH() ST_CUR := ShowCursor( 0 ) IF ST_CUR < 0 // Enquanto o Status do ponteiro nao for Menor que Zero EXIT ENDIF ENDDO RETURN NIL FUNCTION SHOW_MOUSE() LOCAL ST_CUR WHILE( .T. ) SYSREFRESH() ST_CUR := ShowCursor( 1 ) IF ST_CUR >= 0 // Enquanto o Status do ponteiro for Maior ou igual a Zero EXIT ENDIF ENDDO RETURN NIL #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" HB_FUNC( CLIPCURSOR ) { RECT rct; rct.left = hb_parnl( 1 ); rct.top = hb_parnl( 2 ); rct.right = hb_parnl( 3 ); rct.bottom = hb_parnl( 4 ); hb_retl( ClipCursor( &rct ) ); } #pragma ENDDUMP // FIN / END Regards, saludos.

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=28638&p=160447&hilit=nmovetype&sid=4ed9e50423a674094bc92ed4a2bc9a2e#p160447 Regards, saludos.

https://fivetechsupport.com/forums/viewtopic.php?f=3&t=18053

Veja agora, se os modelos by JACK o Estripador, te ajuda: https://forums.fivetechsupport.com/viewtopic.php?f=6&t=44432&p=269535&sid=1eea6dbc4504e4e9f4bd0b7faa3a54a4#p269535 Regards, saludos.

Melhorando... // C:\FWH\SAMPLES\RADTRANS.PRG // Testing some radio buttons #include "FiveWin.ch" FUNCTION Main() LOCAL oDlg, nValue := 3, oRadio, oBrush, oFont, cTitle SET _3DLOOK ON cTitle := "Testing a Radio Buttons Menu" DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" STRETCH // RESIZE DEFINE FONT oFont NAME "Verdana" SIZE 0,-18 BOLD DEFINE DIALOG oDlg SIZE 600, 450 BRUSH oBrush TITLE cTitle FONT oFont ; TRANSPARENT oDlg:lHelpIcon := .F. @ 1, 1 BUTTON "&Test" SIZE 70, 20 ; ACTION ( MsgInfo( nValue ), oRadio:aItems[ 2 ]:SetText( "&Changed!" ) ) @ 3, 2 RADIO oRadio VAR nValue ; ITEMS "&Kapiaba", "&Maudruidas", "T&hotokos" _3D SIZE 150, 25 ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() // adding an extra radio item at a different location @ 5, 25 RADIOITEM "Five&win" RADIOMENU oRadio OF oDlg SIZE 150, 25 // INCLUA O MANIFEST DO WINDOWS -> WINDOWS10.MANIFEST ACTIVATE DIALOG oDlg CENTERED ; ON INIT( IsAppThemed(), CTRLS_COLORS( oDlg ) ) // color in Radio/Checkbox oBrush:End() RETURN NIL // By Giovanny Vecchi FUNCTION CTRLS_COLORS( f_oDlgContainer ) LOCAL lc_aCtrls := {}, lc_iFor := 0 LOCAL lc_aItemsRadio := {} lc_aCtrls := f_oDlgContainer:aControls FOR lc_iFor := 1 TO Len( lc_aCtrls ) IF ValType( lc_aCtrls[lc_iFor] ) == "O" IF lc_aCtrls[lc_iFor]:ClassName() == "TRADIO" aEval( lc_aCtrls[lc_iFor]:oRadMenu:aItems, ; {|_oRadId|{ SetWindowTheme( _oRadId:hWnd, "", "" ), ; _oRadId:SetColor( METRO_ORANGE, CLR_WHITE ) } } ) ELSEIF lc_aCtrls[lc_iFor]:ClassName() == "TCHECKBOX" SetWindowTheme( lc_aCtrls[lc_iFor]:hWnd, "", "" ) lc_aCtrls[lc_iFor]:SetColor( METRO_ORANGE, CLR_WHITE ) ENDIF ENDIF NEXT RETURN NIL // FIN / END - kapiabafwh@gmail.com

// C:\FWH\SAMPLES\RADTRANS.PRG - Inclua o MANIFEST e o TRANSPARENT no DIALOGO. // Testing some radio buttons #include "FiveWin.ch" STATIC oDlg FUNCTION Main() LOCAL nValue := 3, oRadio SET _3DLOOK ON // SET HELPFILE TO "Test.hlp" DEFINE DIALOG oDlg TRANSPARENT ; TITLE "Testing a Radio Buttons Menu" COLOR "N/W" oDlg:lHelpIcon := .F. @ 1, 1 BUTTON "&Test" SIZE 70, 20 ; ACTION ( MsgInfo( nValue ), oRadio:aItems[ 2 ]:SetText( "&Changed!" ) ) @ 3, 2 RADIO oRadio VAR nValue ; ITEMS "&Kapiaba", "&Maudruidas", "T&hotokos" _3D SIZE 150, 25 ; HELPID 100, 101, 102 ; ON CHANGE MsgBeep() // adding an extra radio item at a different location @ 5, 25 RADIOITEM "Fiv&win" RADIOMENU oRadio OF oDlg SIZE 150, 25 // INCLUA O MANIFEST DO WINDOWS -> WINDOWS10.MANIFEST ACTIVATE DIALOG oDlg CENTERED ; // color in Radio/Checkbox ON INIT( oDlg:SetSize( 600, 400 ), IsAppThemed(), CTRLS_COLORS( oDlg ) ) RETURN NIL // By Giovanny Vecchi FUNCTION CTRLS_COLORS( f_oDlgContainer ) LOCAL lc_aCtrls := {}, lc_iFor := 0 LOCAL lc_aItemsRadio := {} lc_aCtrls := f_oDlgContainer:aControls FOR lc_iFor := 1 TO Len( lc_aCtrls ) IF ValType( lc_aCtrls[lc_iFor] ) == "O" IF lc_aCtrls[lc_iFor]:ClassName() == "TRADIO" aEval( lc_aCtrls[lc_iFor]:oRadMenu:aItems, ; {|_oRadId|{ SetWindowTheme( _oRadId:hWnd, "", "" ), ; _oRadId:SetColor( METRO_ORANGE, CLR_WHITE ) } } ) ELSEIF lc_aCtrls[lc_iFor]:ClassName() == "TCHECKBOX" SetWindowTheme( lc_aCtrls[lc_iFor]:hWnd, "", "" ) lc_aCtrls[lc_iFor]:SetColor( METRO_ORANGE, CLR_WHITE ) ENDIF ENDIF NEXT RETURN NIL // FIN / END - kapiabafwh@gmail.com Esse novo forum tá de laskar() PQP. kkkkkkkkk

Galera, alguém tem um exemplo completo em XHARBOUR para me disponibilizar, pls? tks. Regards, saludos.

Complicando, porque eu sou MAU! kkkkkkkkkkkkk // C:\FWH\SAMPLES\SILVGRAD.PRG #include "Fivewin.ch" FUNCTION test() LOCAL oDlg, oBtn1, oBtn2, oBtn[ 3 ] LOCAL cCursorBtn := TCursor():New(, 'HAND' ) LOCAL bGrad2015 := {| lInvert | If( ! lInvert, ; { { 1, RGB( 244, 244, 245 ), RGB( 244, 244, 245 ) } }, ; { { 1, RGB( 145, 201, 247 ), RGB( 145, 201, 247 ) } } ) } DEFINE DIALOG oDlg SIZE 300, 400 COLOR CLR_BLACK, CLR_WHITE TRANSPARENT oDlg:lHelpIcon := .T. @ 10, 10 BTNBMP oBtn1 FILENAME "..\bitmaps\16x16\floppy.bmp" ; PROMPT "Iniciar" FLAT SIZE 45, 15 LEFT PIXEL OF oDlg ; COLOR CLR_BLACK, CLR_WHITE GRADIENT bGrad2015 NOBORDER oBtn1:nRound := 30 oBtn1:nClrBorder := ( IIF( oBtn1:lMOver,, CLR_GRAY ) ) oBtn1:oCursor := cCursorBtn @ 10, 60 BTNBMP oBtn2 FILENAME "..\bitmaps\16x16\Exit;bmp" ; PROMPT "Exit" FLAT SIZE 45, 15 LEFT PIXEL OF oDlg ; COLOR CLR_BLACK, CLR_WHITE GRADIENT bGrad2015 NOBORDER ; ACTION( oDlg:End() ) oBtn2:nRound := 30 oBtn2:nClrBorder := ( IIF( oBtn2:lMOver,, CLR_GRAY ) ) oBtn2:oCursor := cCursorBtn oBtn2:lCancel := .T. ACTIVATE DIALOG oDlg CENTERED RETURN NIL // FIN / END - kapiabafwh@gmail.com Sai dessa arapuca. kkkkkkkkkkk, Regards, saludos.

Look, https://forums.fivetechsupport.com/viewtopic.php?f=3&t=35221&p=209683&hilit=nRound+%3A%3D+30&sid=cd465a1bcbc4f9b45cfb23f680617eee#p209683 Regards, saludos.

Uma imagem fala por si: https://imgur.com/9hoIB6A [img]https://i.imgur.com/9hoIB6A.png[/img] Regards, saludos.

Ou assim? // C:\FWH\SAMPLES\BTNREDON.PRG #Include "FiveWin.ch" STATIC oWnd FUNCTION Main() LOCAL oDlg, oBtn, oBtn2 LOCAL oCursorBtn := TCursor():New(, 'HAND' ) DEFINE DIALOG oDlg SIZE 250, 250 PIXEL TRUEPIXEL oDlg:lHelpIcon := .F. @ 20, 20 BTNBMP oBtn PROMPT "REDONDO1" SIZE 200, 100 PIXEL OF oDlg FLAT ; 2007 COLOR CLR_WHITE, CLR_GREEN NOBORDER oBtn:nRound := 60 oBtn:oCursor := oCursorBtn @ 160, 20 BTNBMP oBtn2 PROMPT "REDONDO2" SIZE 200, 60 PIXEL OF oDlg FLAT ; COLOR CLR_WHITE, CLR_HRED NOBORDER ACTION( oDlg:End() ) // SIN 2007 oBtn2:nRound := 30 oBtn2:oCursor := oCursorBtn oBtn2:lCancel := .T. ACTIVATE DIALOG oDlg CENTERED RETURN NIL // FIN / END Regards, saludos.