Hello,

I can't to run your project

Hello,

I've checked our VB sample and key assign problem not found. May be I need to do additional some actions? 

I've checked with VB6 ActionsSample.

Regards,

Artem Gontarenko

Hi, I have a VB6 MDIForm with a CommandBars control, and have aligned a PictureBox on the left. In the CommandBars_RepositionAlignedControls event handle, I call CommandBars.MoveAlignedControl on the PictureBox, and everything looks good.

However, I want to change the width of the PictureBox at runtime. If the CommandBars isn't on the form, it works as expected. However, when the CommandBars is on the form, changing the Width property of the PictureBox doesn't do anything: no visible change, and if I set the Width, then read it back, it's unchanged.

A small project that demonstrates the problem: Create a new VB6 project that contains an MDIForm. On the MDIForm, put a CommandBars control named CommandBars and a PictureBox named Picture1. Set the Align of Picture1 to Align Left and the Width to 2000. Put a CommandButton named Command1 inside Picture1, near the upper-left.

If you remove the CommandBars from the form and comment out the lines that reference it, it works as expected: Clicking the button toggles the PictureBox width between two sizes. With CommandBars, clicking the button doesn't do anything, and the Debug message says "Set to 1000, actual width is 2004"

SuitePro 22.0.0 on Windows 11.

I's very important also for us, we have to plan 2026 porting.

TIA

Davide

In Source/Controls/Static/XTPMarkupStatic.cpp, a growing buffer is not reallocated correctly.

I didn't duplicate this in the SkinMDISample. At first. But I saw and unchecked the Apply menus check box on the Skins and Themes window and the sample has problems. They are a bit different from our app in as clicking the system menu shows the app menu but the issue where the app menu shows up but doesn't work. The different behaviors turned out to me due to us using command bars. Below is code I added to use the help about command to show the problem. Ignore commented code and ignore the filtering I added just to verify it works when skinning is disabled for the window. Sorry for the big code drop but I don't see an "attach file" here.

// App command to run the dialog
// NOTE: Set this to 0 to demonstrate the menu bar NOT appearing (the bug)
//       Set this to 1 to show the workaround (filtering the window class)
#define USE_WINDOW_FILTER_WORKAROUND 0

static const TCHAR s_szAddInManagerDialogClass[] = TEXT("AddInManagerDialogClass");
static const TCHAR s_szMenuWindowClass[] = TEXT("MenuWindowClass");
static const TCHAR s_szAddInManagerMenuText[] = TEXT("Item 1");
static const UINT s_nAddInManagerMenuItem = 1001;
static const UINT s_nAddInManagerPopupCmd = 50001;
static HBITMAP s_hAddInManagerMenuBitmap = NULL;

//static LRESULT CALLBACK MenuWindowProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
//{
//    switch (message)
//    {
//    case WM_COMMAND:
//        if (LOWORD(wParam) == s_nAddInManagerMenuItem)
//        {
//            MessageBox(hWnd, TEXT("Menu item clicked!"), TEXT("Info"), MB_OK);
//            return 0;
//        }
//        break;
//
//    case WM_CLOSE:
//        DestroyWindow(hWnd);
//        return 0;
//
//    case WM_DESTROY:
//        PostQuitMessage(0);
//        return 0;
//    }
//
//    return DefWindowProc(hWnd, message, wParam, lParam);
//}

