Changeset 698 for trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging
- Timestamp:
- Mar 31, 2009, 2:09:07 PM (15 years ago)
- Location:
- trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging/MetafileHeader.ab
r635 r698 46 46 Const GDIP_EMFPLUSFLAGS_DISPLAY = &h00000001 47 47 48 Class MetafileHeader 49 Private 48 Type MetafileHeader 50 49 mfType As MetafileType 51 50 Size As DWord … … 65 64 logicalDpiX As Long 66 65 logicalDpiY As Long 66 /* 67 67 Public 68 68 Function MetafileType() As MetafileType … … 91 91 92 92 Function Bounds() As Rectangle 93 Dim r(X, Y, Width, Height) 94 Return r 93 Bounds.X = X 94 Bounds.Y = Y 95 Bounds.Width = Width 96 Bounds.Height = Height 95 97 End Function 96 98 … … 127 129 End Function 128 130 129 Function IsEmfPlusOnly() As BOOL /*const*/131 Function IsEmfPlusOnly() As BOOL 130 132 IsEmfPlusOnly = (mfType = MetafileTypeEmfPlusOnly) 131 133 End Function … … 133 135 Function IsDisplay() As BOOL 134 136 If IsEmfPlus() <> FALSE And ((EmfPlusFlags And GDIP_EMFPLUSFLAGS_DISPLAY) <> 0) Then 135 IsDisplay = _System_TRUE137 IsDisplay = TRUE 136 138 Else 137 IsDisplay = _System_FALSE 139 IsDisplay = FALSE 140 End If 138 141 End Function 139 142 … … 146 149 End Function 147 150 148 Function GetEmfHeader() As * /*const*/ ENHMETAHEADER3 /*const*/151 Function GetEmfHeader() As *ENHMETAHEADER3 149 152 If IsEmfOrEmfPlus() Then 150 153 Return VarPtr(EmfHeader) 'VarPtr(WmfHeader) … … 153 156 End If 154 157 End Function 155 End Class 158 */ 159 End Type 156 160 157 161 End Namespace -
trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging/misc.ab
r635 r698 1 1 ' Classes/System/Drawing/Imaging/misc.ab 2 3 TypeDef ARGB = DWord 4 TypeDef ARGB64 = QWord 2 5 3 6 Namespace System 4 7 Namespace Drawing 5 8 Namespace Imaging 6 7 TypeDef ARGB = DWord8 TypeDef ARGB64 = QWord9 9 10 10 Enum ColorMode … … 137 137 Type Align(8) EncoderParameters 138 138 Count As DWord 139 Parameter[ 1] As EncoderParameter139 Parameter[0] As EncoderParameter 140 140 End Type 141 141
Note:
See TracChangeset
for help on using the changeset viewer.