Platforms to show: All Mac Windows Linux Cross-Platform
Required plugins for this example: MBS Images Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /Images/GIF/Gif Write Test
This example is the version from Mon, 22th Nov 2015.
Project "Gif Write Test.xojo_binary_project"
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open()
dim g as GIFMBS
dim b as GifBlockMBS
dim p as GifPictureMBS
dim pal as GifPaletteMBS
dim f as FolderItem
dim c as GifScreenMBS
dim i as integer
dim m as MemoryBlock
pal=new GifPaletteMBS
pal.Count=256
for i=0 to 255
pal.Red(i)=rnd*256
pal.green(i)=rnd*256
pal.blue(i)=rnd*256
next
// random pixels
m=NewMemoryBlock(100*100)
for i=0 to 9999
m.Byte(i)=rnd*256
next
p=new GifPictureMBS
p.Data=m
p.Width=100
p.Height=100
p.Palette=pal
p.Top=0
p.Left=0
p.Interlace=true
p.PaletteDepth=8
b=new GifBlockMBS
b.Intro=&h2C // picture block
b.Picture=p
c=new GifScreenMBS
c.Height=100
c.Width=100
c.Palette=pal
c.PaletteDepth=8
c.ColorResolution = 8
c.HasPalette = true
g=new GIFMBS
g.Add b
g.Screen=c
f = SpecialFolder.Desktop.Child("Gif Write Test.gif")
if f.SaveAsGIFMBS(g) then
MsgBox "ok"
f.Launch
else
MsgBox "fail"
end if
Quit
End EventHandler
End Class
End Project
See also:
The items on this page are in the following plugins: MBS Images Plugin.