kapiaba
-
Posts
24,540 -
Joined
-
Last visited
-
Days Won
282
Posts posted by kapiaba
-
-
-
// 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 / ENDRegards, saludos.
-
-
-
Veja agora, se os modelos by JACK o Estripador, te ajuda:
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.comEsse 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.comSai dessa arapuca. kkkkkkkkkkk, Regards, saludos.
-
-
Uma imagem fala por si:
[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. -
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, oGet2DEFINE 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.
-
-
-
GAYTOLAGEM Rubro Negra!!! kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
Regards, saludos.
-
Se você retira o setDlgGradiente, que acontece? tem algum código para testes?
Regards, saludos.
-
Se você postar como está fazendo, não facilita mais? E porquê tem que ser .PNG? se .JPG, é menor? Explique por gentileza;
gracias, regards, saludos.
-
22 minutos atrás, edutraini disse:
Bom dia Theotokos
Deu certo
na verdade em vez de fechar o programa ele fecha a conexao do usuario que esta aberto e abre a tela para logar de novo
ou seja usei a sua ideia
Obrigado
Bom dia. Nada impede que você cerre(feche) o programa em definitivo, somente o da estação de trabalho. abs.
Regards, saludos.
-
-
Buén dia Patricio, puede proporcionar un pequeño ejemplo porfa?
Gracias, regards, saludos.
-
Boleto Pdf com senha
in Programação
Posted
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=26352&p=145049&hilit=pdf+password&sid=38eeb32c92337c8860a5ff712d406d35#p145049
Regards, saludos.