Index: Include/Classes/System/Drawing/Imaging/MetafileHeader.ab =================================================================== --- Include/Classes/System/Drawing/Imaging/MetafileHeader.ab (revision 12) +++ Include/Classes/System/Drawing/Imaging/MetafileHeader.ab (revision 12) @@ -0,0 +1,157 @@ +' Classes/System/Drawing/Imaging/MetafileHeader.ab + +#ifndef __SYSTEM_DRAWING_IMAGING_METAFILEHEADER_AB__ +#define __SYSTEM_DRAWING_IMAGING_METAFILEHEADER_AB__ + +Type Align(8) ENHMETAHEADER3 + iType As DWord + nSize As DWord + + rclBounds As RECTL + rclFrame As RECTL + dSignature As DWord + nVersion As DWord + nBytes As DWord + nRecords As DWord + nHandles As Word + + sReserved As Word + nDescription As DWord + + offDescription As DWord + + nPalEntries As DWord + szlDevice As SIZEL + szlMillimeters As SIZEL +End Type + +' Placeable WMFs + +Type Align(2) PWMFRect16 + Left As Word + Top As Word + Right As Word + Bottom As Word +End Type + +Type Align(2) WmfPlaceableFileHeader + Key As DWord + Hmf As Word + BoundingBox As PWMFRect16 + Inch As Word + Reserved As DWord + Checksum As Word +End Type + +Const GDIP_EMFPLUSFLAGS_DISPLAY = &h00000001 + +Class MetafileHeader +Private + mfType As MetafileType + Size As DWord + version As DWord + emfPlusFlags As DWord + dpiX As Single + dpiY As Single + X As Long + Y As Long + Width As Long + Height As Long + 'Union + ' WmfHeader As METAHEADER + EmfHeader As ENHMETAHEADER3 + 'End Union + emfPlusHeaderSize As Long + logicalDpiX As Long + logicalDpiY As Long +Public + Function MetafileType() As MetafileType + Return mfType + End Function + + Function EmfPlusHeaderSize() As DWord + Return emfPlusHeaderSize + End Function + + Function Version() As DWord + Return version + End Function + + Function EmfPlusFlags() As DWord + Return emfPlusFlags + End Function + + Function DpiX() As Single + Return dpiX + End Function + + Function DpiY() As Single + Return dpiY + End Function + + Function Bounds() As Rectangle + Dim r(X, Y, Width, Height) + Return r + End Function + + Function LogicalDpiX() As Single + Return logicalDpiX + End Function + + Function LogicalDpiY() As Single + Return logicalDpiY + End Function + + Function IsWmf() As BOOL + IsWmf = (mfType = MetafileTypeWmf Or mfType = MetafileTypeWmfPlaceable) + End Function + + Function IsWmfPlaceable() As BOOL + IsWmfPlaceable = (mfType = MetafileTypeWmfPlaceable) + End Function + + Function IsEmf() As BOOL + IsEmf = (mfType = MetafileTypeEmf) + End Function + + Function IsEmfOrEmfPlus() As BOOL + IsEmfOrEmfPlus = (mfType >= MetafileTypeEmf) + End Function + + Function IsEmfPlus() As BOOL + IsEmfPlus = (mfType >= MetafileTypeEmfPlusOnly) + End Function + + Function IsEmfPlusDual() As BOOL + IsEmfPlusDual = (mfType = MetafileTypeEmfPlusDual) + End Function + + Function IsEmfPlusOnly() As BOOL /*const*/ + IsEmfPlusOnly = (mfType = MetafileTypeEmfPlusOnly) + End Function + + Function IsDisplay() As BOOL + If IsEmfPlus() <> FALSE And ((EmfPlusFlags And GDIP_EMFPLUSFLAGS_DISPLAY) <> 0) Then + IsDisplay = _System_TRUE + Else + IsDisplay = _System_FALSE + End Function + + Function WmfHeader() As *METAHEADER 'const METAHEADER* const + If IsWmf() Then + Return VarPtr(EmfHeader) 'VarPtr(WmfHeader) + Else + Return 0 + End If + End Function + + Function GetEmfHeader() As * /*const*/ ENHMETAHEADER3 /*const*/ + If IsEmfOrEmfPlus() Then + Return VarPtr(EmfHeader) 'VarPtr(WmfHeader) + Else + Return 0 + End If + End Function +End Class + +#endif '__SYSTEM_DRAWING_IMAGING_METAFILEHEADER_AB__ Index: Include/Classes/System/Drawing/Imaging/misc.ab =================================================================== --- Include/Classes/System/Drawing/Imaging/misc.ab (revision 12) +++ Include/Classes/System/Drawing/Imaging/misc.ab (revision 12) @@ -0,0 +1,431 @@ +' Classes/System/Drawing/Imaging/misc.ab + +#ifndef __SYSTEM_DRAWING_IMAGING_MISC_AB__ +#define __SYSTEM_DRAWING_IMAGING_MISC_AB__ + +#include + +TypeDef ARGB = DWord +TypeDef ARGB64 = QWord + +Enum ColorMode + ARGB32 = 0 + ARGB64 = 1 +End Enum + +Const ALPHA_SHIFT = 24 +Const RED_SHIFT = 16 +Const GREEN_SHIFT = 8 +Const BLUE_SHIFT = 0 +Const ALPHA_MASK = ((&hff As ARGB) << ALPHA_SHIFT) + +' In-memory pixel data formats: +' bits 0-7 = format index +' bits 8-15 = pixel size (in bits) +' bits 16-23 = flags +' bits 24-31 = reserved + +Enum PixelFormat + Indexed = &h00010000 + Gdi = &h00020000 + Alpha = &h00040000 + PAlpha = &h00080000 + Extended = &h00100000 + Canonical = &h00200000 + + Undefined = 0 + DontCare = 0 + + Format1bppIndexed = (1 Or ( 1 << 8) Or PixelFormat.Indexed Or PixelFormat.Gdi) + Format4bppIndexed = (2 Or ( 4 << 8) Or PixelFormat.Indexed Or PixelFormat.Gdi) + Format8bppIndexed = (3 Or ( 8 << 8) Or PixelFormat.Indexed Or PixelFormat.Gdi) + Format16bppGrayScale = (4 Or (16 << 8) Or PixelFormat.Extended) + Format16bppRGB555 = (5 Or (16 << 8) Or PixelFormat.Gdi) + Format16bppRGB565 = (6 Or (16 << 8) Or PixelFormat.Gdi) + Format16bppARGB1555 = (7 Or (16 << 8) Or PixelFormat.Alpha Or PixelFormat.Gdi) + Format24bppRGB = (8 Or (24 << 8) Or PixelFormat.Gdi) + Format32bppRGB = (9 Or (32 << 8) Or PixelFormat.Gdi) + Format32bppARGB = (10 Or (32 << 8) Or PixelFormat.Alpha Or PixelFormat.Gdi Or PixelFormat.Canonical) + Format32bppPARGB = (11 Or (32 << 8) Or PixelFormat.Alpha Or PixelFormat.PAlpha Or PixelFormat.Gdi) + Format48bppRGB = (12 Or (48 << 8) Or PixelFormat.Extended) + Format64bppARGB = (13 Or (64 << 8) Or PixelFormat.FormatAlpha Or PixelFormat.Canonical Or PixelFormat.Extended) + Format64bppPARGB = (14 Or (64 << 8) Or PixelFormat.FormatAlpha Or PixelFormat.PAlpha Or PixelFormat.Extended) + Max = 15 +End Enum + +Const GetPixelFormatSize(pixfmt) = ((((pixfmt As PixelFormat) >> 8) And &hff) As DWord) + +Const IsIndexedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Indexed) <> 0) As BOOL) + +Const IsAlphaPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Alpha) <> 0) As BOOL) + +Const IsExtendedPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Extended) <> 0) As BOOL) + +Const IsCanonicalPixelFormat(pixfmt) = ((((pixfmt As PixelFormat) And PixelFormat.Canonical) <> 0) As BOOL) + +Enum PaletteFlags + PaletteFlagsHasAlpha = &h0001 + PaletteFlagsGrayScale = &h0002 + PaletteFlagsHalftone = &h0004 +End Enum + +Type Align(8) ColorPalette + Flags As DWord + Count As DWord + Entries[1] As ARGB +End Type + +Enum ColorAdjustType + Default + Bitmap + Brush + Pen + Text + Count + Any +End Enum + +Type ColorMatrix + m[5][5] As Single +End Type + +Type ColorMap + OldColor As Color + NewColor As Color +End Type + +Enum ColorMatrixFlag + Default = 0 + SkipGrays = 1 + AltGray = 2 +End Enum + +Enum ImageCodecFlags + Encoder = &h00000001 + Decoder = &h00000002 + SupportBitmap = &h00000004 + SupportVector = &h00000008 + SeekableEncode = &h00000010 + BlockingDecode = &h00000020 + + Builtin = &h00010000 + System = &h00020000 + User = &h00040000 +End Enum + +Enum ImageLockMode + Read = &h0001 + Write = &h0002 + UserInputBuf= &h0004 +End Enum + +Type Align(8) BitmapData + Width As DWord + Height As DWord + Stride As Long + PixelFormat As PixelFormat + Scan0 As VoidPtr + Reserved As ULONG_PTR +End Type + +Type Align(8) EncoderParameter + Guid As GUID + NumberOfValues As DWord + EncoderType As DWord '元はTypeという名前 + Value As VoidPtr +End Type + +Type Align(8) EncoderParameters + Count As DWord + Parameter[1] As EncoderParameter +End Type + +Type Align(8) PropertyItem + id As PROPID + length As DWord + piType As Word + value As VoidPtr +End Type + +Const PropertyTagTypeByte = 1 +Const PropertyTagTypeASCII = 2 +Const PropertyTagTypeShort = 3 +Const PropertyTagTypeLong = 4 +Const PropertyTagTypeRational = 5 +Const PropertyTagTypeUndefined = 7 +Const PropertyTagTypeSLONG = 9 +Const PropertyTagTypeSRational = 10 + +Const PropertyTagExifIFD = &h8769 +Const PropertyTagGpsIFD = &h8825 + +Const PropertyTagNewSubfileType = &h00FE +Const PropertyTagSubfileType = &h00FF +Const PropertyTagImageWidth = &h0100 +Const PropertyTagImageHeight = &h0101 +Const PropertyTagBitsPerSample = &h0102 +Const PropertyTagCompression = &h0103 +Const PropertyTagPhotometricInterp = &h0106 +Const PropertyTagThreshHolding = &h0107 +Const PropertyTagCellWidth = &h0108 +Const PropertyTagCellHeight = &h0109 +Const PropertyTagFillOrder = &h010A +Const PropertyTagDocumentName = &h010D +Const PropertyTagImageDescription = &h010E +Const PropertyTagEquipMake = &h010F +Const PropertyTagEquipModel = &h0110 +Const PropertyTagStripOffsets = &h0111 +Const PropertyTagOrientation = &h0112 +Const PropertyTagSamplesPerPixel = &h0115 +Const PropertyTagRowsPerStrip = &h0116 +Const PropertyTagStripBytesCount = &h0117 +Const PropertyTagMinSampleValue = &h0118 +Const PropertyTagMaxSampleValue = &h0119 +Const PropertyTagXResolution = &h011A ' Image resolution in width direction +Const PropertyTagYResolution = &h011B ' Image resolution in height direction +Const PropertyTagPlanarConfig = &h011C ' Image data arrangement +Const PropertyTagPageName = &h011D +Const PropertyTagXPosition = &h011E +Const PropertyTagYPosition = &h011F +Const PropertyTagFreeOffset = &h0120 +Const PropertyTagFreeByteCounts = &h0121 +Const PropertyTagGrayResponseUnit = &h0122 +Const PropertyTagGrayResponseCurve = &h0123 +Const PropertyTagT4Option = &h0124 +Const PropertyTagT6Option = &h0125 +Const PropertyTagResolutionUnit = &h0128 ' Unit of X and Y resolution +Const PropertyTagPageNumber = &h0129 +Const PropertyTagTransferFuncition = &h012D +Const PropertyTagSoftwareUsed = &h0131 +Const PropertyTagDateTime = &h0132 +Const PropertyTagArtist = &h013B +Const PropertyTagHostComputer = &h013C +Const PropertyTagPredictor = &h013D +Const PropertyTagWhitePoint = &h013E +Const PropertyTagPrimaryChromaticities = &h013F +Const PropertyTagColorMap = &h0140 +Const PropertyTagHalftoneHints = &h0141 +Const PropertyTagTileWidth = &h0142 +Const PropertyTagTileLength = &h0143 +Const PropertyTagTileOffset = &h0144 +Const PropertyTagTileByteCounts = &h0145 +Const PropertyTagInkSet = &h014C +Const PropertyTagInkNames = &h014D +Const PropertyTagNumberOfInks = &h014E +Const PropertyTagDotRange = &h0150 +Const PropertyTagTargetPrinter = &h0151 +Const PropertyTagExtraSamples = &h0152 +Const PropertyTagSampleFormat = &h0153 +Const PropertyTagSMinSampleValue = &h0154 +Const PropertyTagSMaxSampleValue = &h0155 +Const PropertyTagTransferRange = &h0156 + +Const PropertyTagJPEGProc = &h0200 +Const PropertyTagJPEGInterFormat = &h0201 +Const PropertyTagJPEGInterLength = &h0202 +Const PropertyTagJPEGRestartInterval = &h0203 +Const PropertyTagJPEGLosslessPredictors = &h0205 +Const PropertyTagJPEGPointTransforms = &h0206 +Const PropertyTagJPEGQTables = &h0207 +Const PropertyTagJPEGDCTables = &h0208 +Const PropertyTagJPEGACTables = &h0209 + +Const PropertyTagYCbCrCoefficients = &h0211 +Const PropertyTagYCbCrSubsampling = &h0212 +Const PropertyTagYCbCrPositioning = &h0213 +Const PropertyTagREFBlackWhite = &h0214 + +Const PropertyTagICCProfile = &h8773 ' This TAG is defined by ICC + ' for embedded ICC in TIFF +Const PropertyTagGamma = &h0301 +Const PropertyTagICCProfileDescriptor = &h0302 +Const PropertyTagSRGBRenderingIntent = &h0303 + +Const PropertyTagImageTitle = &h0320 +Const PropertyTagCopyright = &h8298 + +' Extra TAGs (Like Adobe Image Information tags etc.) + +Const PropertyTagResolutionXUnit = &h5001 +Const PropertyTagResolutionYUnit = &h5002 +Const PropertyTagResolutionXLengthUnit = &h5003 +Const PropertyTagResolutionYLengthUnit = &h5004 +Const PropertyTagPrintFlags = &h5005 +Const PropertyTagPrintFlagsVersion = &h5006 +Const PropertyTagPrintFlagsCrop = &h5007 +Const PropertyTagPrintFlagsBleedWidth = &h5008 +Const PropertyTagPrintFlagsBleedWidthScale = &h5009 +Const PropertyTagHalftoneLPI = &h500A +Const PropertyTagHalftoneLPIUnit = &h500B +Const PropertyTagHalftoneDegree = &h500C +Const PropertyTagHalftoneShape = &h500D +Const PropertyTagHalftoneMisc = &h500E +Const PropertyTagHalftoneScreen = &h500F +Const PropertyTagJPEGQuality = &h5010 +Const PropertyTagGridSize = &h5011 +Const PropertyTagThumbnailFormat = &h5012 ' 1 = JPEG, 0 = RAW RGB +Const PropertyTagThumbnailWidth = &h5013 +Const PropertyTagThumbnailHeight = &h5014 +Const PropertyTagThumbnailColorDepth = &h5015 +Const PropertyTagThumbnailPlanes = &h5016 +Const PropertyTagThumbnailRawBytes = &h5017 +Const PropertyTagThumbnailSize = &h5018 +Const PropertyTagThumbnailCompressedSize = &h5019 +Const PropertyTagColorTransferFunction = &h501A +Const PropertyTagThumbnailData = &h501B' RAW thumbnail bits in + ' JPEG format or RGB format + ' depends on + ' PropertyTagThumbnailFormat + +' Thumbnail related TAGs + +Const PropertyTagThumbnailImageWidth = &h5020 ' Thumbnail width +Const PropertyTagThumbnailImageHeight = &h5021 ' Thumbnail height +Const PropertyTagThumbnailBitsPerSample = &h5022 ' Number of bits per + ' component +Const PropertyTagThumbnailCompression = &h5023 ' Compression Scheme +Const PropertyTagThumbnailPhotometricInterp = &h5024 ' Pixel composition +Const PropertyTagThumbnailImageDescription = &h5025 ' Image Tile +Const PropertyTagThumbnailEquipMake = &h5026 ' Manufacturer of Image + ' Input equipment +Const PropertyTagThumbnailEquipModel = &h5027 ' Model of Image input + ' equipment +Const PropertyTagThumbnailStripOffsets = &h5028 ' Image data location +Const PropertyTagThumbnailOrientation = &h5029 ' Orientation of image +Const PropertyTagThumbnailSamplesPerPixel = &h502A ' Number of components +Const PropertyTagThumbnailRowsPerStrip = &h502B ' Number of rows per strip +Const PropertyTagThumbnailStripBytesCount = &h502C ' Bytes per compressed + ' strip +Const PropertyTagThumbnailResolutionX = &h502D ' Resolution in width + ' direction +Const PropertyTagThumbnailResolutionY = &h502E ' Resolution in height + ' direction +Const PropertyTagThumbnailPlanarConfig = &h502F ' Image data arrangement +Const PropertyTagThumbnailResolutionUnit = &h5030 ' Unit of X and Y + ' Resolution +Const PropertyTagThumbnailTransferFunction = &h5031 ' Transfer function +Const PropertyTagThumbnailSoftwareUsed = &h5032 ' Software used +Const PropertyTagThumbnailDateTime = &h5033 ' File change date and + ' time +Const PropertyTagThumbnailArtist = &h5034 ' Person who created the + ' image +Const PropertyTagThumbnailWhitePoint = &h5035 ' White point chromaticity +Const PropertyTagThumbnailPrimaryChromaticities = &h5036 + ' Chromaticities of + ' primaries +Const PropertyTagThumbnailYCbCrCoefficients = &h5037 ' Color space transforma- + ' tion coefficients +Const PropertyTagThumbnailYCbCrSubsampling = &h5038 ' Subsampling ratio of Y + ' to C +Const PropertyTagThumbnailYCbCrPositioning = &h5039 ' Y and C position +Const PropertyTagThumbnailRefBlackWhite = &h503A ' Pair of black and white + ' reference values +Const PropertyTagThumbnailCopyRight = &h503B ' CopyRight holder + +Const PropertyTagLuminanceTable = &h5090 +Const PropertyTagChrominanceTable = &h5091 + +Const PropertyTagFrameDelay = &h5100 +Const PropertyTagLoopCount = &h5101 + +Const PropertyTagPixelUnit = &h5110 ' Unit specifier for pixel/unit +Const PropertyTagPixelPerUnitX = &h5111 ' Pixels per unit in X +Const PropertyTagPixelPerUnitY = &h5112 ' Pixels per unit in Y +Const PropertyTagPaletteHistogram = &h5113 ' Palette histogram + +' EXIF specific tag + +Const PropertyTagExifExposureTime = &h829A +Const PropertyTagExifFNumber = &h829D + +Const PropertyTagExifExposureProg = &h8822 +Const PropertyTagExifSpectralSense = &h8824 +Const PropertyTagExifISOSpeed = &h8827 +Const PropertyTagExifOECF = &h8828 + +Const PropertyTagExifVer = &h9000 +Const PropertyTagExifDTOrig = &h9003 ' Date & time of original +Const PropertyTagExifDTDigitized = &h9004 ' Date & time of digital data generation + +Const PropertyTagExifCompConfig = &h9101 +Const PropertyTagExifCompBPP = &h9102 + +Const PropertyTagExifShutterSpeed = &h9201 +Const PropertyTagExifAperture = &h9202 +Const PropertyTagExifBrightness = &h9203 +Const PropertyTagExifExposureBias = &h9204 +Const PropertyTagExifMaxAperture = &h9205 +Const PropertyTagExifSubjectDist = &h9206 +Const PropertyTagExifMeteringMode = &h9207 +Const PropertyTagExifLightSource = &h9208 +Const PropertyTagExifFlash = &h9209 +Const PropertyTagExifFocalLength = &h920A +Const PropertyTagExifMakerNote = &h927C +Const PropertyTagExifUserComment = &h9286 +Const PropertyTagExifDTSubsec = &h9290 ' Date & Time subseconds +Const PropertyTagExifDTOrigSS = &h9291 ' Date & Time original subseconds +Const PropertyTagExifDTDigSS = &h9292 ' Date & TIme digitized subseconds + +Const PropertyTagExifFPXVer = &hA000 +Const PropertyTagExifColorSpace = &hA001 +Const PropertyTagExifPixXDim = &hA002 +Const PropertyTagExifPixYDim = &hA003 +Const PropertyTagExifRelatedWav = &hA004 ' related sound file +Const PropertyTagExifInterop = &hA005 +Const PropertyTagExifFlashEnergy = &hA20B +Const PropertyTagExifSpatialFR = &hA20C ' Spatial Frequency Response +Const PropertyTagExifFocalXRes = &hA20E ' Focal Plane X Resolution +Const PropertyTagExifFocalYRes = &hA20F ' Focal Plane Y Resolution +Const PropertyTagExifFocalResUnit = &hA210 ' Focal Plane Resolution Unit +Const PropertyTagExifSubjectLoc = &hA214 +Const PropertyTagExifExposureIndex = &hA215 +Const PropertyTagExifSensingMethod = &hA217 +Const PropertyTagExifFileSource = &hA300 +Const PropertyTagExifSceneType = &hA301 +Const PropertyTagExifCfaPattern = &hA302 + +Const PropertyTagGpsVer = &h0000 +Const PropertyTagGpsLatitudeRef = &h0001 +Const PropertyTagGpsLatitude = &h0002 +Const PropertyTagGpsLongitudeRef = &h0003 +Const PropertyTagGpsLongitude = &h0004 +Const PropertyTagGpsAltitudeRef = &h0005 +Const PropertyTagGpsAltitude = &h0006 +Const PropertyTagGpsGpsTime = &h0007 +Const PropertyTagGpsGpsSatellites = &h0008 +Const PropertyTagGpsGpsStatus = &h0009 +Const PropertyTagGpsGpsMeasureMode = &h00A +Const PropertyTagGpsGpsDop = &h000B ' Measurement precision +Const PropertyTagGpsSpeedRef = &h000C +Const PropertyTagGpsSpeed = &h000D +Const PropertyTagGpsTrackRef = &h000E +Const PropertyTagGpsTrack = &h000F +Const PropertyTagGpsImgDirRef = &h0010 +Const PropertyTagGpsImgDir = &h0011 +Const PropertyTagGpsMapDatum = &h0012 +Const PropertyTagGpsDestLatRef = &h0013 +Const PropertyTagGpsDestLat = &h0014 +Const PropertyTagGpsDestLongRef = &h0015 +Const PropertyTagGpsDestLong = &h0016 +Const PropertyTagGpsDestBearRef = &h0017 +Const PropertyTagGpsDestBear = &h0018 +Const PropertyTagGpsDestDistRef = &h0019 +Const PropertyTagGpsDestDist = &h001A + +Type ImageCodecInfo + Clsid As CLSID + FormatID As GUID + CodecName As PCWSTR + DllName As PCWSTR + FormatDescription As PCWSTR + FilenameExtension As PCWSTR + MimeType As PCWSTR + Flags As DWord + Version As DWord + SigCount As DWord + SigSize As DWord + SigPattern As *Byte + SigMask As DWord +End Type + +#endif '__SYSTEM_DRAWING_IMAGING_MISC_AB__