Changeset 704 for trunk/ab5.0/ablib/src/Classes
- Timestamp:
- Apr 8, 2009, 1:01:10 AM (15 years ago)
- Location:
- trunk/ab5.0/ablib/src/Classes/System/Drawing
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/System/Drawing/Image.ab
r703 r704 14 14 Function NativeImage() As *GpImage 15 15 NativeImage = nativeImage 16 End Function 17 18 Static Function FromFile(filename As String, useEmbeddedColorManagement = False As Boolean) As Image 19 FromFile = FromFile(ToWCStr(filename), useEmbeddedColorManagement) 16 20 End Function 17 21 … … 49 53 SetStatus(GdipGetImageType(nativeImage, imageType)) 50 54 Select Case imageType 51 'Case ImageTypeBitmap52 'FromNativeImage = New Bitmap(native)55 Case ImageTypeBitmap 56 FromNativeImage = New Bitmap(native) 53 57 ' Case ImageTypeMetafile 54 58 ' FromNativeImage = New Metafile(native) … … 75 79 End Function 76 80 81 Sub Save(filename As String, format As Imaging.ImageFormat) 82 SaveImpl(ToWCStr(filename), format.Guid) 83 End Sub 84 77 85 Sub Save(filename As PCWSTR, format As Imaging.ImageFormat) 78 86 SaveImpl(filename, format.Guid) … … 87 95 End Sub 88 96 */ 97 Sub Save(filename As String, encoder As Imaging.ImageCodecInfo, encoderParams As Imaging.EncoderParameters) 98 SaveImpl(ToWCStr(filename), encoder.Clsid, ToNativeEncoderParameters(encoderParams)) 99 End Sub 100 89 101 Sub Save(filename As PCWSTR, encoder As Imaging.ImageCodecInfo, encoderParams As Imaging.EncoderParameters) 90 102 SaveImpl(filename, encoder.Clsid, ToNativeEncoderParameters(encoderParams))
Note:
See TracChangeset
for help on using the changeset viewer.