SBP
 ’½ ******************************************************************
 ’½ **************** Beispielprogramm mit fraktalen Grafiken *********
 ’½ ****************      Version vom 25.Okt. 1995         ***********
 ’½ ******************************************************************
 
 ’½ *** Sw% Schrittweite auf dem Balken
 ’½ *** Pos%% Aktuelle Position des Mausezeigers auf dem Balken
 ’½ *** Name$()Array von 1 bis 5 im Spiel
 ’½ *** HoheFlag%%=Menh„cken, wenn 1
 ’½ *** KleineFlag%%=Menh„cken, wenn 1
 ’½ *** DtFlag%%=Menh„cken, wenn 1
 ’½ *** GBFlag%%=Menh„cken, wenn 1
 ’½ *** SpielFlag%%=Menh„cken, wenn 1
 ’½ *** DatenFlag%%=Menh„cken, wenn 1
 ’½ *** Richtig%%= Anzahl der richtigen Antworten
 ’½ *** Falsch%%= Anzahl der Falschen Antworten
 ’½ *** OB$ Zuweisung fr Optionsfelder
 ’½ *** Feldname$
 ’½ ON ERROR GOTO Fehler

 ’’Pos%%,Sw%,Name$(5),HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%,Richtig%%,Falsch%%,OB$,FeldName$
 ’½ *** Fr die Superboxes...
 ’’TRUE%%,FALSE%%
 
 ’½ Es gibt zwei Symbolleisten, die abwechselnd aktiviert werden
 ’×Bar ’UIconBar
 ’×Item ’UIconControl
 ’ƒIBdt()
 ’ƒIBeng()
 Superbase.Visible’0
 Superbase.ProcessQueue’0
 Superbase.DebugMode’0
 Superbase.MDIMode’0
 Superbase.Window.ScrollBars’0
 Superbase.AutoEdit’’1
 Superbase.StatusBar’0
 Superbase.SelectionBar’0
 Superbase.IconBarState’’1
 Superbase.SaveSettings("SelectionBar")
 Superbase.MessageConfirmation’2048
 Superbase.ProcessSelectionBar’0
 Superbase.Error(8)’0
 Superbase.Error(10)’0
 
 ’“’™’ą,8"CONFIG"
 ’“’™’ą,8"STEINE"
 ’“’™’ą,8"SPRACHE"
 Superbase.RequestHeading’Edelsteine.SPRACHE
 Superbase.Caption’Edelsteine.SPRACHE

 ’½ Sorgt dafr, daį Superbase Aufl”sungsunabh„ngig zentriert wird.
 ’É’ęSuperbase.Height
 ’ę480
Tief%%’185
Top%%’2
 ’ę600
Tief%%’255
Top%%’60
 ’ę768
Tief%%’377
Top%%’79
 ’’’ę
 
 ’Ø’œ"Steine"

 Superbase.Move(Tief%%,Top%%,Breite.CONFIG,H”he.CONFIG)
 Sw%’2500’’A("STEINE")' 2500=Balkenposition hinten 
 Pos%%’100' 100=Balkenposition vorne
 Superbase.Width’Breite.CONFIG
 Superbase.Height’H”he.CONFIG
 Superbase.Sizeable’0

 Superbase.Form.AutoRedraw’0
 Superbase.Form.Page.RefreshStyle’1
 
 ’ƒDatenbank()
 Superbase.Form.Zeiger.Move(100,80,135,135)
 
 ’½ Die zuletzt eingestellte Sprache wieder aufrufen
 ’”Sprache.Config’"Deutsch"’p’ƒSpracheDt()’^’ƒSpracheEng()
 
 ’œ’Č
 ’½ Hiermit wird Visible auf True gesetzt:
 Superbase.WindowState’0
 
 ’³’’’„’ƒTastatur(),’’30

 ’Ų’1
’½ *** Die Tasten werden nur im Datenbankmodus ben”tigt
’”SpielFlag%%’1’p
’’’„’e
’ƒSpiel1()
’^
’’’„’³
’’’”
Superbase.CursorType’1
Superbase.Process()
 ’Ł

’’Suchen()
’ĀFrage1.SPRACHE,"",4,a%%,a$
’”a%%’0’p’’’’
’É’„a$
Pos%%’’0(Nummer.STEINE)’Sw%
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
’ƒAnzeigen()
 ’’’’

