Sub SCV10Einstellungen_fuellen ' Werte für Einstellungen in Liste füllen
Dim linie(4) As Label ' Trennlinie zwischen Zeilen
Einstellungen_leeren ' Scrollview Einstellungen Views leeren
For i = 0 To 3
linie(i).Initialize("linie(i)") ' Zeilentrennlinie zwischen Werten
linie(i).Color = Colors.Gray
Next
SPI10_Sprache.SelectedIndex = sprache
SPI10_KMeingabe.SelectedIndex = km_eingabe
SPI10_tbl_sort.SelectedIndex = tbl_sort
wert_waehrung.Text = waehrungssymbol
If sprache = 1 Then
titel_waehrung.TextColor = Colors.Gray
titel_waehrung.Enabled = False ' Währungssymbol =$ , nicht änderbar
wert_waehrung.TextColor = Colors.Gray
wert_waehrung.Enabled = False
End If
Dim ypos,abstand,catx,wertx As Int
ypos = 2dip
catx = 5dip
wertx = 15dip
abstand = 28dip
SCV10Einstellungen.Panel.AddView(cat_Allgemein,0,ypos,100%x,25dip) ' Kategorie "Allgemein" Titel einfügen
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(titel_waehrung,wertx,ypos,100%x-wertx,30dip) ' Titeltext für Währungssymbol
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(wert_waehrung,wertx+10dip,ypos,100%x-wertx,25dip) ' Wert der variablen "Waehrungssymbol"
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(linie(0),0,ypos,100%x-wertx,1dip) ' Zeilentrennlinie einfügen
ypos = ypos + abstand -15dip
SCV10Einstellungen.Panel.AddView(Titel_sprache,wertx,ypos,100%x-wertx,30dip) ' Titeltext für Sprache
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(SPI10_Sprache,wertx,ypos,100%x-wertx,40dip) ' Wert der variablen "sprache"
ypos = ypos + abstand + 20dip
SCV10Einstellungen.Panel.AddView(linie(1),0,ypos,100%x-wertx,1dip) ' Zeilentrennlinie einfügen
ypos = ypos + abstand -15dip
SCV10Einstellungen.Panel.AddView(Titel_KMeingabe,wertx,ypos,100%x-wertx,30dip) ' Titeltext für Sprache
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(SPI10_KMeingabe,wertx,ypos,100%x-wertx,40dip) ' Wert der variablen "sprache"
ypos = ypos + abstand + 20dip
SCV10Einstellungen.Panel.AddView(cat_tabelle,0,ypos,100%x,25dip) ' Kategorie "Tabelle" Titel einfügen
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(titel_tbl_spalten,wertx,ypos,100%x-wertx,30dip) ' Titeltext für Tabellenspalten ein/aus
ypos = ypos + abstand +15dip
SCV10Einstellungen.Panel.AddView(CHKBox10KFZ,wertx,ypos,100dip,35dip) ' Wert Tabellenspalte KFZ Nr.
SCV10Einstellungen.Panel.AddView(CHKBox10datum,170dip,ypos,100dip,35dip) ' Wert Tabellenspalte Datum
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(CHKBox10ort,wertx,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Ort
SCV10Einstellungen.Panel.AddView(CHKBox10Tachostand,170dip,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Tachostand
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(CHKBox10distanz,wertx,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Distanz
SCV10Einstellungen.Panel.AddView(CHKBox10tage,170dip,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Tage
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(CHKBox10liter,wertx,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Liter
SCV10Einstellungen.Panel.AddView(CHKBox10Literpreis,170dip,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Literpreis
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(CHKBox10verbrauch,wertx,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Verbrauch
SCV10Einstellungen.Panel.AddView(CHKBox10rechnung,170dip,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Rechnung
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(CHKBox10tankart,wertx,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Tankart
SCV10Einstellungen.Panel.AddView(CHKBox10Notiz,170dip,ypos,100%x-wertx,35dip) ' Wert Tabellenspalte Notiz
ypos = ypos + abstand +20dip
SCV10Einstellungen.Panel.AddView(linie(2),0,ypos,100%x-wertx,1dip) ' Zeilentrennlinie einfügen
ypos = ypos + abstand -15dip
SCV10Einstellungen.Panel.AddView(Titel_tbl_sort,wertx,ypos,100%x-wertx,30dip) ' Titeltext für Tabellensortierung
ypos = ypos + abstand
SCV10Einstellungen.Panel.AddView(SPI10_tbl_sort,wertx,ypos,100%x-wertx,40dip) ' Wert der variablen "sprache"
ypos = ypos + abstand +10dip
SCV10Einstellungen.Panel.AddView(linie(3),0,ypos,100%x-wertx,1dip) ' Zeilentrennlinie einfügen
pnl10scroll.Height = ypos +30dip
End Sub
Sub Einstellung_Sprache_itemclick (Position As Int, Value As Object) ' Einstellung Sprache ändern wurde gewählt
sprache = SPI10_Sprache.SelectedIndex
If sprache = 1 Then
Msgbox("Be restarted after changing the language, the program must !","")
Else
Msgbox("Nach Änderung der Sprache muss das Programm neu gestartet werden !","")
End If
' SCV10Einstellungen_fuellen ' Scollview neu füllen
End Sub