TOutlook2010 and Message Bar are not support UNICODE

[dutch]

I've test with my application. TOutlook2003/2010 Group Header and Message Bar are not support Unicode.

image url upload

[Antonio Linares]

Dear Dutch,

Please add this line in Class TOutLook2010:

In Method New() and in Method Redefine():

::lUnicode = FW_SetUniCode()

[Antonio Linares]

Plese remember to do FW_SetUnicode( .T. ) at the very beginning of your app

[dutch]

Dear Antonio,

I added these lines as picture and add to Fivehx.lib but it doesn't work.

adult image

Dear Dutch,

Please add this line in Class TOutLook2010:

In Method New() and in Method Redefine():

::lUnicode = FW_SetUniCode()

[Antonio Linares]

Dutch,

Just to check that your changes are ok, please do this after creating the OutLook object:

MsgInfo( oOutLook:lUnicode )

[dutch]

Dear Antonio,

Yes, it return .T.

[Antonio Linares]

Dutch,

Class TOutLook2010Group uses Class TWindow Method Say() to paint the texts and such method is already unicode compatible,
so it should do it right.

Could you provide a small example to test here ? thanks

[dutch]

Dear Antonio,

Here is the sample. It has effected with color inside the Outlook2010 too as picture.

free photo upload

Code: Select all  Expand view

// FWH Class TOutLook2010

#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() ) }

FW_SetUnicode( .T. )

   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 

[cnavarro]

Dutch
I created a file with notepad outlookU.prg
I have pasted the contents of your example
I've recorded as outlookU.prg with UTF
Compiled and run
Is the image correct?

[dutch]

Dear Cristobal,

It's correct, thanks so much. The color effect in Outlook2010, how to solve it?

Thank you in advance.

[cnavarro]

Dear Canavarro,

Thanks so much. The color effect in Outlook2010, how to solve it?

Thank you in advance.

Dear Dutch
Sorry, I do not understand well

[dutch]

It has shade of pink color in bmp in ONE and TWO explorer.

[Antonio Linares]

Dutch,

Were the colors fine with FWH 15.08 ?

[dutch]

I just saw when use FW_SetUnicode(.T.), It will be fine when remark it.
I don't remember 15.08,

[Antonio Linares]

Dutch,

Do you mean that if you don't use FW_SetUnicode() then the bitmaps are properly painted ?