ecmsoft

Olá Kapiaba. Segue ribbon.ch e tribbon.prg que eu estou usando. Segue tb uma imagem do que acontece na tela. #ifndef _RIBBON_CH #define _RIBBON_CH /*----------------------------------------------------------------------------// //RIBONBAR ------------------------------------------------------------------------------*/ #xcommand DEFINE RIBBONBAR [ <oRBar> ] ; [ <of:OF, WINDOW> <oWnd> ] ; [ <prm: PROMPT, PROMPTS, ITEMS> <cPrompt,...> ] ; [ <act: ACTION, EXECUTE, ON CHANGE> <uAction> ] ; [ OPTION <nOption> ] ; [ HEIGHT <nHeight> ] ; [ TOPMARGIN <nTopMargin> ]; [ COLOR <nClrPane> ] ; [ <ColorBox: COLORBOX> <nClrBoxOut>,<nClrBoxIn> ] ; [ <ColorSel: COLORSEL> <nClrBoxSelOut>,<nClrBoxSelIn> ] ; => ; [<oRBar> := ] TRibbonBar():New( <oWnd>, [\{<cPrompt>\}], [{|nOption,nOldOption|<uAction>}], ; <nOption>, , <nHeight>, <nTopMargin>, <nClrPane>, <nClrBoxOut>, <nClrBoxIn>, <nClrBoxSelOut>, <nClrBoxSelIn> ) /*----------------------------------------------------------------------------// //GROUP ------------------------------------------------------------------------------*/ #xcommand ADD GROUP [ <oGr> ] ; [ <of: RIBBONBAR, RIBBON > <oRBar> ]; [ <to: TO OPTION> <nOption> ]; [ PROMPT <cCaption> ]; [ WIDTH <nWidth> ]; [ ACTION <uAction> ] ; [ BITMAP <cBitmap> ] ; =>; [ <oGr> := ] <oRBar>:AddGroup( <nWidth>, <cCaption>, <nOption>, [{|Self|<uAction>}], <cBitmap> ) /*----------------------------------------------------------------------------// //GROUP ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> RBGROUP [ <oGr> ] ; [ <of: OF, WINDOW, DIALOG > <oWnd> ]; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ ACTION <uAction> ] ; [ BITMAP <cBitmap> ] ; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradSel> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; [ CAPTIONGRAD <aGradCaption> ]; [ DISABLEGRAD <aGradDisable> ]; [ DISABLECAPION <aDisableCap> ]; [ TEXTCOLOR <nClrTxt> ]; =>; [ <oGr> := ] TRBGroup():New( <oWnd>, <nRow>, <nCol>, <nHeight>, <nWidth>, ,; <cCaption>, [{|Self|<uAction>}],; <nClrBoxIn>, <nClrBoxOut>, <aGradSel>, ,; <aGradCaption>, <aGradDisable>, <aDisableCap> , ,; <oFont>, <cBitmap>, [<.lTrans.>], <nClrTxt> ) /*----------------------------------------------------------------------------// //SEPARATOR ------------------------------------------------------------------------------*/ #xcommand ADD SEPARATOR TO GROUP <oGr> ; [ <to: TO, COLUMN, COL> <nCol> ]; =>; <oGr>:AddSeparator( <nCol> ) /*----------------------------------------------------------------------------// //BUTTON ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> ADD BUTTON [ <oBtn> ] ; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, GROUP> <oGr> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] <oGr>:AddButton( <nRow>, <nCol>, <nHeight>, <nWidth>, <cCaption>,; [{|Self|<uAction>}], [ Upper(<(type)>) ], <{WhenFunc}>, ; <cBitmap>, [<.lBorder.>], <.lRound.>, [ Upper(<(layout)>) ], ; [<oPopup>], [<.lGrouping.>], [<.lFirstElm.>], [<.lEndElm.>], <cMsg>, [<nRound>],; [<nClrBoxIn>], [<nClrBoxOut>] ) /*----------------------------------------------------------------------------// //BUTTON ------------------------------------------------------------------------------*/ #xcommand @ <nRow>, <nCol> RBBTN [ <oBtn> ] ; [ PROMPT <cCaption> ]; [ SIZE <nWidth>, <nHeight> ] ; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, DIALOG, WINDOW> <oWnd> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <lAdjust: ADJUST> ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ TOOLTIP <cToolTip> ]; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradiant> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] TRBtn():New( <nRow>, <nCol>, <nWidth>, <nHeight>, <cBitmap>,; [{|Self|<uAction>}], <oWnd>, <cMsg>, <{WhenFunc}>, <.lAdjust.>, ,; <cCaption>, <oFont>, [<.lBorder.>], [<.lRound.>],; [ Upper(<(layout)>) ], , <cToolTip>, , ,[ Upper(<(type)>) ], ; [<oPopup>], , , , , , , , ,[<.lGrouping.>], [<.lFirstElm.>], ; [<.lEndElm.>], [<.lTrans.>], [<aGradiant>], [<nClrBoxIn>], [<nClrBoxOut>], [<nRound>] ) #xcommand REDEFINE RBBTN [ <oBtn> ] ; [ ID <nID> ]; [ PROMPT <cCaption> ]; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ <of: OF, DIALOG, WINDOW> <oWnd> ] ; [ WHEN <WhenFunc> ] ; [ <lBorder: BORDER> ] ; [ <lRound: ROUND> [ <rs: RSIZE, ROUNDSIZE><nRound> ] ] ; [ <lAdjust: ADJUST> ] ; [ <layout: TOP, LEFT, BOTTOM, RIGHT, MOSTLEFT, MOSTRIGHT, CENTER> ] ; [ <type: NORMAL, POPUP, SPLITPOPUP, SAYBUTTON> ] ; [ <lGrouping: GROUPBUTTON> [<lFirstElm: FIRST>][ <lEndElm: END> ] ]; [ MENU <oPopup> ]; [ MESSAGE <cMsg> ] ; [ TOOLTIP <cToolTip> ]; [ FONT <oFont> ]; [ <lTrans: TRANSPARENT> ]; [ GRADIANT <aGradiant> ]; [ LINECOLORS <nClrBoxIn>, <nClrBoxOut> ]; =>; [ <oBtn> := ] TRBtn():Redefine( <nID>, <cBitmap>,; [{|Self|<uAction>}], <oWnd>, <cMsg>, <{WhenFunc}>, <.lAdjust.>, ,; <cCaption>, <oFont>, [<.lBorder.>], [<.lRound.>],; [ Upper(<(layout)>) ], , <cToolTip>, , ,[ Upper(<(type)>) ], ; [<oPopup>], , , , , , , , ,[<.lGrouping.>], [<.lFirstElm.>], ; [<.lEndElm.>], [<.lTrans.>], [<aGradiant>], [<nClrBoxIn>], [<nClrBoxOut>], [<nRound>] ) /*----------------------------------------------------------------------------// //BACKSTAGE ------------------------------------------------------------------------------*/ #xcommand DEFINE BACKSTAGE <oBackStage>; [ MAINWIDTH <nWidth> ]; => ; <oBackStage> := TBackStage():New( , , , , , [<nWidth>] ) #xcommand DEFINE BSSELECT [ <oOption> ] [ <of: OF, BACKSTAGE> <oBackStage> ] ; [ PROMPT <cCaption> ]; [ HEIGHT <nHeight> ] ; [ ACTION <uAction> ] ; [ <clrtext: COLORTEXT> <nClrText>[,<nClrTextOver>] ] ; [ GRADIENT <aGradOver> ]; [ COLORS <nClrStart>[,<nClrEnd>] ]; [ BORDER <nBorderClr> ]; [ LEFTMARGIN <nLeftMargin> ]; =>; [ <oOption> := ] <oBackStage>:AddOption( <cCaption>, [<nClrText>], <aGradOver>, 1, ; <nHeight>, <nClrStart>, [<nClrEnd>], <nBorderClr>, , ; <nLeftMargin>, [<nClrTextOver>], ,[{|Self, oOpt, nLastSelect |<uAction>}] ) #xcommand DEFINE BSBUTTON [ <oOption> ] [ <of: OF, BACKSTAGE> <oBackStage> ] ; [ PROMPT <cCaption> ]; [ BITMAP <cBitmap> ] ; [ HEIGHT <nHeight> ] ; [ ACTION <uAction> ] ; [ <clrtext: COLORTEXT> <nClrText>[,<nClrTextOver>] ] ; [ GRADIENT <aGradOver> ]; [ BORDER <nBorderClr> ]; [ LEFTMARGIN <nLeftMargin> ]; =>; [ <oOption> := ] <oBackStage>:AddOption( <cCaption>, [<nClrText>], <aGradOver>, 2, ; <nHeight>, , , <nBorderClr>, <cBitmap>, ; <nLeftMargin>, [<nClrTextOver>], ,[{|Self, oOpt, nLastSelect |<uAction>}] ) #xcommand SET BACKSTAGE <oBackStage> TO <oRBar>; => ; <oRBar>:SetBackStage( <oBackStage> ) #xcommand DEFINE QUICKBUTTON [ <of: OF, RIBBON> <oRibbon> ] ; [ <file: BITMAP, IMAGE> <cBmp1> ; [,<cBmp2>[,<cBmp3>[,<cBmp4>] ] ] ] ; [ ACTION <uAction> ] ; [ <lNoGrad: NOGRAD> ]; =>; <oRibbon>:QuickRoundBtn( <cBmp1>, [<cBmp2>], [<cBmp3>], [<cBmp4>],; [{|Self|<uAction>}], !<.lNoGrad.> ) #xcommand DEFINE QUICKACCESS [<oQuickAcc>] [ <of: OF, RIBBON> <oRibbon> ] ; [ LEFTMARGIN <nLeftMargin> ]; [ <lNoGrad: NOGRAD> ]; =>; [ <oQuickAcc> := ] <oRibbon>:QuickAccess( <nLeftMargin>, !<.lNoGrad.> ) #xcommand ADD BUTTON [ <oBtn> ] [ QUICKACCESS <oQuickAcc> ]; [ BITMAP <cBitmap> ] ; [ ACTION <uAction> ] ; [ WHEN <WhenFunc> ] ; =>; [ <oBtn> := ] <oQuickAcc>:AddButton( <cBitmap>, [{|Self|<uAction>}], ; <{WhenFunc}> ) #endif tribbon.prg

