AnimationGlobalLoop Property

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing 
Imports Leadtools.Drawing 
 
' WIN32 API 
Const LOGPIXELSY As Integer = 90 
 
<DllImport("gdi32")> 
Shared Function GetDeviceCaps(ByVal hdc As IntPtr, ByVal nIndex As Integer) As Integer 
End Function 
 
<DllImport("kernel32")> 
Shared Function MulDiv(ByVal nNumber As Integer, ByVal nNumerator As Integer, ByVal nDenominator As Integer) As Integer 
End Function 
 
Sub AnimatedGIFExample() 
   ' The GIF file will contain 4 frames 
   Const frameCount As Integer = 4 
 
   ' Each frame is 128 by 128 pixels (the GIF file will have double that size) 
   Const frameWidth As Integer = 128 
   Const frameHeight As Integer = 128 
 
   ' Background colors 
   Dim backColor() As RasterColor = 
   { 
      New RasterColor(&HFF, &H0, &H0), 
      New RasterColor(&H0, &HFF, &H0), 
      New RasterColor(&H0, &H0, &HFF), 
      New RasterColor(&HFF, &HFF, &H0) 
   } 
 
   ' Foreground colors 
   Dim foreColor() As RasterColor = 
   { 
      New RasterColor(&HFF, &HFF, &H0), 
      New RasterColor(&HFF, &H0, &H0), 
      New RasterColor(&H0, &HFF, &H0), 
      New RasterColor(&HFF, &H0, &H0) 
   } 
 
   ' Delay in milliseconds 
   Dim delay() As Integer = 
   { 
      1000, 
      1000, 
      1000, 
      1000 
   } 
 
   ' Left and top, we want the frames to move to each corner 
   Dim offset() As LeadPoint = 
   { 
      New LeadPoint(0, 0), 
      New LeadPoint(frameWidth, 0), 
      New LeadPoint(frameWidth, frameHeight), 
      New LeadPoint(0, frameHeight) 
   } 
 
   Dim disposalMethod() As RasterImageAnimationDisposalMethod = 
   { 
      RasterImageAnimationDisposalMethod.RestoreBackground, 
      RasterImageAnimationDisposalMethod.RestoreBackground, 
      RasterImageAnimationDisposalMethod.RestoreBackground, 
      RasterImageAnimationDisposalMethod.RestoreBackground 
   } 
 
   Dim backgroundColor As RasterColor = RasterColor.FromKnownColor(RasterKnownColor.Yellow) 
 
   Dim image As RasterImage = Nothing 
   Dim myFont As Font = Nothing 
   Dim myStringFormat As StringFormat = Nothing 
 
   ' Create the frames 
   For frame As Integer = 0 To frameCount - 1 
      Dim frameImage As New RasterImage( 
         RasterMemoryFlags.Conventional, 
         frameWidth, 
         frameHeight, 
         24, 
         RasterByteOrder.Bgr, 
         RasterViewPerspective.BottomLeft, 
         Nothing, 
         IntPtr.Zero, 
         0) 
 
      ' Set the frame properties 
      frameImage.AnimationDelay = delay(frame) 
      frameImage.AnimationOffset = offset(frame) 
      frameImage.AnimationDisposalMethod = disposalMethod(frame) 
 
      ' Background is white 
      frameImage.AnimationBackground = backgroundColor 
 
      ' Draw the number of the frame on its surface 
      Dim hdc As IntPtr = RasterImagePainter.CreateLeadDC(frameImage) 
      Dim g As Graphics = Graphics.FromHdc(hdc) 
      Dim rc As New Rectangle(0, 0, frameWidth, frameHeight) 
 
      Dim brush As New SolidBrush(RasterColorConverter.ToColor(backColor(frame))) 
      g.FillRectangle(brush, rc) 
      brush.Dispose() 
 
      If (myFont Is Nothing) Then 
         Dim fontHeight As Integer = MulDiv(72, GetDeviceCaps(hdc, LOGPIXELSY), 72) 
         myFont = New Font("Consolas", fontHeight) 
 
         myStringFormat = New StringFormat() 
         myStringFormat.Alignment = StringAlignment.Center 
         myStringFormat.LineAlignment = StringAlignment.Center 
      End If 
 
      Dim str As String = String.Format("{0}", frame + 1) 
 
      brush = New SolidBrush(RasterColorConverter.ToColor(foreColor(frame))) 
      g.DrawString(str, myFont, brush, rc, myStringFormat) 
      brush.Dispose() 
 
      g.Dispose() 
      RasterImagePainter.DeleteLeadDC(hdc) 
 
      If (image Is Nothing) Then 
         image = frameImage 
      Else 
         image.AddPage(frameImage) 
      End If 
   Next 
 
   myFont.Dispose() 
   myStringFormat.Dispose() 
 
   ' Setup the global image properties 
   image.AnimationGlobalSize = New LeadSize(frameWidth * 2, frameHeight * 2) 
   image.AnimationGlobalLoop = 0 
   image.AnimationGlobalBackground = backgroundColor 
 
   ' Convert this image to 8 bits/pixel 
   Dim cmd As New ColorResolutionCommand( 
      ColorResolutionCommandMode.AllPages, 
      8, 
      RasterByteOrder.Rgb, 
      RasterDitheringMethod.None, 
      ColorResolutionCommandPaletteFlags.Optimized, 
      Nothing) 
   cmd.Run(image) 
 
   Dim codecs As New RasterCodecs() 
 
   ' Setup the GIF save options 
   Dim animationPalette() As RasterColor = image.GetPalette() 
   codecs.Options.Gif.Save.SetAnimationPalette(animationPalette) 
   codecs.Options.Gif.Save.UseAnimationPalette = True 
 
   ' The GIF Animation width & height, loop and background are 
   ' pulled automatically from the image 
 
   ' Save the file 
   Dim fileName As String = Path.Combine(LEAD_VARS.ImagesDir, "AnimatedGifFile.gif") 
   codecs.Save(image, fileName, RasterImageFormat.Gif, 8, 1, image.PageCount, 1, CodecsSavePageMode.Overwrite) 
 
   image.Dispose() 
 
   codecs.Dispose() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class