All Activity

Tenho Mas usa banco de dados mysql https://play.google.com/store/search?q=informais comanda&c=apps

Boa tarde, Algum no grupo, ja tem disponivel um módulo pra fazer comanda de restaurante pra celular? Só o módulo de comanda, onde registra a mesa, o numero de pessas, o garcom, e os itens solicitados Obrigado.

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

Bom dia Se nao me engano o mrboleto usa comandos harupdf se for isso tem esse HPDF_SetPassword() Nunca usei da uma pesquisada depois me fala Abraço

Pessoal alguém conseguiu enviar arquivo para o DropBox?

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

Bom dia amigos. Utilizo a função MrBoletos e gostaria de saber se tem como ao gerar o pdf atribuir uma senha para visualização. Obrigado a todos. Abço

CLASS TExplorerBar FROM TControl METHOD AddPanel( cName, cBmpName, nTitleH, nRound, aGrad, oFnt,nClrT, nClrP ) ENDCLASS METHOD AddPanel( cName, cBmpName, nBodyHeight, nTitleH, nRound, aGrad, oFnt, nClrT, nClrP ) CLASS TExplorerBar O bug trata-se da definição dos parâmetros no method, definição 8 e no method 9, ou seja 3º parâmetro "nBodyHeight" que está faltante. Dá para conviver com o bug pacificamente, peço a gentileza de quem tem contato do Linhares, para correções futuras. JMSilva

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

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