To Antonio

[Silvio.Falconi]

Dear Antonio,

Sorry,

I talked also with Cristobal

the problem is this

I compiled my app with Febrary 2016 Release

ON Seven
Run ok I not have problems

this the snapshot on seven




ON Winxp sp3
I have problem on a Vmenu class of Paco use two function Creafbold and CreaFcapt

this the snapshot on Win xp



the last Release of Fwh run ok on winxp was January 2015, perhaps something was modified ?

[Antonio Linares]

Silvio,

source/function/c5cnew.c has not been modified since 2015-10-25

List of changes:

Antonio Linares
d7c741e
* functions GETFONTMENU() and GETFONTHEIGHT() have been moved to fonts.c
2015-10-25
Cristobal Navarro
a5785bd
Minor bug fixed ( Menus in dialog ) Cleany and organitation of code Support Items multiline Format Items multiline
2015-10-15
NAGESWARARAO GUNUPUDI
ce50b4e
c5cnew.c: function GetFontMenu() made compatible with 64 bit
2015-10-13
Antonio Linares
f030f1d
* Fix for ExtTextOut() * Removed MinGW warning
2015-09-29
Cristobal Navarro
e2e13e5
* Cleaning unnecessary code * Enhancement: TMenu, Font to the window does not apply to menu * New: DATA of TMenu: nFactor, visual adjustment percentage for the menus to change the font size of the operating system * New: DATA of TMenu: nRightSp, set number of spaces to the right of the item to set the width of menus
2015-09-29
Cristobal Navarro
2ac831d
Redefine menus and redefine menuitem Changes of menu.ch
2015-07-01
Antonio Linares
5ee9fb6
* Comented two functions that were causing unresolved externals splitpath() and sprintf() with VS2013
2015-06-07
Antonio Linares
405065d
* New menus from Cristobal. and samples\prucmenu.prg and .rc
2015-06-02

[Silvio.Falconi]

Antonio,
I not understood how the same code on windows Seven run ok and on win xp run bad

[Antonio Linares]

Silvio,

Could you provide a small example to reproduce it ?

[Silvio.Falconi]

do you have vmenu class or I must send to you ?

[Silvio.Falconi]

the test.prg

Code: Select all  Expand view

#include "fivewin.ch"
#include "vmenu.ch"



static oWnd


static cFwhPath   := "c:\work\fwh\"

function main()
   local cPath    := cFwhPath + "samples\"
   LOCAL nSplit := 257

   local oCont,oBar




 USE ( cPath + "CUSTOMER" ) NEW ALIAS CUST SHARED

