Changeset 142 for Include/Classes/System/Drawing

Timestamp:

Mar 9, 2007, 10:15:34 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

Environment, OperatingSystem, Versionの追加、Unicode対応修正ほか

File:

• Include/Classes/System/Drawing/Font.ab (modified) (2 diffs)

Include/Classes/System/Drawing/Font.ab

@@ -131 +131 @@
         /*IN const*/ ByRef fontCollection As FontCollection)
 #ifdef __STRING_IS_NOT_UNICODE
-        Dim name = _System_MultiByteToWideChar(familyName)
+        Dim oldAlloc = _System_AllocForConvertedString
+        _System_AllocForConvertedString = AddressOf (_System_malloc)
+        Dim name = ToWCStr(familyName)
         Font(name, emSize, style, unit, fontCollection)
         _System_free(name)
+        _System_AllocForConvertedString = oldAlloc
 #else
         Font(familyName.Chars, emSize, style, unit, fontCollection)
@@ -285 +288 @@
             ((lf.fdwUnderline <> FALSE) And FontStyle.Underline)) As FontStyle
     End Function
-        
+
     'Const Function SystemFontName() As String