’’Erster()
Stop%%’1
’ƒSelectFirst()
Pos%%’100
Superbase.Form.Zeiger.Move(100,80,135,135)
’ƒAnzeigen()
 ’’’’

’’Letzter()
’ƒSelectLast()
Pos%%’2500
Superbase.Form.Zeiger.Move(2500,80,135,135)
’ƒAnzeigen()
 ’’’’

’’N„chster()
’ƒSelectNext()
Pos%%’Pos%%’
Sw%
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
’ƒAnzeigen()
 ’’’’

’’Vorheriger()
’ƒSelectPrevious()
Pos%%’Pos%%’Sw%
’”’B("STEINE")’pPos%%’100
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
’ƒAnzeigen()
 ’’’’
 
’’Vorlauf()
’›Pos%%’Pos%%’q2500’kSw%
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
’ƒSelectNext()
’ƒAnzeigen()
’±Pos%%
 ’’’’
 
’’Rcklauf()
’›Pos%%’Pos%%’q100’kSw%’(’1)
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
’ƒSelectPrevious()
’ƒAnzeigen()
’±Pos%%
 ’’’’
 
’’Balken()
’½ *** Steuert den Mausklick in den Balken
Pos%%’(Superbase.MouseX’Tief%%’10)’10.2
’”Pos%%’2500’pPos%%’2500
’”Pos%%’
100’pPos%%’100
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
I$’’£
’£Nummer.STEINE
’É’„’(Pos%%’Sw%,"00000")
’Ź’£’t
’£I$
’ƒAnzeigen()
 ’’’’

’’Anzeigen()
’›i%%’1’q’/(NameDt.STEINE)
Superbase.Form.Label.Caption’’+(NameDt.STEINE,i%%)
Superbase.Form.Refresh()
’Ļ’›0.1
’±i%%
 ’’’’

’’Highscore()
’×dlg ’UDialog
’×control ’UDialogControl
’¾’ń’t
Superbase.Dialogs.Add("Highscore")
’Źdlg ’Superbase.Dialogs.Highscore
dlg.Move(Tief%%’100,Top%%,158,105)
dlg.Caption’"Highscore"
dlg.FontName’"MS Sans Serif"
dlg.FontSize’8
 
’Źcontrol ’dlg.Add("DialogLabel1","DialogLabel")
control.Move(14,8,122,9)
control.Alignment’2
control.CaptionBinding’"Highscore"
 
’Źcontrol ’dlg.Add("DialogLabel4","DialogLabel")
control.Move(14,28,122,10)
control.Alignment’2
control.CaptionBinding’"Score1"
 
’Źcontrol ’dlg.Add("DialogLabel2","DialogLabel")
control.Move(14,44,122,10)
control.Alignment’2
control.CaptionBinding’"Score2"
 
’Źcontrol ’dlg.Add("DialogLabel3","DialogLabel")
control.Move(14,59,122,9)
control.Alignment’2
control.CaptionBinding’"Score3"
 
’Źcontrol ’dlg.Add("DialogCommandButton1","DialogCommandButton")
control.Move(56,81,40,13)
control.Default’1
control.Caption’"OK"
control.ReturnValue’1
control.Cancel’1
dlg.SetActive()
 ’’’’

’’Spiel()
’½ *** Die Routine muį verlassen werden, wenn man schon im Spielmodus ist
’”SpielFlag%%’1’p’’’’

Superbase.ProcessClear()

’½ Iconbar ausblenden
Superbase.IconBarState’0

’½ Das Men aktualisieren
SpielFlag%%’1
DatenFlag%%’0
’ƒMN1(HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%)
 
’½ H”he wegen fehlender Iconbar ausgleichen
Superbase.Sizeable’’1
Superbase.Height’450
Superbase.Sizeable’0

’½ Punktestand zurcksetzen
Richtig%%’0
Falsch%%’0

Superbase.Form.DefFontString’"Arial,10,1,1,0"
Superbase.Form.Abbildung.Move(63,1542,2604,2500)
Superbase.Form.Label.Delete()
Superbase.Form.Balken.Delete()
Superbase.Form.Zeiger.Delete()
 
Superbase.Form.Add("Text1","Label")
Superbase.Form.Text1.Move(100,80,2500,200)
Superbase.Form.Text1.Caption’Text1.SPRACHE
 