DEFINE WINDOW oWnd TITLE "test Vtaskbar class  "





    IF IsWinXp()

      @ 02, 05 VMENU oCont SIZE nSplit-10, 40 OF oWnd  ;
      COLOR CLR_BLACK, GetSysColor(15)       ;
      COLORBORDE RGB( 0, 0, 0 )              ;
      FILLED                                 ;
      COLORSELECT 0, CLR_WHITE               ;
      HEIGHT ITEM 18 BORDER

     DEFINE TITLE OF oCont   ;
     CAPTION i18n("Rec. ")+tran(CUST->(OrdKeyNo()),'@E 999,999')+" / "+tran(CUST->(OrdKeyCount()),'@E 999,999') ;
     HEIGHT 25           ;
     COLOR GetSysColor(9), GetSysColor(3), GetSysColor(2);
     VERTICALGRADIENT;
     IMAGE "silla.bmp" ;
     RADIOBTN 15 ROUNDSQUARE


      @ 54, 05 VMENU oBar SIZE nSplit-10, 120 OF oWnd  ;
      COLOR CLR_BLACK, GetSysColor(15)       ;
      COLORBORDE RGB( 0, 0, 0 )              ;
      FILLED UNDERLINE  ;  // BORDER
      COLORSELECT 0, CLR_WHITE ;
      HEIGHT ITEM 22 BORDER

         DEFINE TITLE OF oBar       ;
       CAPTION "Archivio attività" ;
      HEIGHT 24               ;
      COLOR GetSysColor(9), GetSysColor(3), GetSysColor(2);
      VERTICALGRADIENT;
      IMGBTN "TB_UP", "TB_DOWN" ;
      OPENCLOSE RADIOBTN 15 ROUNDSQUARE


         DEFINE VMENUITEM  OF  oBar  CAPTION "              " HEIGHT 12 ;
         COLOR 0, GetSysColor(15)  NOHILITE GROUP




      ELSE //win7


      @ 02, 05 VMENU oCont SIZE nSplit-10, 40 OF oWnd  ;
      COLOR CLR_BLACK, RGB(143,172,230)        ;
      FILLED  BORDER ;  // BORDER
      COLORBORDE RGB( 0, 0, 0 )              ;
      COLORSELECT 0, CLR_WHITE ;
      HEIGHT ITEM 15

   DEFINE TITLE OF oCont ;
       CAPTION i18n("Rec. ")+tran(CUST->(OrdKeyNo()),'@E 999,999')+" / "+tran(CUST->(OrdKeyCount()),'@E 999,999') ;
      HEIGHT 22 ;
      COLOR GetSysColor(9), GetSysColor(3), GetSysColor(2) ;
      VERTICALGRADIENT     ;
      IMAGE "silla.bmp" ;
      RADIOBTN 15


   @ 54, 05 VMENU oBar SIZE nSplit-10, 120 OF oWnd  ;
      COLOR CLR_BLACK,     GetSysColor(15)  ;
      HEIGHT ITEM 22 XBOX

      oBar:nCLRBox := MIN(GetSysColor(13), GetSysColor(14))

      DEFINE TITLE OF oBar ;
      CAPTION "Archivio attività" ;
      HEIGHT 20 ;
      COLOR GetSysColor(9), GetSysColor(3), GetSysColor(2) ;
     OPENCLOSE VERTICALGRADIENT

      DEFINE VMENUITEM  OF  oBar  CAPTION "              " HEIGHT 12 COLOR 0, GetSysColor(15)  NOHILITE GROUP



      ENDIF




     DEFINE VMENUITEM OF oBar        ;
      CAPTION "Aggiungere una attività" ;
      IMAGE "Image5.bmp"       ;
      ACTION NIL ;
      LEFT 10

   DEFINE VMENUITEM OF oBar        ;
      CAPTION "Modificare una attività" ;
      IMAGE "Image5.bmp"       ;
      ACTION  NIL;
      LEFT 10
    DEFINE VMENUITEM OF oBar        ;
      CAPTION "Duplica una attività" ;
      IMAGE "Image5.bmp"       ;
      ACTION  NIL;
      LEFT 10


ACTIVATE WINDOW oWnd MAXIMIZED







return nil

[cnavarro]

Silvio

You can send the class?

[Silvio.Falconi]

sent also to antonio

[cnavarro]

I have emailed .prg with one solution, problem is with class

Problem not is C5New.prg, not problem with functions CreaFBold or CreaFCapt

You use VTaskBar, why not use TOutlook?

Regards

[Silvio.Falconi]

the problem is not on VtaskBar Class!!!

I compiled with oldest C5cNew.prg and run ok also with Win Xp

Someone has modified something on new C5cnew.prg of fwh16.02 I not Know wich!!

SystemMetrics WIN XP is different more win Seven ?
and why on fwh15.01 run ok ?
it is very strange !!


PAtience.

For resolve my problem on WInXP if I wish use fwh last version
I must declare FONT TYpe for each control DEFINE TITLE when the app is on xp
when it is on seven I not have problem

Crisobal for the question of toutlok class

I use TFSDI+VTASKBAR+XBROWSE+TAB NOT MDI MAIN WINDOW (search fsdi2006)

perhaps because I tried many solutions and all not run ok

I lose much time on past years to found a good solution

for a sample :

the Toutlook class and the explorerbar class have problem with dialog NOT 4 STYLE .... it run good on windows class

it make easy ERROR DEF CONTROL if I try to insert it on a dialog or crash

the explorer class use urllink class to create items instead of a menu and I cannot change the type (see vitem)

I tried these classes many times and I not found a good solution

From 5 year I use TFSDI+VTASKBAR+XBROWSE+TAB with not problems until now ( only for xp)



on PICTURE you can see a MainWindow with toolbar( rebar)
at centre there is a dialog NOT 4 style with Vtaskbar at left, a splitter, a xbrowse at right and a tab control ( old style) to bottom
all are resize when the user resize the main window


thanks a lot

[Silvio.Falconi]

Solution : Declare Font into Vtaskbar control !!