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.
// 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
1 24 ".\winxp\WindowsXP.Manifest"
test ICON "..\icons\fivewin.ico"