Superbase.Form.Add("Option1","OptionButton")
Superbase.Form.Option1.Move(100,260,2000,200)
Superbase.Form.Option1.OnClick.Procedure’"Checken"
Superbase.Form.Option1.TabIndex’1
Superbase.Form.Option1.ControlSource’"OB$"
 
Superbase.Form.Add("Option2","OptionButton")
Superbase.Form.Option2.Move(100,510,2000,200)
Superbase.Form.Option2.OnClick.Procedure’"Checken"
Superbase.Form.Option2.TabIndex’2
Superbase.Form.Option2.ControlSource’"OB$"

Superbase.Form.Add("Option3","OptionButton")
Superbase.Form.Option3.Move(100,760,2000,200)
Superbase.Form.Option3.OnClick.Procedure’"Checken"
Superbase.Form.Option3.TabIndex’3
Superbase.Form.Option3.ControlSource’"OB$"
 
Superbase.Form.Add("Option4","OptionButton")
Superbase.Form.Option4.Move(100,1010,2000,200)
Superbase.Form.Option4.OnClick.Procedure’"Checken"
Superbase.Form.Option4.TabIndex’4
Superbase.Form.Option4.ControlSource’"OB$"

Superbase.Form.Add("Option5","OptionButton")
Superbase.Form.Option5.Move(100,1260,2000,200)
Superbase.Form.Option5.OnClick.Procedure’"Checken"
Superbase.Form.Option5.TabIndex’5
Superbase.Form.Option5.ControlSource’"OB$"
 
Superbase.Form.Add("Weiterbutton","CommandButton")
Superbase.Form.Weiterbutton.Move(2000,80,600,180)
Superbase.Form.Weiterbutton.Value’0
Superbase.Form.Weiterbutton.TabIndex’6
Superbase.Form.Weiterbutton.Caption’n„chste.SPRACHE
Superbase.Form.Weiterbutton.WindowsDefaults’’1
Superbase.Form.Weiterbutton.Command’"CALL Spiel1()"
 
’’’’

’’Spiel1()

Superbase.ProcessClear()
’›a%%’1’q’0(’-(’(’R,"99999999"),2))
x%’’(1)
’±a%%

x$’’(’(’R)’52,"00000")
’É’„x$’£Nummer
’Ź’£’t

’ƒSelectCurrent()

I$’Nummer.STEINE
’£Nummer.STEINE
 
’›i%%’1’q5
x$’’(’(1)’52,"00000")
’É’„x$’£Nummer
’Ź’£’t
Name$(i%%)’FeldName$$
’±i%%

’É’„I$
’Ź’£’t

’½ *** Damit der Name der Abbildung dabei ist
Name$(’(’R)’4’
1)’FeldName$$

’£FeldName$$
Superbase.Form.Option1.Caption’Name$(1)
Superbase.Form.Option1.ValueOn’Name$(1)
Superbase.Form.Option2.Caption’Name$(2)
Superbase.Form.Option2.ValueOn’Name$(2)
Superbase.Form.Option3.Caption’Name$(3)
Superbase.Form.Option3.ValueOn’Name$(3)
Superbase.Form.Option4.Caption’Name$(4)
Superbase.Form.Option4.ValueOn’Name$(4)
Superbase.Form.Option5.Caption’Name$(5)
Superbase.Form.Option5.ValueOn’Name$(5)
Superbase.Form.Refresh()

’Ź’ŸRichtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE
 ’’’’

’’Checken()
Superbase.ProcessClear()
’”Name$(’0(’-(Me.Name,1)))’FeldName$$’p
’Ź’ŸRichtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE
’Ļ’›0.5
’Ź’Ÿ"            "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE
’Ļ’›0.5
’
Richtig%%’Richtig%%’
1
’^
’Ź’ŸRichtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE
’Ļ’›0.5
’Ź’ŸRichtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
"            "
’Ļ’›0.5
’
Falsch%%’Falsch%%’
1
’’’”
’Ź’ŸRichtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE
Superbase.Form.Refresh()

