[Bug 20420] VB6 Font size problem with custom usercontrols

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

--- Comment #12 from Gabriele Moabiti   2010-02-20 19:34:35 ---
I've tried to change the dirty bit in OLEFontImpl_Construct
(dlls/oleaut32/olefont.c) in wine 1.1.39 and the example seems to work...

static OLEFontImpl* OLEFontImpl_Construct(const FONTDESC *fontDesc)
{

...

/*
   * Initializing all the other members.
   */
  newObject->gdiFont  = 0;
-  newObject->dirty = TRUE;
+  newObject->dirty = FALSE;
  newObject->cyLogical  = 72L;
  newObject->cyHimetric = 2540L;

...