[Bug 2764] New: Cosmetic bugs with Delphi TScrollBox and TPopupMenu

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=2764

Summary: Cosmetic bugs with Delphi TScrollBox and TPopupMenu
           Product: Wine
           Version: 20050211
          Platform: Other
               URL: http://www.starsoft.fi/jarto/WineTest.tar
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: minor
          Priority: P2
         Component: wine-gdi
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]

I've made a small test app (including source) with Delphi 7 that shows two
cosmetic bugs in Wine:

1. TScrollBox doesn't update itself properly after being scrolled. Basically,
the the view is not cleared before being painted again -> contents inside the
scroll box are messed up. Check the attached screenshot.

2. Menu heights are calculated wrong if OwnerDraw is set to true in any item of
a TPopupMenu. You can see the problem by right clicking on the form background
in the test app. First item in the PopupMenu is measured and painted by using
TMenuItem.OnDrawItem and TMenuItem.OnMeasureItem. The 2nd and 3rd menu are
measured and painted normally by Delphi. However, they look extremely small in Wine.

There's a workaround for the menu problem: Just use TMenuItem.OnMeasureItem for
every item in the TPopupMenu.