’”Falsch%%’0’pFal%%’1'Sonst Division durch 0
Quote%’Richtig%%’Fal%%
Quote$’’(Quote%,"00.00")
’”Quote%’’0(’-(Score1.CONFIG,5))’p
Score1.CONFIG’Richtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE’
"   Quote: "’
Quote$
’^’”Quote%’’0(’-(Score2.CONFIG,5))’p
Score2.CONFIG’Richtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE’
"   Quote: "’
Quote$
’^’”Quote%’’0(’-(Score3.CONFIG,5))’p
Score3.CONFIG’Richtig.SPRACHE’
" "’
’(Richtig%%,"00")’
":"’
’(Falsch%%,"00")’
" "’
Falsch.SPRACHE’
"   Quote: "’
Quote$
’^
’’’”

’Ģ’™"CONFIG"
’’’’

’’Datenbank()
Superbase.IconBarState’’1
’Ø’œ"STEINE"
’œ’Č
 
’½ *** Position Zeiger
Pos%%’’0(Nummer.STEINE)’Sw%
Superbase.Form.Zeiger.Move(Pos%%,80,135,135)
 
’½ H”he zurcksetzen
Superbase.Sizeable’’1
Superbase.Height’475
Superbase.Sizeable’0
 
’½ Das Men aktualisieren
SpielFlag%%’0
DatenFlag%%’1
’ƒMN1(HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%)

’½ Die Kopfzeile setzen  
Superbase.Caption’Edelsteine.SPRACHE

’½ Die zuletzt eingestellte Sprache wieder aufrufen
’”Sprache.Config’"Deutsch"’p’ƒSpracheDt()’^’ƒSpracheEng()
’ƒAnzeigen()

 ’’’’



’’SpracheDt()
’½ *** Stellt auf deutsch
Datei$’’™
’™"SPRACHE"
’É’„"Deutsch"’£Sprache
GBFlag%%’0
DtFlag%%’1
Sprache.CONFIG’"Deutsch"
’Ģ’™"CONFIG"
Superbase.IconBars("IBdt").SetActive()

’ƒMN1(HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%)
Superbase.Caption’Edelsteine.SPRACHE
Superbase.RequestHeading’Edelsteine.SPRACHE
’™Datei$
’”SpielFlag%%’1’p
Superbase.Form.Text1.Caption’Text1.SPRACHE
Superbase.Form.Weiterbutton.Caption’n„chste.SPRACHE
’^
’’’”
Superbase.Form.Refresh()
 
’½ Damit mit das der aktellen Sprache entsprechende Feld genommen wird 
FeldName$’"NameDt.STEINE"
 
 ’’’’
 
’’SpracheEng()
’½ *** stellt auf englisch
Datei$’’™
’™"SPRACHE"
’É’„"English"’£Sprache 
GBFlag%%’1
DtFlag%%’0
Sprache.CONFIG’"Englisch"
’Ģ’™"CONFIG"
Superbase.IconBars("IBeng").SetActive()

’ƒMN1(HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%)
Superbase.Caption’Edelsteine.SPRACHE
Superbase.RequestHeading’Edelsteine.SPRACHE
’™Datei$
’”SpielFlag%%’1’p
Superbase.Form.Text1.Caption’Text1.SPRACHE
Superbase.Form.Weiterbutton.Caption’n„chste.SPRACHE
’^
’’’”
Superbase.Form.Refresh()

’½ Damit mit das der aktellen Sprache entsprechende Feld genommen wird 
FeldName$’"NameEng.STEINE"
 
 ’’’’
 
’’Anleitung()
’ĀAnleitung1.SPRACHE,Anleitung2.SPRACHE,100
 ’’’’


’’MN1(HoheFlag%%,KleineFlag%%,DtFlag%%,GBFlag%%,SpielFlag%%,DatenFlag%%)
’”MenuBars.Exists("MN1")’pMenuBars("MN1").Delete()
 
 ’×Bar ’UMenuBar
 ’×Level0 ’UMenuItem
 ’×Level1 ’UMenuItem
 ’×Level2 ’UMenuItem
 
 ’ŹBar ’MenuBars.Add("MN1","MenuBar")
 
 ’ŹLevel0 ’Bar.Add("&Datei","Menu")
Level0.Caption’Datei.SPRACHE
 
’ŹLevel1 ’Level0.Add("&Highscore","MenuItem")
Level1.Procedure’"Highscore"
Level1.Caption’"&Highscore"
 
