ram_bh Posted January 10, 2018 Report Share Posted January 10, 2018 Boa tarde! Alguém está com problemas em aplicações geradas no Windows 10 recentemente? Desde a última atualização do Win10, as minhas aplicações apresentaram problemas no uso da classe OutLook2010. Alguém mais? Um abraço! Rodrigo Melo Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 10, 2018 Report Share Posted January 10, 2018 Rodrigo Melo, quando fizer uma pergunta, mostre do que se trata, desta forma aqui, para poder se ajudado. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32980&p=194193&hilit=OutLook2010#p194193 Apresente o problema, pois... Abs. Quote Link to comment Share on other sites More sharing options...
ram_bh Posted January 11, 2018 Author Report Share Posted January 11, 2018 Rodrigo Melo, quando fizer uma pergunta, mostre do que se trata, desta forma aqui, para poder se ajudado. http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32980&p=194193&hilit=OutLook2010#p194193 Apresente o problema, pois... Abs. Kapiaba, Veja na imagem como ficou o posicionamento do menu usando a classe OutLook2010. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 11, 2018 Report Share Posted January 11, 2018 Poste suas imagens aqui: https://uploaddeimagens.com.br Quote Link to comment Share on other sites More sharing options...
ram_bh Posted January 11, 2018 Author Report Share Posted January 11, 2018 Veja com W7: https://uploaddeimagens.com.br/imagens/w7-png--4 E com W10: https://uploaddeimagens.com.br/imagens/w10-png--2 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 12, 2018 Report Share Posted January 12, 2018 Fonte? Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 12, 2018 Report Share Posted January 12, 2018 O que acontece quando voce testa este exemplo no windows 10? // FWH Class TOutLook2010 - C:\FWH1701\SAMPLES\TEST2010.PRG #include "FiveWin.ch" #include "Splitter.ch" #include "OutLook.ch" static lExit := .F. //----------------------------------------------------------------------------// function Main() local oWnd, oOutLook2010, oStatusBar, oSplit, cCombo, oRad, nValue := 1 local oFont, oExBar, oPanel1, oPanel2, bClick := { | o | MsgInfo( o:GetText() ) } DEFINE WINDOW oWnd TITLE "FWH new Class TOutLook2010" MDI // ; // MENU BuildMenu() DEFINE OUTLOOK2010 oOutLook2010 OF oWnd ; PROMPTS "Mail", "Calendar", "Contacts", "" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" oWnd:oLeft = nil // Because the splitter is going to control the resize @ 0, 0 EXPLORERBAR oExBar OF oOutLook2010:aDialogs[ 1 ] ; SIZE oOutLook2010:aDialogs[ 1 ]:nWidth, oOutLook2010:aDialogs[ 1 ]:nHeight oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" ) oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" ) @ 1, 1 COMBOBOX cCombo ITEMS { "January", "February", "March", "April", "May" } ; OF oOutLook2010:aDialogs[ 2 ] SIZE 170, 100 DEFINE FONT oFont NAME "Arial" SIZE 0, -10 @ 12, 10 SAY Date() OF oOutLook2010:aDialogs[ 2 ] SIZE 80, 20 FONT oFont @ 3, 1 RADIO oRad VAR nValue OF oOutLook2010:aDialogs[ 2 ] ; ITEMS "&Day", "&Week", "&Month" SIZE 100, 20 oRad:SetFont( oFont ) @ 1, 2 BUTTON "New" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION BuildDlg() @ 3, 2 BUTTON "Edit" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Edit" ) @ 5, 2 BUTTON "Search" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Search" ) DEFINE STATUSBAR oStatusBar PROMPT " FWH Class TOutLook2010" OF oWnd SetParent( oOutLook2010:hWnd, oWnd:hWnd ) oWnd:oClient = nil @ 0, 191 SPLITTER oSplit ; VERTICAL _3DLOOK ; PREVIOUS CONTROLS oOutLook2010 ; HINDS CONTROLS oWnd:oWndClient ; SIZE 4, oWnd:nHeight - 70 PIXEL ; OF oWnd SetParent( oSplit:hWnd, oWnd:hWnd ) ACTIVATE WINDOW oWnd ; ON RESIZE ( oSplit:Adjust(),; WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ),; WndWidth( oWnd:oWndClient:hWnd, oWnd:nWidth - oOutLook2010:nWidth - 23 ) ) ; // + 80 VALID lExit := .T. return nil //----------------------------------------------------------------------------// function BuildMenu() local oMenu MENU oMenu MENUITEM "&One" MENUITEM "&Two" MENUITEM "&Three" ENDMENU return oMenu //----------------------------------------------------------------------------// function BuildDlg() local oDlg, oOutL2010 DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE OUTLOOK2010 oOutL2010 ID 110 OF oDlg ; PROMPTS "One", "Two", "Three" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" ; DIALOGS "Page1", "Page2", "Page3" REDEFINE BUTTON ID 110 OF oOutL2010:aDialogs[ 1 ] ACTION MsgInfo( "Click" ) ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// function WinRun() while NoGPF() if lExit PostQuitMessage( 0 ) endif end return nil //----------------------------------------------------------------------------// #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> BOOL SysRefresh( void ); HB_FUNC( NOGPF ) { __try { hb_retl( SysRefresh() ); } __except ( ( hb_retl( TRUE ), TRUE ) ) {} } #pragma ENDDUMP Quote Link to comment Share on other sites More sharing options...
ram_bh Posted January 12, 2018 Author Report Share Posted January 12, 2018 Kabiaba, O código é esse mesmo, só que uso a versão FW-1709. A única diferença é que em Dialog[2] e Dialog[3], criei opções como em Dialog[1]. O que está acontecendo com W10 é que some a barra superior da janela (onde fica o menu tradicional) e o alinhamento inferior da janela. Compare nas duas imagens... Já troquei as versões do xH e do BCC que acompanham a FW-1709 e continua na mesma... Alguma dica, palpite, chute ou solução!? hehehe Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 12, 2018 Report Share Posted January 12, 2018 Não faço idéia. Pode ser o manifest; crie um tópico no forum inter e mostre as imagens e o fonte como você alterou. abs. Quote Link to comment Share on other sites More sharing options...
ram_bh Posted January 12, 2018 Author Report Share Posted January 12, 2018 Não faço idéia. Pode ser o manifest; crie um tópico no forum inter e mostre as imagens e o fonte como você alterou. abs. Valeu! Quote Link to comment Share on other sites More sharing options...
ram_bh Posted January 13, 2018 Author Report Share Posted January 13, 2018 Resolvido com ajuda do Linares (Mestre!): "In FWH/samples/test2010.prg please comment out these lines:// SetParent( oOutLook2010:hWnd, oWnd:hWnd )and// SetParent( oSplit:hWnd, oWnd:hWnd )" Valeu! kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 15, 2018 Report Share Posted January 15, 2018 Documentando: // FWH Class TOutLook2010 - C:\FWH1701\SAMPLES\TEST2010.PRG #include "FiveWin.ch" #include "Splitter.ch" #include "OutLook.ch" static lExit := .F. //----------------------------------------------------------------------------// function Main() local oWnd, oOutLook2010, oStatusBar, oSplit, cCombo, oRad, nValue := 1 local oFont, oExBar, oPanel1, oPanel2, bClick := { | o | MsgInfo( o:GetText() ) } DEFINE WINDOW oWnd TITLE "FWH new Class TOutLook2010" MDI // ; // MENU BuildMenu() DEFINE OUTLOOK2010 oOutLook2010 OF oWnd ; PROMPTS "Mail", "Calendar", "Contacts", "" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" oWnd:oLeft = nil // Because the splitter is going to control the resize @ 0, 0 EXPLORERBAR oExBar OF oOutLook2010:aDialogs[ 1 ] ; SIZE oOutLook2010:aDialogs[ 1 ]:nWidth, oOutLook2010:aDialogs[ 1 ]:nHeight oPanel1 = oExBar:AddPanel( "One", "..\bitmaps\32x32\people.bmp" ) oPanel1:lSpecial = .T. oPanel1:AddLink( "First item", bClick, "..\bitmaps\16x16\additem.bmp" ) oPanel1:AddLink( "Second item", bClick, "..\bitmaps\16x16\copy.bmp" ) oPanel2 = oExBar:AddPanel( "Two", "..\bitmaps\32x32\case.bmp" ) oPanel2:AddLink( "First item", bClick, "..\bitmaps\16x16\adddbf.bmp" ) oPanel2:AddLink( "Second item", bClick, "..\bitmaps\16x16\delete0.bmp" ) oPanel2:AddLink( "Third item", bClick, "..\bitmaps\16x16\envelope.bmp" ) oPanel2:AddLink( "Fourth item", bClick, "..\bitmaps\16x16\copy.bmp" ) @ 1, 1 COMBOBOX cCombo ITEMS { "January", "February", "March", "April", "May" } ; OF oOutLook2010:aDialogs[ 2 ] SIZE 170, 100 DEFINE FONT oFont NAME "Arial" SIZE 0, -10 @ 12, 10 SAY Date() OF oOutLook2010:aDialogs[ 2 ] SIZE 80, 20 FONT oFont @ 3, 1 RADIO oRad VAR nValue OF oOutLook2010:aDialogs[ 2 ] ; ITEMS "&Day", "&Week", "&Month" SIZE 100, 20 oRad:SetFont( oFont ) @ 1, 2 BUTTON "New" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION BuildDlg() @ 3, 2 BUTTON "Edit" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Edit" ) @ 5, 2 BUTTON "Search" OF oOutLook2010:aDialogs[ 3 ] SIZE 80, 22 ACTION MsgInfo( "Search" ) DEFINE STATUSBAR oStatusBar PROMPT " FWH Class TOutLook2010" OF oWnd // se for windows 10, desligar este comando: // http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 // SetParent( oOutLook2010:hWnd, oWnd:hWnd ) oWnd:oClient = nil @ 0, 191 SPLITTER oSplit ; VERTICAL _3DLOOK ; PREVIOUS CONTROLS oOutLook2010 ; HINDS CONTROLS oWnd:oWndClient ; SIZE 4, oWnd:nHeight - 70 PIXEL ; OF oWnd // se for windows 10, desligar este comando: // http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 // SetParent( oSplit:hWnd, oWnd:hWnd ) ACTIVATE WINDOW oWnd ; ON RESIZE ( oSplit:Adjust(),; WndLeft( oWnd:oWndClient:hWnd, oSplit:nRight + 1 ),; WndWidth( oWnd:oWndClient:hWnd, oWnd:nWidth - oOutLook2010:nWidth - 23 ) ) ; // + 80 VALID lExit := .T. return nil //----------------------------------------------------------------------------// function BuildMenu() local oMenu MENU oMenu MENUITEM "&One" MENUITEM "&Two" MENUITEM "&Three" ENDMENU return oMenu //----------------------------------------------------------------------------// function BuildDlg() local oDlg, oOutL2010 DEFINE DIALOG oDlg RESOURCE "Test" REDEFINE OUTLOOK2010 oOutL2010 ID 110 OF oDlg ; PROMPTS "One", "Two", "Three" ; BITMAPS "..\bitmaps\mail.bmp", "..\bitmaps\calendar.bmp", "..\bitmaps\notes.bmp" ; DIALOGS "Page1", "Page2", "Page3" REDEFINE BUTTON ID 110 OF oOutL2010:aDialogs[ 1 ] ACTION MsgInfo( "Click" ) ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// function WinRun() while NoGPF() if lExit PostQuitMessage( 0 ) endif end return nil //----------------------------------------------------------------------------// #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> BOOL SysRefresh( void ); HB_FUNC( NOGPF ) { __try { hb_retl( SysRefresh() ); } __except ( ( hb_retl( TRUE ), TRUE ) ) {} } #pragma ENDDUMP /* Resolvido com ajuda do Linares (Mestre!): "In FWH/samples/test2010.prg please comment out these lines: // SetParent( oOutLook2010:hWnd, oWnd:hWnd ) and // SetParent( oSplit:hWnd, oWnd:hWnd )" Valeu! http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35132 */ 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.