Até então, eu utilizava o backstage da classe TRibbon normalmente no windows 10. Depois de uma atualização do Windows 10, após abrir o menu backstage, nenhuma DIALOG fica com foco, mesmo que eu feche o backstage, as DIALOG´s continuam sem foco, e o cursor não aparece. Dei uma olhada na classe, mas não consegui identificar o que pode ser. Alguém já se deparou com isso ? FW v10.12 + xHb 1.2.1 (6717)

Alguem conseguiu utilizar a SAT.DLL do Emulador SAT com xHarbour ou harbour ?

Você conseguiu contornar esse problema ?? estou na mesma situação...

Olá, estou precisando utilizar as funcões ZIP do xHarbour (HB_ZIP(), HB_UNZIP(), etc.). Porem, estou precisando delas em uma DLL. Tentei criar a DLL com as funções, através da pasta CONTRIB do xHarbour mais não consegui por falta de experiencia em criar DLL. Se alguem tiver essa DLL, favor me enviar.

Estou precisando acessar um servidor FTP. Porém, ele só aceita conexão utilizando os recursos SSL/TSL. Eu utilizo a Classe tIPClientFtp() para fazer o acesso. FTP não seguro, abre normalmente, porém, FTP com criptografia, eu consigo conexão, mas ele não deixa logar, pelo fato das informações não estarem criptografadas. Alguem já passou por isso ? Alguma ideia alternativa ? Lembrando que o FireFox e o Crhome conseguem abrir, porém, o IE não consegue !

