Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
open test 2
| Uploader: |  Eternal_Pain |
| Datum/Zeit: | 14.04.2013 13:48:31 |
Function FileCheck(byval filename as String) as Integer
Dim as Integer F = Freefile
Dim as Integer Check
Check = Open (filename for binary access read as #F)
Close #F
If (Check = 0) Then
Function = -1
Else
Function = 0
End If
End Function
Namespace Global
Declare Sub Init()
Declare Sub Close()
Dim Language as String
' Dim numFont as Image
' Dim bigFont as Image
Sub Init()
Dim F as Integer
Dim L as Integer
If FileCheck("config.cfg") Then
F = Freefile
Open "config.cfg" for binary access read as #F
get #F,,L
Close #F
End If
'Else
'screenres 800,400,32,,&h04 ''NO-SWITCH
'Windowtitle "FBCC#4 5in15 (2013)"
'sleep 5000,1
'End If
Select Case L
Case 1
Language = "DE"
Case Else
Language = "EN"
End Select
screenres 800,768,32,,&h04 ''NO-SWITCH
Windowtitle "FBCC#4 5in15 (2013)"
'numFont = LoadImage(datapath & "tnums.bmp")
'bigFont = LoadImage(datapath & "bigfont.bmp")
End Sub
Sub Close()
' If numFont Then Imagedestroy(numFont)
' If bigFont Then Imagedestroy(bigFont)
End Sub
End Namespace