[Bug 31385] New: Font in Delphi 3 apps change to "System" after open Report preview.

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

Bug #: 31385
           Summary: Font in Delphi 3 apps change to "System" after open
                    Report preview.
           Product: Wine
           Version: 1.5.10
          Platform: x86
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: minor
          Priority: P2
         Component: -unknown
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]
    Classification: Unclassified

Created attachment 41242
  --> http://bugs.winehq.org/attachment.cgi?id=41242
Minimal Delphi app that shows the bug

I'm testing an in-house app written en Delphi 3, the only really annoying
glitch I have found so far happens after a QuickReport preview windows opens.

The Preview and works OK, but then any label drawn in the app uses the System
font.

The effect is akin to bug #29758, but my logs don't include the error reported
there.

Instead, I guess Wine is messing somewhat within the WM_GETFONT and/or
WM_SETFONT calls, yet my debugging abilities are pretty limited.

WM_GETFONT calls aren't returning NULL, but decimal 504, I wonder if that
WM_SETFONT takes that as an invalid handle.

I'm attaching a minimal (kind of, the binary is pretty big) test case.