’ŹLevel1 ’Level0.Add("&Beenden","MenuItem")
Level1.Procedure’"Beenden"
Level1.Caption’Beenden.SPRACHE
Level1.ShortCut’"Alt+F4"

 ’ŹLevel0 ’Bar.Add("&Eigenschaften","Menu")
Level0.Caption’Eigenschaften.SPRACHE
 
’ŹLevel1 ’Level0.Add("&Sprache","Menu")
Level1.Caption’Sprach1.SPRACHE

’ŹLevel2 ’Level1.Add("&English","MenuItem")
Level2.Procedure’"SpracheEng"
Level2.Caption’Englisch.SPRACHE
Level2.Checked’GBFlag%%
 
’ŹLevel2 ’Level1.Add("&Deutsch","MenuItem")
Level2.Procedure’"SpracheDt"
Level2.Caption’Deutsch.SPRACHE
Level2.Checked’DtFlag%%
 
’ŹLevel1 ’Level0.Add("&Modus","Menu")
Level1.Caption’Modus.SPRACHE

’ŹLevel2 ’Level1.Add("&Spiel","MenuItem")
Level2.Procedure’"Spiel"
Level2.Caption’Spiel.SPRACHE
Level2.Checked’SpielFlag%%
 
’ŹLevel2 ’Level1.Add("&Datenbank","MenuItem")
Level2.Procedure’"Datenbank"
Level2.Caption’Datenbank.SPRACHE
Level2.Checked’DatenFlag%%
 
 ’ŹLevel0 ’Bar.Add("&Hilfe","Menu")
Level0.Caption’Hilfe.SPRACHE
 
’ŹLevel1 ’Level0.Add("&Anleitung","MenuItem")
Level1.Caption’Anleitung.SPRACHE
Level1.Procedure’"Anleitung"
 
’ŹLevel1 ’Level0.Add("&Info","MenuItem")
Level1.Procedure’"Copyright"
 
 MenuBars("MN1").SetActive()

 ’’’’

’’Beenden()
Superbase.Visible’0
’»
 ’’’’
 
Fehler: 
 ’Ā"Es ist der Fehler Nr. "’
’(’&,"9999")’
" aufgetreten.","Das Programm wird beendet.",100
 ’ƒBeenden()
 
 
’’IBdt()
’”IconBars.Exists("IBdt")’p
IconBars("IBdt").Delete()
’^
’’’”

’½ DIM Bar AS IconBar
’½ DIM Item AS IconControl
 
’ŹBar ’IconBars.Add("IBdt","IconBar")
 
’ŹItem ’Bar.Add("Erster","Icon")
Item.Position’1
Item.Procedure’"Erster"
Item.Bitmap’"SelectFirst"
Item.HelpText’"Erster Datensatz;Erster Datensatz"
 
’ŹItem ’Bar.Add("Rcklauf","Icon")
Item.Position’3
Item.Procedure’"Rcklauf"
Item.Bitmap’"SelectRewind"
Item.HelpText’"Schneller Vorlauf;Schneller Vorlauf"
 
’ŹItem ’Bar.Add("SelectPrevious","Icon")
Item.Position’5
Item.Procedure’"Vorheriger"
Item.Bitmap’"SelectPrevious"
Item.HelpText’"Vorheriger Datensatz;Vorheriger Datensatz"
 
’ŹItem ’Bar.Add("SelectKey","Icon")
Item.Position’8
Item.Procedure’"Suchen"
Item.Bitmap’"SelectKey"
Item.HelpText’"Suchen;Suchen"
 
’ŹItem ’Bar.Add("SelectNext","Icon")
Item.Position’11
Item.Procedure’"N„chster"
Item.Bitmap’"SelectNext"
Item.HelpText’"N„chster Datensatz;N„chster Datensatz"
 
’ŹItem ’Bar.Add("Vorlauf","Icon")
Item.Position’13
Item.Procedure’"Vorlauf"
Item.Bitmap’"SelectFForward"
Item.HelpText’"Schneller Vorlauf;Schneller Vorlauf"
 
’ŹItem ’Bar.Add("SelectLast","Icon")
Item.Position’15
Item.Procedure’"Letzter"
Item.Bitmap’"SelectLast"
Item.HelpText’"Letzter Datensatz;Letzter Datensatz"

 ’’’’
 
’’IBeng()
’”IconBars.Exists("IBeng")’p
IconBars("IBeng").Delete()
’^
’’’”

