Ignore:
Timestamp:
Mar 31, 2009, 2:09:07 PM (15 years ago)
Author:
イグトランス (egtra)
Message:

GDI+をコンパイルできるように修正。FontFamily, Penの追加。サンプルとして、Step 32のGDI+版を制作。
(#56)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/GdiPlusEnums.ab

    r497 r698  
    44
    55TypeDef GraphicsState = DWord
    6 TypeDef GraphicsContainer = DWord
    7 
    8 Const Enum MetafileFrameUnit
    9     MetafileFrameUnitPixel      = 2
    10     MetafileFrameUnitPoint      = 3
    11     MetafileFrameUnitInch       = 4
    12     MetafileFrameUnitDocument   = 5
    13     MetafileFrameUnitMillimeter = 6
    14     MetafileFrameUnitGdi
    15 End Enum
    166
    177Const Enum WrapMode
    … …  
    8575End Enum
    8676
    87 Const Enum DashStyle
    88     DashStyleSolid           ' 0
    89     DashStyleDash            ' 1
    90     DashStyleDot             ' 2
    91     DashStyleDashDot         ' 3
    92     DashStyleDashDotDot      ' 4
    93     DashStyleCustom          ' 5
    94 End Enum
    95 
    96 Const Enum DashCap
    97     DashCapFlat             = 0
    98     DashCapRound            = 2
    99     DashCapTriangle         = 3
    100 End Enum
    101 
    102 Const Enum LineCap
    103     LineCapFlat             = 0
    104     LineCapSquare           = 1
    105     LineCapRound            = 2
    106     LineCapTriangle         = 3
    107 
    108     LineCapNoAnchor         = &h10
    109     LineCapSquareAnchor     = &h11
    110     LineCapRoundAnchor      = &h12
    111     LineCapDiamondAnchor    = &h13
    112     LineCapArrowAnchor      = &h14
    113 
    114     LineCapCustom           = &hff
    115 
    116     LineCapAnchorMask       = &hf0
    117 End Enum
    118 
    11977Const Enum CustomLineCapType
    12078    CustomLineCapTypeDefault         = 0
    12179    CustomLineCapTypeAdjustableArrow = 1
    122 End Enum
    123 
    124 Const Enum LineJoin
    125     LineJoinMiter        = 0
    126     LineJoinBevel        = 1
    127     LineJoinRound        = 2
    128     LineJoinMiterClipped = 3
    12980End Enum
    13081
    … …  
    158109End Enum
    159110
    160 Const Enum PenAlignment
    161     PenAlignmentCenter       = 0
    162     PenAlignmentInset        = 1
    163 End Enum
    164 
    165111Const Enum BrushType
    166112    BrushTypeSolidColor       = 0
    … …  
    171117End Enum
    172118
    173 Const Enum PenType
    174     PenTypeSolidColor       = BrushTypeSolidColor
    175     PenTypeHatchFill        = BrushTypeHatchFill
    176     PenTypeTextureFill      = BrushTypeTextureFill
    177     PenTypePathGradient     = BrushTypePathGradient
    178     PenTypeLinearGradient   = BrushTypeLinearGradient
    179     PenTypeUnknown          = -1
    180 End Enum
    181 
    182119Const Enum GenericFontFamily
    183120    GenericFontFamilySerif
    184121    GenericFontFamilySansSerif
    185122    GenericFontFamilyMonospace
    186 End Enum
    187 
    188 Const Enum FontStyle
    189     FontStyleRegular    = 0
    190     FontStyleBold       = 1
    191     FontStyleItalic     = 2
    192     FontStyleBoldItalic = 3
    193     FontStyleUnderline  = 4
    194     FontStyleStrikeout  = 8
    195123End Enum
    196124
Note: See TracChangeset for help on using the changeset viewer.