Ladinilson Posted June 28, 2012 Report Share Posted June 28, 2012 Amigos estou precisando integrar o TEF a uma rotina já pronta que usa o AcBrMonitor para ECF e me informaram que com o EasyTef isso é possÃvel, alguém pode me ajudar? FWH 8.1 / xHB 1.1.0 Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted June 28, 2012 Report Share Posted June 28, 2012 Amigos estou precisando integrar o TEF a uma rotina já pronta que usa o AcBrMonitor para ECF e me informaram que com o EasyTef isso é possÃvel, alguém pode me ajudar? FWH 8.1 / xHB 1.1.0 Quote Link to comment Share on other sites More sharing options...
CleitonSH Posted June 28, 2012 Report Share Posted June 28, 2012 Lailton developer@lailton.com.br Cleiton FWH906+xHarbour, MySql, WorkShop, PellesC, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
Eroni Posted December 29, 2012 Author Report Share Posted December 29, 2012 Boa tarde, se alguém já usou dialogo dentro de window, poderia me dar uma luz, sobre como focar no dialogo? Código abaixo: #include "FiveWin.ch" STATIC oFld function Main() local oBar local oWnd DEFINE WINDOW oWnd From 00,00 to 400,500 TITLE "Teste Eroni" PIXEL COLORS CLR_WHITE,CLR_WHITE DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\dlg.bmp" MESSAGE "Criar nova aba" ACTION StartFolder( 2,oWnd,oBar ) ACTIVATE WINDOW oWnd on init StartFolder( 1,oWnd,oBar ) return nil function StartFolder( nOpc,oWnd,oBar ) local oBtn local oDlg local oGet local cGet := Space(10) if nOpc == 1 // STYLE nOr( WS_CHILD ) DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD ) FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE @ 0,0 FOLDER oFld PROMPTS "Teste 1 aba" OF oDlg // @ 1,1 GET oGet var cGet OF oFld @ 120, 10 BUTTON oBtn PROMPT "Fechar" OF oDlg SIZE 45, 16 ACTION oDlg:End() PIXEL ACTIVATE DIALOG oDlg NOWAIT else oFld:AddItem( "Mais um" ) oFld:Refresh() endif return nil (48) 3045-1575 xHarbour, FWH & MySql Quote Link to comment Share on other sites More sharing options...
Eroni Posted December 29, 2012 Author Report Share Posted December 29, 2012 Boa tarde, se alguém já usou dialogo dentro de window, poderia me dar uma luz, sobre como focar no dialogo? Código abaixo: #include "FiveWin.ch" STATIC oFld function Main() local oBar local oWnd DEFINE WINDOW oWnd From 00,00 to 400,500 TITLE "Teste Eroni" PIXEL COLORS CLR_WHITE,CLR_WHITE DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\dlg.bmp" MESSAGE "Criar nova aba" ACTION StartFolder( 2,oWnd,oBar ) ACTIVATE WINDOW oWnd on init StartFolder( 1,oWnd,oBar ) return nil function StartFolder( nOpc,oWnd,oBar ) local oBtn local oDlg local oGet local cGet := Space(10) if nOpc == 1 // STYLE nOr( WS_CHILD ) DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD ) FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE @ 0,0 FOLDER oFld PROMPTS "Teste 1 aba" OF oDlg // @ 1,1 GET oGet var cGet OF oFld @ 120, 10 BUTTON oBtn PROMPT "Fechar" OF oDlg SIZE 45, 16 ACTION oDlg:End() PIXEL ACTIVATE DIALOG oDlg NOWAIT else oFld:AddItem( "Mais um" ) oFld:Refresh() endif return nil (48) 3045-1575 xHarbour, FWH & MySql Quote Link to comment Share on other sites More sharing options...
Theotokos Posted December 29, 2012 Report Share Posted December 29, 2012 citação:Boa tarde, se alguém já usou dialogo dentro de window, poderia me dar uma luz, sobre como focar no dialogo? Código abaixo: #include "FiveWin.ch" STATIC oFld function Main() local oBar local oWnd DEFINE WINDOW oWnd From 00,00 to 400,500 TITLE "Teste Eroni" PIXEL COLORS CLR_WHITE,CLR_WHITE DEFINE BUTTONBAR oBar SIZE 33, 33 _3D OF oWnd DEFINE BUTTON OF oBar FILE "..\bitmaps\dlg.bmp" MESSAGE "Criar nova aba" ACTION StartFolder( 2,oWnd,oBar ) ACTIVATE WINDOW oWnd on init StartFolder( 1,oWnd,oBar ) return nil function StartFolder( nOpc,oWnd,oBar ) local oBtn local oDlg local oGet local cGet := Space(10) if nOpc == 1 // STYLE nOr( WS_CHILD ) DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD ) FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE @ 0,0 FOLDER oFld PROMPTS "Teste 1 aba" OF oDlg // @ 1,1 GET oGet var cGet OF oFld @ 120, 10 BUTTON oBtn PROMPT "Fechar" OF oDlg SIZE 45, 16 ACTION oDlg:End() PIXEL ACTIVATE DIALOG oDlg NOWAIT ON INIT ( oDlg:SetFocus() )id=red> else oFld:AddItem( "Mais um" ) oFld:Refresh() endif return nil (48) 3045-1575 xHarbour, FWH & MySql id=quote>id=quote> Quote Link to comment Share on other sites More sharing options...
Eroni Posted December 29, 2012 Author Report Share Posted December 29, 2012 Rone, testei oDlg:Setfocus() mas não funciona, e os controles do dialogo não funcionam, se testar o código que coloquei dá pra ver. Abraço. (48) 3045-1575 xHarbour, FWH & MySql Quote Link to comment Share on other sites More sharing options...
Theotokos Posted December 30, 2012 Report Share Posted December 30, 2012 Oi, eu testei o teu codigo e problema esta em STYLE DEFINE DIALOG oDlg OF oWnd STYLE nOr( WS_CHILD )id=red> FROM oWnd:nTop+oBar:nHeight, 1 TO oWnd:nHeight, oWnd:nWidth PIXEL COLOR CLR_BLACK, CLR_BLUE quando tira ai cria a dialog fora e funciona... ai vc vai que testar os outros tipos de STYLE e vê o que funciona para você, ou sem tem alguma outra solução para a tua necessidade. Quote Link to comment Share on other sites More sharing options...
Eroni Posted December 31, 2012 Author Report Share Posted December 31, 2012 Valeu Rone, isso mesmo eu ja tinha feito, na real testei todos os style possiveis e não resolve pra mim, vou partir para uma solução com tFolderex. Obrigado e bom ano novo. (48) 3045-1575 xHarbour, FWH & MySql Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted December 31, 2012 Report Share Posted December 31, 2012 Boa Tarde .. Não entendi, o que seira o "Focar" na dialog ? Eu sempre usei e uso dialog dentro da window, e semnpre que aciono a dialog o cursor já cai dentro dos controles... seria isso ?? Abraços Feliz Ano novo .. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Quote Link to comment Share on other sites More sharing options...
Yury Posted March 4, 2013 Report Share Posted March 4, 2013 tente isso: no activate do dialog coloque: ACTIVATE DIALOG oDlg ON INIT (oDlg:Show(), xSetFocus(oDlg)) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.