Context Navigation

MetafileHeader.ab

Timestamp:

Mar 31, 2009, 2:09:07 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

-              r635
+              r698
 Const GDIP_EMFPLUSFLAGS_DISPLAY      = &h00000001
+Class MetafileHeader
+Private
+Type MetafileHeader
     mfType As MetafileType
     Size As DWord
 …
     logicalDpiX As Long
     logicalDpiY As Long
+/*
 Public
     Function MetafileType() As MetafileType
 …
     Function Bounds() As Rectangle
+        Dim r(X, Y, Width, Height)
+        Return r
+        Bounds.X = X
+        Bounds.Y = Y
+        Bounds.Width = Width
+        Bounds.Height = Height
     End Function
 …
     End Function
     Function IsEmfPlusOnly() As BOOL /*const*/
+    Function IsEmfPlusOnly() As BOOL
         IsEmfPlusOnly = (mfType = MetafileTypeEmfPlusOnly)
     End Function
 …
     Function IsDisplay() As BOOL
         If IsEmfPlus() <> FALSE And ((EmfPlusFlags And GDIP_EMFPLUSFLAGS_DISPLAY) <> 0) Then
             IsDisplay = _System_TRUE
+            IsDisplay = TRUE
         Else
+            IsDisplay = _System_FALSE
+            IsDisplay = FALSE
+        End If
     End Function
 …
     End Function
     Function GetEmfHeader() As * /*const*/ ENHMETAHEADER3 /*const*/
+    Function GetEmfHeader() As *ENHMETAHEADER3
         If IsEmfOrEmfPlus() Then
             Return VarPtr(EmfHeader) 'VarPtr(WmfHeader)
 …
         End If
     End Function
+End Class
+*/
+End Type
 End Namespace

Note: See TracChangeset for help on using the changeset viewer.