[Bug 32427] New: Delphi listview: wrong font when using custom draw

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

Bug #: 32427
           Summary: Delphi listview: wrong font when using custom draw
           Product: Wine
           Version: 1.5.19
          Platform: x86
        OS/Version: Linux
            Status: UNCONFIRMED
          Severity: trivial
          Priority: P2
         Component: comctl32
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]
    Classification: Unclassified

Created attachment 42781
  --> http://bugs.winehq.org/attachment.cgi?id=42781
Sample application with source illustrating the issue

If you attempt to retrieve canvas handle in CustomDraw event handler, the
listview items are drawn using "System" font. The font should not change in
this case.
In the attached example, font used to draw listview items should be the same as
font used to draw headers, but is not.
Using native comctl32 helps.
Bug 29758 describes similar symptoms, may be related.

[Bug 32427] Delphi listview: wrong font when using custom draw

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

--- Comment #1 from Nikolay Sivov  2012-12-20 09:17:24 CST ---
My guess would be that TCanvas getter for Handle property invalidates
underlying HDC when you request it, probably it selects some font in it and we
start using it when callback returns. Is it possible to reproduce that with
Lazarus so we could dig into VCL code?

[Bug 32427] Delphi listview: wrong font when using custom draw

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

--- Comment #2 from Daniel Jelinski  2012-12-20 14:14:40 CST ---
Well, it works under Lazarus. Delphi Enterprise would be nice here. Relay log
indeed shows that some font is selected int DC, however that font is created in
a totally different part of the application, and it's quite hard to track.

[Bug 32427] Delphi listview: wrong font when using custom draw

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

Daniel Jelinski  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
      Fixed by SHA1|                            |0ee1df5926110cfd17c7b938fce
                   |                            |fcdaace388302
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|                            |FIXED

--- Comment #3 from Daniel Jelinski  2013-03-05 13:48:00 CST ---
Fixed

[Bug 32427] Delphi listview: wrong font when using custom draw

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

Alexandre Julliard  changed:

What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|RESOLVED                    |CLOSED

--- Comment #4 from Alexandre Julliard  2013-03-15 14:46:30 CDT ---
Closing bugs fixed in 1.5.26.