il_GifMaker
Author: Ilan Tetruashvili ([email protected])
Version: 0.1
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	

			
			Author: Ilan Tetruashvili ([email protected])
Version: 0.1
- il_GifMaker
Events:- Initialize: ()
Initializes the object - create:: (l As List, FileName As String, Speed As Float)
Create the Gif from a list of images and stores it in File.Dirdocuments 
 - Initialize: ()
 
			
				B4X:
			
		
		
		Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'Public variables can be accessed from all modules.
    Public App As Application
    Public NavControl As NavigationController
    Private Page1 As Page
  
    Private myGifmaker As il_GifMaker
End Sub
Private Sub Application_Start (Nav As NavigationController)
    'SetDebugAutoFlushLogs(True) 'Uncomment if program crashes before all logs are printed.
    NavControl = Nav
    Page1.Initialize("Page1")
    Page1.Title = "Page 1"
    Page1.RootPanel.Color = Colors.White
    NavControl.ShowPage(Page1)
  
    Dim l As List
    l.Initialize
  
    For i = 0 To 3
        l.Add(LoadBitmap(File.DirAssets,$"f${i}.png"$)) 'add images to list
    Next
  
    myGifmaker.Initialize
    myGifmaker.create(l,"mygif.gif",0.1) 'Gif saved to File.DirDocuments
  
    Log(File.ListFiles(File.DirDocuments)) 'log all files in File.Dirdocuments
End Sub
	
Attachments
			
				Last edited: