Changeset 142 for Include/Classes/System/Drawing
- Timestamp:
- Mar 9, 2007, 10:15:34 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Drawing/Font.ab
r137 r142 131 131 /*IN const*/ ByRef fontCollection As FontCollection) 132 132 #ifdef __STRING_IS_NOT_UNICODE 133 Dim name = _System_MultiByteToWideChar(familyName) 133 Dim oldAlloc = _System_AllocForConvertedString 134 _System_AllocForConvertedString = AddressOf (_System_malloc) 135 Dim name = ToWCStr(familyName) 134 136 Font(name, emSize, style, unit, fontCollection) 135 137 _System_free(name) 138 _System_AllocForConvertedString = oldAlloc 136 139 #else 137 140 Font(familyName.Chars, emSize, style, unit, fontCollection) … … 285 288 ((lf.fdwUnderline <> FALSE) And FontStyle.Underline)) As FontStyle 286 289 End Function 287 290 288 291 'Const Function SystemFontName() As String 289 292
Note:
See TracChangeset
for help on using the changeset viewer.