’½ DIM Bar AS IconBar
’½ DIM Item AS IconControl
 
’ŹBar ’IconBars.Add("IBeng","IconBar")
 
’ŹItem ’Bar.Add("Erster","Icon")
Item.Position’1
Item.Procedure’"Erster"
Item.Bitmap’"SelectFirst"
Item.HelpText’"First Record;First Record"
 
’ŹItem ’Bar.Add("Rcklauf","Icon")
Item.Position’3
Item.Procedure’"Rcklauf"
Item.Bitmap’"SelectRewind"
Item.HelpText’"Rewind;Rewind"
 
’ŹItem ’Bar.Add("SelectPrevious","Icon")
Item.Position’5
Item.Procedure’"Vorheriger"
Item.Bitmap’"SelectPrevious"
Item.HelpText’"Previous Record;Previous Record"
 
’ŹItem ’Bar.Add("SelectKey","Icon")
Item.Position’8
Item.Procedure’"Suchen"
Item.Bitmap’"SelectKey"
Item.HelpText’"Search;Search"
 
’ŹItem ’Bar.Add("SelectNext","Icon")
Item.Position’11
Item.Procedure’"N„chster"
Item.Bitmap’"SelectNext"
Item.HelpText’"Next Record;Next Record"
 
’ŹItem ’Bar.Add("Vorlauf","Icon")
Item.Position’13
Item.Procedure’"Vorlauf"
Item.Bitmap’"SelectFForward"
Item.HelpText’"Fast Forward;Fast Forward"
 
’ŹItem ’Bar.Add("SelectLast","Icon")
Item.Position’15
Item.Procedure’"Letzter"
Item.Bitmap’"SelectLast"
Item.HelpText’"Last Record;Last Record"
 
 ’’’’
 
’’Tastatur(Zeit%,AskiWert%%,Ftast$)
’É’ęAskiWert%%
’ę63
’ƒSuchen()
’ę177
’ƒVorheriger()
’ę178
’ƒN„chster()
’ę186
’ƒLetzter()
’ę189
’ƒErster()
’ę120
’ƒEnde()
’’’ę
’’
 ’’’’

’’Copyright()
’”’O’÷("SBSUBS")’p’Ø"SBSUBS",’°
’ƒRegisterDLLs()
TRUE%%’’1
’ƒSBInit("MyMouseProc","MyCloseProc",TRUE%%)
X%%’RunSample%%()
’ƒSBDone()
’ī’…
 ’’’’
 
’’GetSampleNamewww$()
GetSampleName$’"SuperBoxes Info"
 ’’’’
 
’’GetSampleMsgwww$()
Msg$’"This runs the SuperBoxes information dialog. "
Msg$’Msg$’
"This example demonstrates using 'Box Script' and timer messages to create animation or guided tours!"
Msg$’Msg$’
"The demo uses text and graphics to present information about SuperBoxes version 3.0"
GetSampleMsg$’Msg$
 ’’’’
 
’’RunSample%%()'   returns TRUE%% if completed.
 
’½ * Creates a dialog with an OwnerDraw window
’½ * and a Picture Button.
 
 
DlgId%%’SBDialog%%(Tief%%’
7,Top%%’
116,256,340,"Info-Box","0")
’ƒSBSetExData(DlgId%%,10,0)

X%%’SBStatic%%(5,5,253,253,1,"")
ODId%%’SBOwnerDraw%%(6,6,250,250,2,"")
’ƒSBSetExData(ODId%%,10,25)
 
’½ ---- Assign BoxScript file and run Main ----
’½ Die aktuelle Sprache einstellen
’”Sprache.Config’"Deutsch"’p’ƒSBLoadMacros(ODId%%,"INFODT.SBS")’^’ƒSBLoadMacros(ODId%%,"INFOENG.SBS")
’ƒSBRunMacro(ODId%%,"Main")
’ƒSBSetExInt(DlgId%%,1,ODId%%)
 
’ƒSBSetFocus(SBPictureBtn%%(100,270,80,25,"OK.BMP","&Ok","1"))
X%%’SBWaitDialog%%(DlgId%%)
RunSample%%’TRUE%%
 ’’’’

’’CloseSample%%()'  returns TRUE%% if successful
CloseSample%%’TRUE%%
 ’’’’