'''' This code is part of Document Solutions for Imaging demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports SystemImports System.IOImports System.DrawingImports System.LinqImports GrapeCity.Documents.DrawingImports GrapeCity.Documents.TextImports GrapeCity.Documents.Imaging
'' This sample loads the .ICO generated by the MakeIco sample,'' and renders all frames found in it along the diagonal of the'' resulting image.Public Class ReadIco    Public Function GenerateImage(            ByVal pixelSize As Size,            ByVal dpi As Single,            ByVal opaque As Boolean,            Optional ByVal sampleParams As String() = Nothing) As GcBitmap
        Dim x As Integer = 0, y As Integer = 0
        Dim srcPath = Path.Combine("Resources", "ImagesBis", "mescius-logomark-c.ico")        Using bmp As New GcBitmap()            Using ico As New GcIco(srcPath)                Dim w = ico.Frames.Sum(Function(f) f.Width)                Dim h = ico.Frames.Sum(Function(f) f.Height)                bmp.CreateImage(w, h, False)                bmp.Clear()                For i As Integer = 0 To ico.Frames.Count - 1                    Using tbmp = ico.Frames(i).ToGcBitmap()                        bmp.BitBlt(tbmp, x, y)                        x += tbmp.PixelWidth                        y += tbmp.PixelHeight                    End Using                Next                Return bmp.Clip(New Rectangle(0, 0, x, y))            End Using        End Using    End FunctionEnd Class