static LRESULT CALLBACK AddInManagerWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
{
    switch (message)
    {
    case WM_MEASUREITEM:
        {
            MEASUREITEMSTRUCT* pMeasureItemStruct = reinterpret_cast<MEASUREITEMSTRUCT*>(lParam);
            if (pMeasureItemStruct && pMeasureItemStruct->CtlType == ODT_MENU && pMeasureItemStruct->itemID == s_nAddInManagerMenuItem)
            {
                HDC hDC = ::GetDC(hWnd);
                if (hDC)
                {
                    SIZE size = { 0 };
                   BITMAP bmpInfo = { 0 };
                    HFONT hFont = reinterpret_cast<HFONT>(::SendMessage(hWnd, WM_GETFONT, 0, 0));
                    HFONT hOldFont = hFont ? reinterpret_cast<HFONT>(::SelectObject(hDC, hFont)) : NULL;

                    ::GetTextExtentPoint32(hDC, s_szAddInManagerMenuText, lstrlen(s_szAddInManagerMenuText), &size);
                    if (s_hAddInManagerMenuBitmap)
                    {
                        ::GetObject(s_hAddInManagerMenuBitmap, sizeof(BITMAP), &bmpInfo);
                    }

                    if (hOldFont)
                    {
                        ::SelectObject(hDC, hOldFont);
                    }

                    ::ReleaseDC(hWnd, hDC);

                 pMeasureItemStruct->itemWidth = bmpInfo.bmWidth + size.cx + (::GetSystemMetrics(SM_CXMENUCHECK) * 2) + 8;
                    pMeasureItemStruct->itemHeight = max(size.cy, bmpInfo.bmHeight) + 6;
                    return TRUE;
                }
            }
        }
        break;

    case WM_DRAWITEM:
        {
            DRAWITEMSTRUCT* pDrawItemStruct = reinterpret_cast<DRAWITEMSTRUCT*>(lParam);
            if (pDrawItemStruct && pDrawItemStruct->CtlType == ODT_MENU && pDrawItemStruct->itemID == s_nAddInManagerMenuItem)
            {
                RECT rcItem = pDrawItemStruct->rcItem;
                COLORREF crText = (pDrawItemStruct->itemState & ODS_SELECTED) ? ::GetSysColor(COLOR_HIGHLIGHTTEXT) : RGB(255, 0, 0);
                BITMAP bmpInfo = { 0 };

                ::FillRect(pDrawItemStruct->hDC, &rcItem, ::GetSysColorBrush((pDrawItemStruct->itemState & ODS_SELECTED) ? COLOR_HIGHLIGHT : COLOR_MENU));

                int nOldBkMode = ::SetBkMode(pDrawItemStruct->hDC, TRANSPARENT);
                COLORREF crOldText = ::SetTextColor(pDrawItemStruct->hDC, crText);
                HFONT hFont = reinterpret_cast<HFONT>(::SendMessage(hWnd, WM_GETFONT, 0, 0));
                HFONT hOldFont = hFont ? reinterpret_cast<HFONT>(::SelectObject(pDrawItemStruct->hDC, hFont)) : NULL;

                if (s_hAddInManagerMenuBitmap)
                {
                    ::GetObject(s_hAddInManagerMenuBitmap, sizeof(BITMAP), &bmpInfo);
                    HDC hdcBitmap = ::CreateCompatibleDC(pDrawItemStruct->hDC);
                    if (hdcBitmap)
                    {
                        HBITMAP hOldBitmap = reinterpret_cast<HBITMAP>(::SelectObject(hdcBitmap, s_hAddInManagerMenuBitmap));
                        int nBitmapTop = rcItem.top + ((rcItem.bottom - rcItem.top) - bmpInfo.bmHeight) / 2;
                        ::BitBlt(pDrawItemStruct->hDC,
                            rcItem.left + 2,
                            nBitmapTop,
                            bmpInfo.bmWidth,
                            bmpInfo.bmHeight,
                            hdcBitmap,
                            0,
                            0,
                            SRCCOPY);
                        ::SelectObject(hdcBitmap, hOldBitmap);
                        ::DeleteDC(hdcBitmap);
                    }
                }

              rcItem.left += max(::GetSystemMetrics(SM_CXMENUCHECK), bmpInfo.bmWidth) + 6;
                ::DrawText(pDrawItemStruct->hDC, s_szAddInManagerMenuText, -1, &rcItem, DT_SINGLELINE | DT_VCENTER | DT_LEFT);

                if (pDrawItemStruct->itemState & ODS_FOCUS)
                {
                    ::DrawFocusRect(pDrawItemStruct->hDC, &pDrawItemStruct->rcItem);
                }

                if (hOldFont)
                {
                    ::SelectObject(pDrawItemStruct->hDC, hOldFont);
                }

                ::SetTextColor(pDrawItemStruct->hDC, crOldText);
                ::SetBkMode(pDrawItemStruct->hDC, nOldBkMode);

                return TRUE;
            }
        }
        break;

    case WM_CLOSE:
        DestroyWindow(hWnd);
        return 0;
    }

    return DefDlgProc(hWnd, message, wParam, lParam);
}

static const std::map<std::string, int> kStringToInt
{
    { "MenuWindowClass", 1 },
    { "AddInManagerDialogClass", 1 },
};
static const std::map<std::wstring, int> kWStringToInt
{
    { L"MenuWindowClass", 1 },
    { L"AddInManagerDialogClass", 1 },
};

struct JIXTPSkinManagerWindowFilter : IXTPSkinManagerWindowFilter
{
    ~JIXTPSkinManagerWindowFilter()
    {
    }

    // IXTPSkinManagerWindowFilter
    BOOL FilterWindowClass(LPCSTR lpszClassName)
    {
        // Trying to include a a part copy of a Parasolid file resulted in a lockup due to CodeJock trying to skinning the DDEMLEvent window.
        // We need to prevent skinning of this window class (which is not visible to the end user) as it is an internal windows class.

        return lpszClassName && (kStringToInt.find(lpszClassName) != kStringToInt.end());
    }
    BOOL FilterWindowClass(LPCWSTR lpszClassName)
    {
        // Trying to include a a part copy of a Parasolid file resulted in a lockup due to CodeJock trying to skinning the DDEMLEvent window.
        // We need to prevent skinning of this window class (which is not visible to the end user) as it is an internal windows class.
        return lpszClassName && (kWStringToInt.find(lpszClassName) != kWStringToInt.end());
    }
    BOOL FilterWindow(HWND hWnd,LPCTSTR lpszClassName,LPCREATESTRUCT lpcs)
    {
        // Trying to include a a part copy of a Parasolid file resulted in a lockup due to CodeJock trying to skinning the DDEMLEvent window.
        // We need to prevent skinning of this window class (which is not visible to the end user) as it is an internal windows class.
        return lpszClassName && (kWStringToInt.find(lpszClassName) != kWStringToInt.end());
    }
};

