'   Autor: Steven Mahnke
'   Datum: 10.12.2010

'   BMPs einfach Laden fuer Anfaenger oder fuer Faule :P
'   Mit LoadImgFile(Dateiname) einfach eine WindowsBMP laden

'   BSP.:
'   Screen 18, 32

'   Dim as Any PTR Bild

'   Bild = LoadBitmap("Test.bmp")
'   Put(0, 0), Bild, Alpha, 255
'   Sleep



Declare Function LoadImgFile(ByVal Dateiname as String) as Any PTR
Declare Sub GetSize(ByVal Dateiname as String, ByRef Breite as UInteger, ByRef Hoehe as UInteger)


Function LoadImgFile(ByVal Dateiname as String) as Any PTR
    Dim as UInteger Breite, Hoehe
    Dim as Any PTR Bild
    
    GetSize(Dateiname, Breite, Hoehe)
    Bild = Imagecreate(Breite, Hoehe)
    BLoad Dateiname, Bild
    Return Bild
End Function

'###############################################################################
Sub GetSize(ByVal Dateiname as String, ByRef Breite as UInteger, ByRef Hoehe as UInteger)
    Dim as UByte B1, B2
    Dim as Integer File = Freefile
    Dim as UInteger B, H
    
    Open Dateiname for Input as File
    Get #File,, B1
    Get #File,, B2
    If B1 <> 66 and B2 <> 77 then
        Hoehe = 0
        Breite = 0
    Else
        Seek File, 19
        Get #File,, B
        Seek File, 23
        Get #File,, H
        Breite = B
        Hoehe = H
    Endif
End Sub