Use Base64 DotNet Image Encoder for buttons with alpha

(
   local str = "SomeFileName.ms" --thats the string wich will be put out
 
   local bmapPath = @"C:\Users\Insanto\Desktop\alphabet.tga" --this path needs to lead to the bitmapFile containing the letters, numbers and signs
   local bMap = openBitmap bmapPath
 
   local letterArr = #("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","0","1","2","3","4","5","6","7","8","9"," ","-","_",".","+","&","#","!",":","?")
 
   --build the single letters
   local letterBMs = #()
   for l = 1 to str.count do
   (
      local letter = str[l]
      local letterBM = bitmap 11 12
      local startpoint = if letter != "A" then 12 * ((findItem letterArr letter)-1) else 0
      for y = 0 to 11 do
      (
         local ps = getPixels bMap [startpoint,y] 11
         setPixels letterBM [0,y] ps
      )
      letterBMs[l] =  letterBM
   )
 
   --build the full string from the letters
   local fullWidth = letterBMs.count * 11
   local strBM = bitmap fullWidth (12+2*2) color:white
   for b = 0 to letterBMs.count-1 do
   (
      local startpoint = 11*b
      for y = 0 to 11 do
      (
         local ps = getPixels letterBMs[b+1] [0,y] 11
         setPixels strBM [startpoint,y+2] ps
      )
   )
 
   display strBM
 
   letterBMs = undefined  --make sure to leave this line so the gc can remove the letter bitmaps from memory
   close bMap
)