Sub Globals
Dim DisplayManager, DesignManager As AHPreferenceManager
Dim DisplayScreen, DesignScreen As AHPreferenceScreen
end sub
Sub CreatePreferenceScreen
DisplayScreen.Initialize("Display","")
Dim DisplayCat1 As AHPreferenceCategory
DisplayCat1.Initialize("Einstellungen Display")
DesignScreen.Initialize("Design","Hintergrund ändern")
DesignScreen.AddCheckBox("CheckBoxKlassisch", "Klassisch", "", "", True, "")
DesignScreen.AddCheckBox("CheckBoxErde", "Erde", "", "", False, "")
DisplayCat1.AddPreferenceScreen(DesignScreen)
DisplayCat1.AddCheckBox("CheckBoxAusrichtung", "Ausrichtung", "Auto", "Fest", True, "")
DisplayScreen.AddPreferenceCategory(DisplayCat1)
end sub