static JIXTPSkinManagerWindowFilter s_JSkinManagerWindowFilter;

/////////////////////////////////////////////////////////////////////////////
// ISSUE DEMONSTRATION FOR CODEJOCK:
// 
// This code creates a window with a menu bar using CreateWindowEx and DefDlgProc.
// This is the EXACT same code used in Solid Edge by a third-party add-in developer.
// 
// ORIGINAL ISSUE IN SOLID EDGE (with skin applied):
//   - Menu bar IS visible
//   - BUT clicking menu items does NOT display submenus (dropdowns don't appear)
//   - Without skin, everything works fine
// 
// ISSUE IN THIS SAMPLE (with skin applied):
//   - Menu bar does NOT even appear at all!
//   - Cannot test the submenu dropdown issue because menu bar itself is missing
//     - BUT, in the sample uncheck the apply menus button and then you see what Solid Edge
//     saw before my CJ code changes - The window menu appears but clicking does nothing.
//     Also, click the system menu and the app menu does appear instead of the system menu.
//     I did not make that code change in Solid Edge to remove xtpSkinApplyMenus. So, that is another difference
//     between Solid Edge with no CJ skin code changes I made to address the issue and this sample.
//     
//     However, we use command bars (ribbon) code and I see thecommand bars hook calls DisableSkinFrameOption.
//     So, In Solid Edge SkinManager::m_dwApplyOptions is 0x1d while in this app it is 0x17 when I uncheck
//     that apply menus box.
// 
//       Now that I know the options are different, I can exactly replicate the issue Solid Edge has by
//     setting a breakpoint in the CXTPSkinManager constructor right after m_dwApplyOptions is initialized
//     and then setting it to 0x1d. Do that and clicking the app menu does nothing and clicking the system
//     menu shows that menu.
// 
// 
// 
// WORKAROUND: Use SetWindowFilter to exclude the window class from skinning
//   - With filter: Menu bar appears and is functional
//   - Without filter: Menu bar doesn't appear in this sample
// 
// TO DEMONSTRATE THE ISSUE:
//   1. Set USE_WINDOW_FILTER_WORKAROUND to 0 (above)
//   2. Rebuild and run - menu bar will NOT appear (can't even test submenu issue)
//   3. Set USE_WINDOW_FILTER_WORKAROUND to 1 (above)
//   4. Rebuild and run - menu bar appears, test if clicking "Menu" shows "Item 1" submenu
//
// QUESTIONS FOR CODEJOCK:
//   1. Why does the menu bar appear in Solid Edge but not in this sample?
//   2. Why don't menu submenus display when clicked (in Solid Edge with skin)?
//   3. Is there a proper fix that doesn't require filtering out the window?
/////////////////////////////////////////////////////////////////////////////
void CSkinMDISampleApp::OnAppAbout()
{
#if USE_WINDOW_FILTER_WORKAROUND
    // WORKAROUND: Filter the window class to prevent SkinFramework from interfering with menu
    // NOTE: In Solid Edge, menu bar appears WITHOUT this filter, but submenus don't work
    //       In this sample, menu bar doesn't even appear WITHOUT this filter
    CXTPSkinManager* pTheSkinnyOne = XTPSkinManager();

    if( pTheSkinnyOne )
    {
        pTheSkinnyOne->SetWindowFilter(&s_JSkinManagerWindowFilter);
    }
#endif

  HWND hDialog;
  WNDCLASSEX wc = { 0 };
  wc.cbSize = sizeof(WNDCLASSEX);
  wc.lpfnWndProc = AddInManagerWndProc;
  wc.hInstance = GetModuleHandle(NULL);
  wc.lpszClassName = s_szAddInManagerDialogClass;
  wc.cbWndExtra = DLGWINDOWEXTRA;
  if (!RegisterClassEx(&wc) && GetLastError() != ERROR_CLASS_ALREADY_EXISTS)
  {
      return;
  }

  hDialog = CreateWindowEx(0, s_szAddInManagerDialogClass, TEXT("Dialog with menu"),
    WS_OVERLAPPEDWINDOW | WS_VISIBLE,
    100, 100, 500, 300, NULL, NULL, GetModuleHandle(NULL), NULL);
  if (!hDialog)
  {
      return;
  }

  HMENU hMenu = ::CreateMenu();
  HMENU hSubMenu = ::CreatePopupMenu();
  AppendMenu(hSubMenu, MF_POPUP /*MF_OWNERDRAW*/, s_nAddInManagerMenuItem, s_szAddInManagerMenuText);
  AppendMenu(hMenu, MF_POPUP, (UINT_PTR)hSubMenu, TEXT("Menu"));

  SetMenu(hDialog, hMenu);
  DrawMenuBar(hDialog);
}

// App command to run the dialog
//void CSkinMDISampleApp::OnAppAbout()
//{
//    CAboutDlg aboutDlg;
//    aboutDlg.DoModal();
//}