reactos/wine
1
0
Fork 0
mirror of https://github.com/reactos/wine.git synced 2024-11-25 12:49:45 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Ensure we free the cached HFONT after loading in a fresh font. Enables

Browse Source 
fonts in VB programs to appear correctly.
This commit is contained in:
Jason Edmeades 2002-06-25 02:54:06 +00:00 committed by Alexandre Julliard
parent ac90ba9bce
commit 99b3307406
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dlls/oleaut32/olefont.c
View File

@ -995,6 +995,7 @@ static HRESULT WINAPI OLEFontImpl_Clone(
GetProcessHeap(),0,
(1+strlenW(this->description.lpstrName))*2
);
strcpyW(newObject->description.lpstrName, this->description.lpstrName);
/* We need to clone the HFONT too. This is just cut & paste from above */
IFont_get_Size(iface, &cySize);
@ -1423,6 +1424,10 @@ static HRESULT WINAPI OLEFontImpl_Load(
MultiByteToWideChar( CP_ACP, 0, readBuffer, bStringSize, this->description.lpstrName, len );
this->description.lpstrName[len] = 0;
/* Ensure use of this font causes a new one to be created @@@@ */
DeleteObject(this->gdiFont);
this->gdiFont = 0;
return S_OK;
}