As mudanças que eu fiz na classe, são substanciais. Não posso publicar a classe, pois não é gratuita. Além, do mais, não sei se a versão da classe que tenho é a única, ou tem alguma mais nova. Se o Gilmer autorizar, eu posso publicar aqui no fórum.

Houve uma mudança no HTML da página do portal nacional. Eu tive que fazer uma alteração na classe do Gilmer para funcionar com o novo HTML.

Verifique se o SOAP ToolKIt 3.0 foi removido ou desativado ou bloqueado. Tente instalá-lo novamente.

Eu utilizei o NODOSIMP.EXE. Gostei das opções que ele oferece, como: Selecionar a impressora e Preview.

WHERE campo IS NULL AND campo=' '

Tenho um aplicativo compilado em xHarbour puro, que imprime texto na porta LPT1. Gostaria de imprimir esse mesmo texto em uma impressora LX-300 USB. Exemplo: SET DEVICE TO PRINTER @1,1 SAY cTexto SET PRINTER TO

Será que se você compactar o arquivo imagem (ZIP), depois gravar no BD. Na hora de ler, descompacta. Talvez o tamanho diminua.

Estou usando o MSSOAP Toolkit 3.0. Está funcionado uma beleza ! Porém, eu tenho que instalar o Kit em todos os computadores dos meus clientes para funcionar o meu programa. Gostaria de instalar os arquivos do Kit Soap, através do instalador da minha aplicação. Se eu souber quais arquivos do kit são necessários, e em que lugar eles devem ser instalados, eu poderia colocá-los no meu instalador. Assim, não precisaria instalar o kit depois instalar a minha aplicação. Ou seja, ficaria tudo no mesmo instalador. obs: Eu uso apenas a classe SoapClient30 do kit

Acho que não tem jeito. Essa função não restaura o arquivo com a data e a hora original. Alguem conhece outra função para descompactar/compactar aquivos ?