source: trunk/ab5.0/ablib/src/Classes/System/Drawing/Imaging/Metafile.ab@ 705

' Classes/System/Drawing/Imaging/Metafile.ab

Namespace System
Namespace Drawing
Namespace Imaging

Class Metafile
Inherits Image
Public
    Sub Metafile(hWmf As HMETAFILE, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader, deleteWmf As BOOL)
        Image(CreateMetafileFromWmf(hWmf, wmfPlaceableFileHeader, deleteWmf) As *GpImage)
    End Sub

    Sub Metafile(hEmf As HENHMETAFILE, deleteEmf As BOOL)
        Image(CreateMetafileFromEmf(hEmf, deleteEmf) As *GpImage)
    End Sub

    Sub Metafile(filename As PCWSTR)
        Image(CreateMetafileFromFile(filename) As *GpImage)
    End Sub

    Sub Metafile(filename As String)
        Image(CreateMetafileFromFile(ToWCStr(filename)) As *GpImage)
    End Sub

    Sub Metafile(filename As PCWSTR, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader)
        Image(CreateMetafileFromWmfFile(filename, wmfPlaceableFileHeader) As *GpImage)
    End Sub

    Sub Metafile(filename As String, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader)
        Image(CreateMetafileFromWmfFile(ToWCStr(filename), wmfPlaceableFileHeader) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream)
        Image(CreateMetafileFromStream(stream) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, emfType As EmfType, description As String)
        Image(RecordMetafile(referenceHdc, NULL, MetafileFrameUnit.GdiCompatible, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafile(referenceHdc, NULL, MetafileFrameUnit.GdiCompatible, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafile(referenceHdc, frameRect, frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafile(referenceHdc, frameRect, frameUnit, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafile(referenceHdc, VarPtr(frameRect), frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafile(referenceHdc, VarPtr(frameRect), frameUnit, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(fileName As PCWSTR, referenceHdc As HDC, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileFileName(fileName, referenceHdc, ByVal NULL, MetafileFrameUnit.GdiCompatible, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafileFileNameI(fileName, referenceHdc, frameRect, frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileFileNameI(fileName, referenceHdc, frameRect, frameUnit, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafileFileName(fileName, referenceHdc, frameRect, frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileFileName(fileName, referenceHdc, frameRect, frameUnit, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, emfType As EmfType, description As String)
        Image(RecordMetafileStream(stream, referenceHdc, ByVal NULL, MetafileFrameUnit.GdiCompatible, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileStream(stream, referenceHdc, ByVal NULL, MetafileFrameUnit.GdiCompatible, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, description As String)
        Image(RecordMetafileStreamI(stream, referenceHdc, frameRect, frameUnit, EmfType.EmfPlusDual, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, description As PCWSTR)
        Image(RecordMetafileStreamI(stream, referenceHdc, frameRect, frameUnit, EmfType.EmfPlusDual, description) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafileStreamI(stream, referenceHdc, frameRect, frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileStreamI(stream, referenceHdc, frameRect, frameUnit, emfType, description) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, description As String)
        Image(RecordMetafileStream(stream, referenceHdc, frameRect, frameUnit, EmfType.EmfPlusDual, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, description As PCWSTR)
        Image(RecordMetafileStream(stream, referenceHdc, frameRect, frameUnit, EmfType.EmfPlusDual, description) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As String)
        Image(RecordMetafileStream(stream, referenceHdc, frameRect, frameUnit, emfType, ToWCStr(description)) As *GpImage)
    End Sub

    Sub Metafile(stream As IStream, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR)
        Image(RecordMetafileStream(stream, referenceHdc, frameRect, frameUnit, emfType, description) As *GpImage)
    End Sub
Private
    Static Function CreateMetafileFromWmf(hWmf As HMETAFILE, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader, deleteWmf As BOOL) As *GpMetafile
        SetStatus(GdipCreateMetafileFromWmf(hWmf, deleteWmf, wmfPlaceableFileHeader, CreateMetafileFromWmf))
    End Function

    Static Function CreateMetafileFromEmf(hEmf As HENHMETAFILE, deleteEmf As BOOL) As *GpMetafile
        SetStatus(GdipCreateMetafileFromEmf(hEmf, deleteEmf, CreateMetafileFromEmf))
    End Function

    Static Function CreateMetafileFromFile(filename As PCWSTR) As *GpMetafile
        SetStatus(GdipCreateMetafileFromFile(filename, CreateMetafileFromFile))
    End Function

    Static Function CreateMetafileFromWmfFile(filename As PCWSTR, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader) As *GpMetafile
        SetStatus(GdipCreateMetafileFromWmfFile(filename, wmfPlaceableFileHeader, CreateMetafileFromWmfFile))
    End Function

    Static Function CreateMetafileFromStream(stream As IStream) As *GpMetafile
    '   SetStatus(GdipCreateMetafileFromStream(stream, CreateMetafileFromStream))
        Throw New NotImplementedException
    End Function

    Static Function RecordMetafile(referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
        SetStatus(GdipRecordMetafileI(referenceHdc, emfType, frameRect, frameUnit, description, RecordMetafile))
    End Function

    ' BUG: なぜかframeRectをByRef RectangleFとするとエラーになる。
    Static Function RecordMetafile(referenceHdc As HDC, frameRect As *RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
        SetStatus(GdipRecordMetafile(referenceHdc, emfType, ByVal frameRect, frameUnit, description, RecordMetafile))
    End Function

    Static Function RecordMetafileFileNameI(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
        SetStatus(GdipRecordMetafileFileNameI(fileName, referenceHdc, emfType, frameRect, frameUnit, description, RecordMetafileFileNameI))
    End Function

    Static Function RecordMetafileFileName(fileName As PCWSTR, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
        SetStatus(GdipRecordMetafileFileName(fileName, referenceHdc, emfType, frameRect, frameUnit, description, RecordMetafileFileName))
    End Function

    Static Function RecordMetafileStreamI(stream As IStream, referenceHdc As HDC, ByRef frameRect As Rectangle, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
    '   SetStatus(GdipRecordMetafileStreamI(stream, referenceHdc, emfType, frameRect, frameUnit, description, RecordMetafileStreamI))
        Throw New NotImplementedException
    End Function

    Static Function RecordMetafileStream(stream As IStream, referenceHdc As HDC, ByRef frameRect As RectangleF, frameUnit As MetafileFrameUnit, emfType As EmfType, description As PCWSTR) As *GpMetafile
    '   SetStatus(GdipRecordMetafileStream(stream, referenceHdc, emfType, frameRect, frameUnit, description, RecordMetafileStream))
        Throw New NotImplementedException
    End Function

Public
    Static Function GetMetafileHeader(hWmf As HMETAFILE, ByRef wmfPlaceableFileHeader As WmfPlaceableFileHeader) As MetafileHeader
        SetStatus(GdipGetMetafileHeaderFromWmf(hWmf, wmfPlaceableFileHeader, GetMetafileHeader))
    End Function

    Static Function GetMetafileHeader(hEmf As HENHMETAFILE) As MetafileHeader
        SetStatus(GdipGetMetafileHeaderFromEmf(hEmf, GetMetafileHeader))
    End Function

    Static Function GetMetafileHeader(filename As String) As MetafileHeader
        GetMetafileHeader = GetMetafileHeader(ToWCStr(filename))
    End Function

    Static Function GetMetafileHeader(filename As PCWSTR) As MetafileHeader
        SetStatus(GdipGetMetafileHeaderFromFile(filename, GetMetafileHeader))
    End Function

    Static Function GetMetafileHeader(stream As IO.Stream) As MetafileHeader
'       GetMetafileHeader = GetMetafileHeader(stream)
        Throw New NotImplementedException
    End Function

    Static Function GetMetafileHeader(stream As IStream) As MetafileHeader
'       SetStatus(GdipGetMetafileHeaderFromStream(NativeMetafile, stream))
        Throw New NotImplementedException
    End Function


    Function GetMetafileHeader() As MetafileHeader
        SetStatus(GdipGetMetafileHeaderFromMetafile(NativeMetafile, GetMetafileHeader))
    End Function

    Function GetHEnhMetafile() As HENHMETAFILE
        SetStatus(GdipGetHemfFromMetafile(NativeMetafile, GetHEnhMetafile))
    End Function

    Sub PlayRecord(recordType As EmfPlusRecordType, flags As DWord, dataSize As DWord, data AS *Byte)
        SetStatus(GdipPlayMetafileRecord(NativeMetafile, recordType, flags, dataSize, data))
    End Sub

    Function NativeMetafile() As *GpMetafile
        NativeMetafile = NativeImage As *GpMetafile
    End Function
End Class

End Namespace
End Namespace
End Namespace