PureBoard

Code: Alles auswählen

Structure gui_sprite
   spriteID.i
   sprite3d.i
   spriteBuffer.i; falls es ein TEXT bild ist, hat es ein original-bild.
EndStructure 

mein_text.gui_sprite = gui_createtext ( " Hallo Welt" , 100 , 20 ) ; einfach ein Sprite3d erstellen mit transparentem Text!.. 

Procedure gui_SaveImage32_ToMemory(imagenum) ; Adds alpha to Image

  colorsize = ImageWidth(imagenum)*ImageHeight(imagenum)*SizeOf(RGBQUAD)
  ImageSize = SizeOf(BITMAPFILEHEADER) + SizeOf(BITMAPINFOHEADER) + colorsize
  *rawimage = AllocateMemory(ImageSize) 
  *fileheader.BITMAPFILEHEADER = *rawimage 
  *header.BITMAPINFOHEADER = *rawimage + SizeOf(BITMAPFILEHEADER) 
  
  With *fileheader 
    \bfType = 19778 ; word containing 2 bytes, 'BM' for 'BIT' 'MAP' ;) 
    \bfSize = ImageSize 
    \bfOffBits = SizeOf(BITMAPFILEHEADER) + SizeOf(BITMAPINFOHEADER) 
  EndWith 
  
  With *header
    \biSize         = SizeOf(BITMAPINFOHEADER) 
    \biWidth        = ImageWidth(imagenum) 
    \biHeight       = ImageHeight(imagenum)
    \biPlanes       = 1 
    \biBitCount     = 32
  EndWith 
  
  If StartDrawing(ImageOutput(imagenum))
    CopyMemory  (DrawingBuffer(), *rawimage + SizeOf(BITMAPFILEHEADER) + SizeOf(BITMAPINFOHEADER), colorsize) 
    StopDrawing()
  EndIf 
  
  ProcedureReturn *rawimage
  
EndProcedure

Procedure gui_CreateText(gesamttext.s,width,height , color=#gui_menucolor, Ausrichtung = #gui_ausrichtung_zentriert, IsTransparent = 1) ; returns a gui_sprite-pointer!!
   Protected ImageID , *gui_sprite.gui_sprite ,x,y, zeilenzahl , text.s , textheight
   startzeit = ElapsedMilliseconds()
   *gui_sprite    = AllocateMemory( SizeOf( gui_sprite))
   ImageID        = CreateImage(#PB_Any , width , height ,32)
   gesamttext     + Chr(10) ; für stringfield.. damit er auch 1-zeilen-texte erkennt.!=)
   zeilenzahl     = CountString ( gesamttext , Chr(10))
   
   ;{ auf Bild zeichnen
   If StartDrawing ( ImageOutput(ImageID ))
      DrawingMode  ( #PB_2DDrawing_AlphaChannel )
      Box          ( 0, 0, ImageWidth(ImageID), ImageHeight(ImageID),0)
      DrawingMode  ( #PB_2DDrawing_AlphaBlend|#PB_2DDrawing_Transparent)
      DrawingFont  ( FontID(gui_font ))
      FrontColor   ( RGB(255,104,37 ))
      textheight   = TextHeight ( gesamttext)
      
      For n = 1 To zeilenzahl ; alle zeilen anzeigen (multizeilen support.)
         text  = StringField( gesamttext  , n , Chr(10))
          If Ausrichtung = #gui_ausrichtung_zentriert
            x = width  / 2 - TextWidth(text)  / 2
          EndIf 
          y = height / 2 - textheight *0.5 * zeilenzahl  + textheight *(n-1) 
          DrawText(1+x,1+y,text ,#gui_menucolor_shadow)   ; background des textes zum bessern Lesen.
          DrawText(  x,  y,text ,color)   ;RGBA(255,216,43,255))
      Next 
      
      StopDrawing()
   EndIf 
   ;}
   
   *imagemem                = gui_SaveImage32_ToMemory(ImageID  ) 
   *gui_sprite\spriteBuffer = *imagemem
   FreeImage  ( ImageID )
   
      *gui_sprite\spriteID   = CatchSprite(#PB_Any , *imagemem ,#PB_Sprite_Texture|#PB_Sprite_AlphaBlending )
      *gui_sprite\sprite3d   = CreateSprite3D( #PB_Any , *gui_sprite\spriteID  )
    ; FreeMemory ( *imagemem ) ; macht er unten
    dauer = ElapsedMilliseconds() - startzeit
      If dauer > 0
        Debug "DAUER: " + Str(dauer ) + " " + gesamttext 
      EndIf 
   ; 
   ProcedureReturn *gui_sprite
EndProcedure