Button Bar Problem with 11.06

[Gale FORd]

I am having a problem with the button bar after upgrading.
If I have a button with a menu it does not widen the button so the little down arrow may overlap bmp (2nd image below.
If I add the 2007 clause to the button bar it does draw the button correctly but then an @ say on the bar does not show background properly (3rd image below).

See 3 images below.

[nageswaragunupudi]

We shall test the problems reported.
In the meantime can you please let us know with what previous version are you comparing?

[Gale FORd]

FWH 10.9 September 2010

[Gale FORd]

If I add 1 24 "WindowsXP.Manifest" to rc it works as expected.
I had a problem with checkboxes and other issues before so I did not use it. Also on the test????.prg in samples I was not using it.

So you can narrow the problem with buttons down to:
1. No WindowsXP.Manifest
2. Define buttonbar without 2007
3. Define button with a menu and noborder

The problem with the @ say on buttonbar with 2007 clause still exists.

[Gale FORd]

Ok, the same program with the same WindowsXP.Manifest works on a workstation (Windows 7) but does not work on Citrix/Remote Desktop (Windows 2003 Server).
On Citrix and Remote Desktop the buttons look like the original problem noted before.

I also want to show you a problem with the title when running on Citrix/Remote Desktop. That problem has been around for a very long time, I have just not commented on it before.
The main window (parent) shows garbage in title.

The 2 images below are running the same small test program, 1 running locally (Windows 7) and 1 running through Citrix/Remote Desktop (windows 2003 server).




Here is the testmdi.prg code.

Code: Select all

// Working with MDI enviroments

#include "FiveWin.ch"
static oWnd

//----------------------------------------------------------------------------//

function Main()
   local oWndEdit, oBar, oIcon, oImage
   local cName := "FiveWin power"
   local oFont
   local oPopup

   SetResDebug(.t.)
   DEFINE FONT oFont NAME "Arial" SIZE 10, 16

   DEFINE ICON oIcon RESOURCE "test"
   MENU oPopup POPUP
      MENUITEM "Test" WHEN .f.
      MENUITEM "Test" ACTION MsgInfo( "Any action" )
      MENU
         MENUITEM "Another" WHEN .f.
         MENUITEM "More..."
      ENDMENU
   ENDMENU

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
      MDI ;
      MENU BuildMenu() ;
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
      FONT oFont ;
      TITLE "I am a MDI Child" COLOR "W+/R"

   @ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"

   DEFINE BUTTONBAR oBar _3D OF oWndEdit

   DEFINE BUTTON OF oBar FILE "Open.bmp" GROUP ;
      ACTION MsgInfo( FWVERSION ) ;
      MESSAGE "Any BMP File here..." ;
      MENU oPopup noborder

   DEFINE BUTTON OF oBar  noborder

   SET MESSAGE OF oWndEdit TO "Child Window"

   ACTIVATE WINDOW oWndEdit

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Want to End ?" )

   // oFont := nil
   RELEASE FONT oFont
   CHECKRES()
return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Information"
      MENU
         MENUITEM "&About..." ACTION MsgAbout( "FiveWin", "FiveTech" )
         SEPARATOR
         MENUITEM "&End..." ACTION oWnd:End()
      ENDMENU

      MENUITEM "&Child Windows"
      MENU
         MENUITEM "&Tiled" ACTION oWnd:Tile()
         MENUITEM "&Cascade" ACTION oWnd:Cascade()
      ENDMENU
   ENDMENU

return oMenu

//----------------------------------------------------------------------------//
 

Here is the testmdi.rc

Code: Select all

1 24 ".\winxp\WindowsXP.Manifest"
test ICON "..\icons\fivewin.ico"
 

[nageswaragunupudi]

Thank you for your narrowing down the problems to specific platforms. This is of a great help.

We shall try to find the right fixes.

[Gale FORd]

Another buttonbar problem. Without 2007 clause and with prompt on button, the bmp and text overlap. It does not move the bmp up and the text down.
I tried adding TOP to the button command but no help.
Is there something we can do about these button/buttonbar problems. I am going to put the old version back if this is not resolved pretty soon.

Code: Select all

#include "FiveWin.ch"
static oWnd

function Main()
   local oWndEdit, oBar, oIcon, oImage
   local cName := "FiveWin power"
   local oFont
   local oPopup

   SetResDebug(.t.)
   DEFINE FONT oFont NAME "Arial" SIZE 10, 16

   DEFINE ICON oIcon RESOURCE "test"
   MENU oPopup POPUP
      MENUITEM "Test" WHEN .f.
      MENUITEM "Test" ACTION MsgInfo( "Any action" )
      MENU
         MENUITEM "Another" WHEN .f.
         MENUITEM "More..."
      ENDMENU
   ENDMENU

   DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
      MDI ;
      MENU BuildMenu() ;
      ICON oIcon

   SET MESSAGE OF oWnd TO "Main Window"

   DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
      FONT oFont ;
      TITLE "I am a MDI Child" COLOR "W+/R"

   @ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"

   DEFINE BUTTONBAR oBar _3D SIZE 36,38 OF oWndEdit

   DEFINE BUTTON OF oBar FILE "Open.bmp" GROUP ;
      PROMPT "Open" ;
      ACTION MsgInfo( FWVERSION ) ;
      MESSAGE "Any BMP File here..." ;
      MENU oPopup noborder

   DEFINE BUTTON OF oBar FILE "Open.bmp" GROUP ;
      PROMPT "Open" ;
      ACTION MsgInfo( FWVERSION ) ;
      MESSAGE "Any BMP File here..." ;
      TOP ;
      MENU oPopup noborder

   DEFINE BUTTON OF oBar FILE "Open.bmp" GROUP ;
      PROMPT "Open" ;
      ACTION MsgInfo( FWVERSION ) ;
      MESSAGE "Any BMP File here..." ;
      BOTTOM ;
      MENU oPopup noborder

   DEFINE BUTTON OF oBar  noborder

   SET MESSAGE OF oWndEdit TO "Child Window"

   ACTIVATE WINDOW oWndEdit

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      VALID MsgYesNo( "Want to End ?" )

   // oFont := nil
   RELEASE FONT oFont
   CHECKRES()
return nil

//----------------------------------------------------------------------------//

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Information"
      MENU
         MENUITEM "&About..." ACTION MsgAbout( "FiveWin", "FiveTech" )
         SEPARATOR
         MENUITEM "&End..." ACTION oWnd:End()
      ENDMENU

      MENUITEM "&Child Windows"
      MENU
         MENUITEM "&Tiled" ACTION oWnd:Tile()
         MENUITEM "&Cascade" ACTION oWnd:Cascade()
      ENDMENU
   ENDMENU

return oMenu
 

[nageswaragunupudi]

I think it is a matter of providing enough space.
With buttonbar size 40,48 both the bitmaps and prompts are accommodated well.

[Gale FORd]

I don't think so.

I think the problem is running it on Citrix and/or Remote Desktop. If you run it from the console it works ok. I have tried using larger size but it did not help.
If you read what I have written in this thread you will see there are several problems when running on Citrix or Remote Desktop that does not show up on console.

[IBTC]

I think the problem is running it on Citrix and/or Remote Desktop.

Maybe the reason on Citrix and/or Remote Desktop is that there is no theme support, so we have the same problems like without WindowsXP.Manifest running on Windows locally.

[Gale FORd]

After retesting the different options today, it does appear that the prompt/bitmap placement is working correctly.

It does act like there is no theme support. When I remove WindowsXP.manifest it acts the same on my console as it does through Citrix and Remote Desktop. With WindowsXP.manifest it works correctly on my console but does not work correctly in Citrix or Remote Desktop.

The problem with buttonbar as I have tested it is with Citrix / Remote Desktop, no 2007 clause = mouse over not correct and the down arrow part of button does not expand the right side with addition if menu.