Sign in to follow this  
Followers 0
ram_bh

Problemas com FW + Win10 (resolvido!)

12 posts in this topic

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

Share this post


Link to post
Share on other sites

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


 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites
 

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!

Share this post


Link to post
Share on other sites

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 likes this

Share this post


Link to post
Share on other sites

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
*/


 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0