Ignore:
Timestamp:
Apr 2, 2009, 5:27:22 PM (15 years ago)
Author:
イグトランス (egtra)
Message:

BrushとStringFormatを追加
(#241)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/Classes/System/Drawing/Font.ab

    r698 r701  
    283283        nativeFont = 0
    284284        Dim family = Nothing As FontFamily
    285         Dim nativeFamily = family.NativeFamily
     285        Dim nativeFamily As *GpFontFamily
    286286
    287287        Try
    288288            family = New FontFamily(familyName, fontCollection)
     289            nativeFamily = family.NativeFamily
    289290        Catch e As Exception
    290291            nativeFamily = FontFamily.GenericSansSerif().NativeFamily
    … …  
    292293
    293294        Try
    294             SetStatus(GdipCreateFont(nativeFamily, emSize, style, unit, nativeFont))
     295            SetStatus(GdipCreateFont(nativeFamily, emSize, style, unit As Long, nativeFont))
    295296        Catch e As Exception
    296297            nativeFamily = FontFamily.GenericSansSerif().NativeFamily
Note: See TracChangeset for help on using the changeset viewer.