All Activity

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?

Boa noite, Valdir, Como vc disse, seu sistema não tem dado muito trabalho, então, preencha esse espaço de tempo, aprendendo uma nova tecnologia. Para cansaço físico e mental, temos suplementos, que podemos mandar fazer em farmácia de manipulação, como: Vitamina D3 10000 UI, Cloreto de Magnésio treonato 700 mg, Ginseng Panax 100 mg . Metilcobalamina 1 mg, ômega 3, etc. Tudo isso, são comidas de astronautas, são suplementos, que complementam a nossa alimentação, e nos dá mais vigor físico. Parar? Never.

Pessoal, resolvido, usando o comando TTXTFILE():NEW(), acho que eu estava "viajando", (pode ser sobrecarga de serviços a fazer) quando testei esse comando na primeira, pra ter dado errado. Ficou assim: P_DESTINO:="D:\WINSQL" // pasta destino oque_2:="CC.PRG" // nome do prg a ser alterado oque:="LABEL" // comando a ser localizado dentro da linha e alterado para GROUP OQUE_1:="@" // complemento do comando label: @ LI,CI TO LF,CF LABEL "TITULO" OF ODLG PIXEL SS0:=CURDRIVE()+":\"+CURDIR()+"\"+OQUE_2 //arquivo fonte, original ARQ_SPED:=P_DESTINO+"\"+oque_2 // arquivo destino IF !FILE("&ARQ_SPED.") ARQ00=FCREATE("&ARQ_SPED.",0) FCLOSE(ARQ00) ENDIF num:=0 OFILE:=TTXTFILE():NEW("&SS0.") DO WHILE .NOT. OFILE:LEOF() apCode:=OFILE:READLINE() if alltrim(upper(oque))$upper(apcode) .and. OQUE_1="@" .AND. "@"$APCODE .AND. !("GROUP"$upper(apcode)) num:=num+1 SS:="OGRP"+ALLTRIM(STR(NUM))+" " p:=at("TO",UPPER(APCODE)) if p>0 APCODE=STUFF(APCODE,P,0,"GROUP "+SS) endif ENDIF APCODE:=APCODE+chr(13)+chr(10) ARQ00=FOPEN("&ARQ_SPED.",2) FSEEK(ARQ00,0,2) FWRITE(ARQ00,APCODE,LEN(APCODE)) FCLOSE(ARQ00) OFILE:SKIP() ENDDO OFILE:END() USE DBCLOSEALL() ? "FIM" Essa rotina substitue do PRG, o comando: @ LI,CI TO LF,CF LABEL "TITULO" OF ODLG PIXEL por esse: @ LI,CI GROUP OGRP1 TO LF,CF LABEL "TITULO" OF ODLG PIXEL Obrigado a todos, pela contribuição. Até a próxima.

Vou testar. Apesar que gostaria de uma configuração para que o Banco não desconectasse por inatividade.

Boa noite rochina, A variável apcode, recebe o resultado da função memoline APCODE:= MemoLine( arq_prg, 500, i, 8, .T. ) Só que memoline, só lê linha de ate 254, e o padrão é 79, se não foi mencionado nenhum valor. e eu preciso de uma função que leia linhas com mais de 254 caracteres. obrigado.

Boa noite, De acordo com o manual do xharbour, a função mlcount, só processa linhas ate 254 caracteres, e o padrão desse comando é 79. Assim, enquanto a rotina pegava linha por linha do prg, só conseguia processar até 254, e eu preciso que precesse a linha inteira. Nos meus prgs, tem linhas até 400 caracteres por linha (linhas com mais de 254 caracteres). Logo, se a função só manipula até 254 caracteres, essas linha ficam truncadas. só B.O. Vou testar essas funçoes: FOpen(), FRead(), FSeek(), FWrite() e FClose()

Amiguinhos, mykx, APCODE é um campo em alguma tabela, se for tem tamanho 79a? ao usar variáveis adote diferenciá-las de campos em tabela por exemplo use sAPCODE para uma variável String, nAPCODE para uma variável Numeric, dAPCODE para uma variável Data, aAPCODE para Array, lAPCODE para Logic e mAPCODE para Memo. Não é obrigatório mas define visualmente e previne nossos erros de atribuição. Tenha certeza de não estar trabalhando sobre uma tabela que tem um campo com nome APCODE pois é bem dificil o MLCount() ou Memoline() falharem na largura do texto.

faço assim logo assim q conetco ao banco cCMDSQL := 'SET GLOBAL connect_timeout=28800' oSql:exec( cCMDSQL ) cCMDSQL := 'SET GLOBAL interactive_timeout=28800' oSql:exec( cCMDSQL ) cCMDSQL := 'SET GLOBAL wait_timeout=28800' oSql:exec( cCMDSQL )

Você se refere a isso? Sabeis usar um EDITOR MODO CONSOLE, é simples de carregar todos os .PRGS e dar um REPLACE neles. [code] #include "FiveWin.ch" FUNCTION Main() LOCAL oDlg LOCAL lFivePro := .T. LOCAL lDialog := .T. LOCAL lObjects := .F. LOCAL nNivel := 1 LOCAL cName := Space( 10 ) LOCAL cAddress := Space( 30 ) LOCAL oBtn, oGet1, oGet2 DEFINE DIALOG oDlg FROM 8, 2 TO 25, 50 TITLE "SetFocus test" @ 1, 1 SAY "&Name:" OF oDlg @ 1, 6 GET oGet1 VAR cName OF oDlg @ 2, 1 SAY "&Address:" OF oDlg @ 2, 6 GET oGet2 VAR cAddress OF oDlg @ 3, 1 GROUP TO 7, 8 LABEL "&Products" OF oDlg @ 4, 2 CHECKBOX lFivePro PROMPT "&FivePro" OF oDlg SIZE 60, 17 @ 5, 2 CHECKBOX lDialog PROMPT "&Dialog" OF oDlg SIZE 60, 17 @ 6, 2 CHECKBOX lObjects PROMPT "O&bjects" OF oDlg SIZE 60, 17 @ 3, 9 GROUP TO 7, 17 LABEL "&Nivel" OF oDlg @ 4, 9 RADIO nNivel PROMPT "&Novice", "A&vanced", "&Expert" OF oDlg @ 6, 5 BUTTON oBtn PROMPT "&Ok" OF oDlg SIZE 50, 12 ACTION ( oGet2:ctext( "OK ACTION RUN ON " + Time() ), oGet2:SetFocus() ) DEFAULT @ 6, 17 BUTTON "&Cancel" OF oDlg SIZE 50, 12 ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED RETURN NIL [/code] Regards, saludos.