All Activity

Olá, obrigado pelas respostas.

// 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.

Se for dentro do estado de sao paulo, pode esquecer, não funciona mais. No estado do rio de janeiro, está normal.

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

Faltava isto xControl:nMoveType := 0 xControl:CreateFromCode() José M. C. Quintas

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.

Iniciante no fivewin. Tentando o browse de um DBF usando codeblock. FUNCTION gui_Browse( xDlg, xControl, nRow, nCol, nWidth, nHeight, oTbrowse, ; cField, xValue, workarea, aKeyCodeList, aDlgKeyCodeList ) LOCAL aItem, oCol @ nRow, nCol XBROWSE xControl ; DATASOURCE workarea ; SIZE nWidth, nHeight PIXEL ; OF xDlg ; LINES CELL FOR EACH aItem IN oTbrowse ADD COLUMN oCol TO xControl SHOWBLOCK aItem[2] HEADER aItem[1] NEXT RETURN Nil oTbrowse contém um array com { titulo, { || codeblock } } José M. C. Quintas

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

o Radio não possui esta opção.

tenta ai: oRadio::lTransparent := .T.

Coloquei na minha Dialog uma imagem de fundo, tem como o Radio ficar transparente de alguma forma? Pesquisei aqui mas não achei nenhuma forma.

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

Valeu era FLAT que estava faltando.....Obrigado

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.

Veja se serve: // C:\FWH/SAMPLES\SILVBTN3.PRG #include "FiveWin.ch" /* #Define aPubGrad {| lInvert | If( lInvert, ; { { 1 / 3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ; { 2 / 3, nRGB( 255, 215, 84 ), nRGB( 255, 233, 162 ) } ; }, ; { { 1 / 2, nRGB( 219, 230, 244 ), nRGB( 207 - 50, 221 - 25, 255 ) }, ; { 1 / 2, nRGB( 201 - 50, 217 - 25, 255 ), nRGB( 231, 242, 255 ) } ; } ) } */ FUNCTION Main() LOCAL oDlg, oFont, oBold, oBmp, cTitle LOCAL oCursorBtn := TCursor():New(, 'HAND' ) LOCAL oBtn := Array( 5 ) LOCAL nWd := GetSysMetrics( 0 ) * .58 LOCAL nHt := ( GetSysMetrics( 1 ) / 2 ) - 20 SkinButtons() cTitle := "Test: BTNBMP Evolution" DEFINE FONT oFont NAME 'Tahoma' SIZE 0, - 14 DEFINE FONT oBold NAME 'Tahoma' SIZE 0, - 16 BOLD DEFINE DIALOG oDlg SIZE nWd, nHt PIXEL FONT oFont TRANSPARENT ; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, ; WS_MINIMIZEBOX ) COLOR CLR_BLACK, RGB( 245, 245, 235 ) ; TITLE cTitle @ 10, 30 BTNBMP oBtn[ 1 ] PROMPT "&Add" LEFT 2007 FONT oBold ; FILENAME "..\bitmaps\16x16\floppy.bmp" ; SIZE 45, 14 PIXEL FLAT NOROUND NOBORDER GDIP OF oDlg ; COLOR CLR_BLACK, CLR_WHITE ACTION NIL // oBtn[1]:bClrGrad := aPubGrad // 1 ejemplo mi gusto personal. // oBtn[1]:bClrGrad := { |lInvert| If( lInvert, 0x60FFA54A, nARGB( 64, 0, 192, 0 ) ) } oBtn[ 1 ]:bClrGrad := {| lPressed | If( ! lPressed, ; { { 1, RGB( 250, 250, 245 ), RGB( 250, 250, 245 ) } }, ; { { 1, RGB( 245, 245, 235 ), RGB( 245, 245, 235 ) } } ) } /* WITH OBJECT oBtn[1] :nClrBorder := RGB( 195, 195, 185 ) END */ oBtn[ 1 ]:oCursor := oCursorBtn oBtn[ 1 ]:lTransparent := .T. @ 30, 30 BTNBMP oBtn[ 2 ] PROMPT "&Exit" LEFT 2007 FONT oBold ; FILENAME "..\bitmaps\16x16\Exit.bmp" ; SIZE 45, 14 PIXEL FLAT NOROUND NOBORDER GDIP OF oDlg ; ACTION( oDlg:End() ) COLOR CLR_BLACK, CLR_WHITE // oBtn[2]:bClrGrad := aPubGrad // 1 ejemplo a gusto. // oBtn[2]:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } oBtn[ 2 ]:bClrGrad := {| lPressed | If( ! lPressed, ; { { 1, RGB( 250, 250, 245 ), RGB( 250, 250, 245 ) } }, ; { { 1, RGB( 245, 245, 235 ), RGB( 245, 245, 235 ) } } ) } /* WITH OBJECT oBtn[2] :nClrBorder := RGB( 195, 195, 185 ) END */ oBtn[ 2 ]:oCursor := oCursorBtn oBtn[ 2 ]:lTransparent := .T. oBtn[ 2 ]:lCancel := .T. @ 50, 30 BTNBMP oBtn[ 3 ] PROMPT "&Print" LEFT 2007 FONT oBold ; FILENAME "..\bitmaps\16x16\printer.bmp" ; SIZE 45, 14 PIXEL FLAT NOROUND NOBORDER GDIP OF oDlg ; ACTION( oDlg:End() ) COLOR CLR_BLACK, CLR_WHITE // oBtn[3]:bClrGrad := aPubGrad // 1 ejemplo a gusto. // oBtn[3]:bClrGrad := { |lInvert| If( lInvert, 0x80FFA54A, nARGB( 54, 0, 192, 0 ) ) } // oBtn[3]:bClrGrad := { |lInvert| If( lInvert, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) ) } oBtn[ 3 ]:bClrGrad := {| lPressed | If( ! lPressed, ; { { 1, RGB( 250, 250, 245 ), RGB( 250, 250, 245 ) } }, ; { { 1, RGB( 245, 245, 235 ), RGB( 245, 245, 235 ) } } ) } /* WITH OBJECT oBtn[3] :nClrBorder := RGB( 195, 195, 185 ) END */ oBtn[ 3 ]:oCursor := oCursorBtn oBtn[ 3 ]:lTransparent := .T. oBtn[ 3 ]:lBoxSelect := .F. oBtn[ 3 ]:lEllipse = .T. DEFINE BITMAP oBmp FILENAME "..\bitmaps\visual.bmp" oDlg:bPainted = {| hDC | BmpTiled( hDC, oDlg, oBmp ) } ACTIVATE DIALOG oDlg CENTERED oFont:End() oBold:End() RETURN NIL STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) LOCAL nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() LOCAL nRow := 0, nCol := 0, n LOCAL nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() IF oBmp:hBitmap == 0 RETURN NIL ENDIF WHILE nRow < nHeight nCol = 0 WHILE nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth END nRow += nBmpHeight END RETURN NIL // FIN / END - kapiabafwh@gmail.com Regards, saludos.

Alguém sabe como fazer?

Bom dia. Quem tiver interesse em montar seu próprio servidor com a API do Zap, por motivo de saúde, estou negociando os fontes com as melhores condições para ajudar. Contato: (16) 9 8874-6745 Obrigado. Deus abençoe a todos.

Resolvido: FUNCTION GetFatorVencimento( dData ) LOCAL nFator nFator := dData - Stod( "19971007" ) WHILE nFator > 9999 nFator -= 9000 ENDDO RETURN nFator

Pessoal, alguém tem o cálculo do novo fator de vencimento para boletos?