|
2004-06-15 08:22
|
MenuBug1.gif (9,349 bytes) |
|
2004-06-15 08:22
|
MenuBug2.gif (9,497 bytes) |
|
2004-06-15 08:22
|
MenuBug3.gif (9,123 bytes) |
|
|
Note to me: It seems the drawing of the border is not done when not selecting an item. Will investigate. |
|
|
I cannot reproduce this. Does this happen at Runtime ? |
|
|
Yes, it happens at runtime. I'm using Win2000. It seems to be no bug under XP. Well I'll check this with a new snapshot of JVCL and report results. |
|
2004-07-06 01:31
|
Menu1.jpg (24,736 bytes) |
|
2004-07-06 01:31
|
Menu2.jpg (23,998 bytes) |
|
|
I also have a similar error with submenus using the JvMainMenu component with the XP Style. Show images Menu1.jpg and Menu2.jpg |
|
|
I've checked new version of jvMenus... This bug continues to appear in Win2K, but again all OK under WinXP. Menu has a flat look under XP (always) and under Win2K (after cursor moving - MenuBug2.gif, MenuBug3.gif). But after first dropdown it has 3D look (MenuBug1.gif). |
|
|
I don't have Windows 2000 installed here and as a result cannot test to try to find a bug fix. However, you (or others) can help me figure out what is going wrong. Here are my instructions: Use a TJvMainMenu with XP style and a few items. Run the program. Click on one of the top menu items to open the menu and DO NOT move the mouse any further. The bug is that the border of the menu is not painted flat and still has its 3D look. Look on the top left corner of the screen in case the drawing appears there (this is the most likely place, but look on the entire screen). If it does, let me know, I'll have to think as to why. If not, then look in TJvXPMenuItemPainter.Paint and comment out the code that tests for the Owner not being the CanvasWindow (from 3085 to 3088). Try again and let me know the outcome. The painting code for the border is in the Paint method of TJvXPMenuItemPainter, there shouldn't be any need to look anywhere else. Thanks for your help. |
|
|
Just a thought: does this bug appear in XP when running with the classic look? In that case, it should be easy enough testing it even on XP. |
|
|
No, it doesn't, I turned off all theme support under XP. |
|
|
The bug only appears in Win2K when option "Display Properties" - "Effects" - "Use transition effect for menus and tooltips" is turned ON ! TO obones: your instructions I haven't tried yet, but can do it soon. AlexeiR. |
|
|
Ok, thanks for the tip about the effects on the menus. I'll try to turn them on in WinXP and see how it goes. |
|
|
It's strange again but the bug seems doesn't appears under XP even when effects is turned on... |
|
|
The menu shows the same error... but there is Windows XP SP1. So the bug appears on Windows XP as well. |
|
|
I've had similiar problems with the XP style in the past. It had come to mind just now and I realized the difference between JVCL's XP menu drawing and others that I have seen: Office XP's (and Delphi 7's IDE) sub-menus do not overlap their parent menu. They do share a 1 pixel common border. If the sub-menus were placed as such, then the Menu2.jpg problem would not occur. |
|
2005-05-20 21:35
|
viso_xp_menu_example.png (3,966 bytes) |
|
|
That is right, however, I do not know how to tell the operating system the position where I want the submenu to appear (yet). If anyone has any idea as to how to do this, I'd be glad to hear about it. |
|
|
I get the same bug (MenuBug1-3) on an XP system with theming enabled when using XP menu style. |
|
|
Possible Workaround - Please test In procedure TJvXPMenuItemPainter.Paint Change 1: // three lines before right <- Find comment and change the lines below // if IsRightToLeft then // Pen.Color := ImageBackgroundColor // else // Pen.Color := clWhite; Pen.Color := clWhite; // KV Change 2: // two lines after left <- Find comment and change the lines below // if IsRightToLeft then // Pen.Color := clWhite // else // Pen.Color := ImageBackgroundColor; Pen.Color := clWhite; // KV Change 3: In TJvXPMenuItemPainter.Paint often CanvasWindow and WRect are invalid //KV GetWindowRect(CanvasWindow, WRect); <- replace with code below if not GetWindowRect(CanvasWindow, WRect) then begin inherited Paint(Item, ItemRect, State); Exit; end; |
|
|
A few more changes (4 replaced lines - see below marked KV). With these and the changes in the previous note XP menus work well for me. Still in procedure TJvXPMenuItemPainter.Paint // and one more line on one side, depending on the bidi mode // the line will only be drawn if the drawing rectangle is smaller // than the borders // also add a line of image background at the top and bottom // of the column to look even more like the real XP menus. Pen.Style := psSolid; Pen.Color := ImageBackgroundColor; if not IsRightToLeft then begin if ItemRect.Left > 0 then begin MoveTo(WRect.Left + 3, WRect.Top + ItemRect.Top + 3); LineTo(WRect.Left + 3, WRect.Top + ItemRect.Bottom + 3); //MoveTo(WRect.Left + 1, WRect.Top + 2);//replaced MoveTo(WRect.Left + 3, WRect.Top + 2);//KV LineTo(WRect.Left + 1 + CheckMarkWidth + ImageMargin.Left + ImageWidth + ImageMargin.Right + 1, WRect.Top + 2); //MoveTo(WRect.Left + 1, WRect.Bottom - 3);//replaced MoveTo(WRect.Left + 3, WRect.Bottom - 3);//KV LineTo(WRect.Left + 1 + CheckMarkWidth + ImageMargin.Left + ImageWidth + ImageMargin.Right + 1, WRect.Bottom - 3); end else begin //MoveTo(WRect.Left + 1, WRect.Top + 2); //replaced MoveTo(WRect.Left + 3, WRect.Top + 2); //KV LineTo(WRect.Left + 1 + CheckMarkWidth + ImageMargin.Left + ImageWidth + ImageMargin.Right, WRect.Top + 2); //MoveTo(WRect.Left + 1, WRect.Bottom - 3); // replaced MoveTo(WRect.Left + 3, WRect.Bottom - 3); //KV LineTo(WRect.Left + 1 + CheckMarkWidth + ImageMargin.Left + ImageWidth + ImageMargin.Right, WRect.Bottom - 3); end; end |
|
|
I have exactly the same problem (Menu1.jpg and Menu2.jpg) running the stuff under Windows XP (classic design). |
|
|
The same problem appears also with activated themes ("Windows XP")! |
|
2006-04-09 09:38
|
Screenshot merged menus.jpg (10,886 bytes) |
|
|
There is also a problem with merged menus. Have a look at "Screenshot merged menus.jpg". If I have a MDI form and use the property "WindowMenu" from the MDI main form, then all MDI childs are shown there. The menu looks like in the screenshot. Not really correct if you ask me. |
|
|
The merged menus are in 0003516 and I cannot do anything about it as the message is handled by the application main loop. As to the rest, I know it is there, I'm seing it at various levels, but I have no direct way to fix this. I have one more thing to try, but I'm afraid this will stay in, in one way or the other. |
|
|
Are the problems shown in "Menu1.jpg" and "Menu2.jpg" also unfixable? |
|
|
They all have the same origin, due to Non client area repaint of the menu window. Basically, the border is repainted by the operating system itself and I get no message telling me that it did. There is one thing I have not yet tested: hooking into the message pump of the window used to draw menus. This might work, but has consequences that I am yet to assess. Will keep everyone posted. |
|
|
Ok, I FINALLY had time to test the last idea I got. This seems to work fine. Basically, the code hooks into the WndProc of the window that is used to draw the menu. Hence it receives WM_NCPAINT messages and can redraw the parts that are in the border when needed. Please try revision 1.87 from CVS and let me know how this goes. |
|
|
Well, no answers, I'm considering that this issue is fixed in the latest version: http://jvcl.sf.net/daily/ |
- Anonymous
