gb.settings - und es geht doch...

Schnipsel, Ideen und Lösungsvorschläge

gb.settings - und es geht doch...

Beitragvon rammelteid » Di 18. Apr 2006, 13:13

... jedenfalls bei Version 1.9.28

Schaut man sich die Settings.class aus dem Quellenbaum an, findet man noch zwei, vielleicht, interessante Sachen.

Collection of Collections:
Code: Alles auswählen
$cSlot[sSlot] = NEW Collection


"File" läßt sich mißbrauchen, da bei gb.settings Übergaben in der Form "/slot/key" erfolgen:
Code: Alles auswählen
IF $cSlot.Exist(sSlot) THEN
    Key = File.Name(Key)


Code: Alles auswählen
sSlot = File.Dir(sKey)


Code: Alles auswählen
' Gambas module file

PUBLIC frmMain AS NEW Form AS "frmMain"
PUBLIC togSwitch AS NEW ToggleButton(frmMain) AS "togSwitch"
PUBLIC btnText AS NEW Button(frmMain) AS "btnText"
PUBLIC langSetting AS NEW Settings(user.Home & "/" & "lang.conf") AS "langSetting"

SUB Main()
  frmMain_Open
END

PUBLIC SUB frmMain_Open()
  WITH frmMain
    .Width = 150
    .Height = 150
    .Border = 1
  END WITH

  WITH togSwitch
    .X = 10
    .Y = 10
    .Width = 130
    .Height = 55
    .Text = "Englisch"
  END WITH

  WITH btnText
    .X = 10
    .Y = 80
    .Width = 130
    .Height = 55
    .Text = "Tritt Mich!"
  END WITH

  frmMain.Center
  frmMain.Show
END

PUBLIC SUB togSwitch_Click()
   SELECT CASE togSwitch.Value
     CASE TRUE
       togSwitch.Text = "Deutsch"
       langChange("en")
     CASE FALSE
       togSwitch.Text = "Englisch"
       langChange("de")
   END SELECT
END
PUBLIC SUB langChange(lang AS String)
  btnText.Text = langSetting["/" & lang & "/btnText"]
END



####
# Tolle Konfiguration
####

# Sprache Deutsch
[de]
btnText="Tritt mich!"

# Sprache Englisch
[en]
btnText="Kick me!"
rammelteid
Foriker
 
Beiträge: 18
Registriert: Mo 3. Apr 2006, 11:31

Zurück zu Schnipsel / HOWTO's

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast