[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.

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

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

Mario Guerra  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |[e-mail]

--- Comment #1 from Mario Guerra  2013-05-13 10:10:56 CDT ---
I can confirm this bug, also with Delhi4 and Delphi 7.
I discovered tthat the problem is with the default font that Delphi uses with
forms. It is a fixed font: "MS Sans Serif", that in certain circunstances (when
the font is freeded) is not correctly load again by the executable.

There are two possible workarounds to try:
- To copy the files *.fon from a Windows machine to Wine
- If you have the Delphi sources, change the font on all the visual components
to a different (ttf) font like Arial. I also found that changing the TForm
default font, for example, to Arial distorts the forms metrics.

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

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

--- Comment #2 from Austin English  ---
This is your friendly reminder that there has been no bug activity for over a
year. Is this still an issue in current (1.7.37 or newer) wine? If so, please
attach the terminal output in 1.7.37 (see http://wiki.winehq.org/FAQ#get_log).