3 Gadget-Probleme

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

Ich hab jezt den Code von Dare Devil genommen... aber wie kann ich jetzt die Ausgewählte Breite/Höhe und Tiefe in eine PREFS-Datei eintragen? Also eigentlich sind die Probs nur:
  • Das Prog wird bei jedem Bildschirm andere Höhen/Breiten anzeigen, da ja nicht alle auf allen Bildschirmen funzen.
  • Mit CountGadgetItems() funzt GetGadgetState() nicht, oder doch? Und selbst wenn es funzen würde, würde bei einem Bildschirm der Eintrag Nummer 4 ein anderer sein als bei einem anderen Bildschirm, weill der zuletzt genannte vllt. nicht alle Breite/Höhen-Verhältnisse verwalten kann.
Mein vollständiger Code:

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Combo_0
  #Text_1
  #Radio_0
  #Radio_1
  #Radio_3
  #Radio_5
  #Radio_7
  #Button_0
  #Button_1
  #Button_3
EndEnumeration

InitSprite()
ExamineDesktops()
Global NewList Aufloesungen.s()
Global NewList Tiefe.l()
Global NewList Alle.s()


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 242, 46, 610, 310, "Aimer – Start Manager",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    ;If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 10, 20, 110, 20, "Auflösung auswählen:")
      ComboBoxGadget(#Combo_0, 10, 50, 120, 20)
      TextGadget(#Text_1, 210, 20, 110, 20, "Farbtiefe auwählen")
      OptionGadget(#Radio_0, 210, 40, 240, 30, "4 Bit.........16 Farben / nicht empfehlenswert")
      OptionGadget(#Radio_1, 210, 70, 250, 30, "8 Bit.........256 Farben / nicht empfehlenswert")
      OptionGadget(#Radio_3, 210, 100, 280, 30, "16 Bit.......65 536 Farben / nur für alte Grafikkarten")
      OptionGadget(#Radio_5, 210, 130, 260, 30, "24 Bit.......16 777 216 Farben / empfehlenswert")
      OptionGadget(#Radio_7, 210, 160, 380, 30, "32 Bit.......16 777 216 Farben, schneller als 24 Bit / sehr empfehlenswert")
      ButtonGadget(#Button_0, 10, 230, 130, 30, "Aimer v1.00 starten")
      ButtonGadget(#Button_1, 470, 230, 130, 30, "Beenden")
      ButtonGadget(#Button_3, 230, 230, 130, 30, "Speichern ohne beenden")
     
      If ExamineScreenModes()
        While NextScreenMode()
          AddElement(Alle())
          Alle() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())
          aufChange = 1
          tiefChange = 1
          ForEach Aufloesungen()
            If Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
              aufChange = 0
            EndIf
          Next
         
          If aufChange = 1
            AddElement(Aufloesungen())
            Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
          EndIf
         
          ForEach Tiefe()
            If Tiefe() = ScreenModeDepth()
              tiefChange = 0
            EndIf
          Next
         
          If tiefChange = 1
            AddElement(Tiefe())
            Tiefe() = ScreenModeDepth()
          EndIf
        Wend
      EndIf
     
      ForEach Aufloesungen()
        AddGadgetItem(#Combo_0, CountGadgetItems(#Combo_0), Aufloesungen())
      Next
     
    ;EndIf
  EndIf
EndProcedure 


Open_Window_0()

Select DesktopDepth(0)
  Case 4
    SetGadgetState(#Radio_0, 1)
  Case 8
    SetGadgetState(#Radio_1, 1)
  Case 16
    SetGadgetState(#Radio_3, 1)
  Case 24
    SetGadgetState(#Radio_5, 1)
  Case 32
    SetGadgetState(#Radio_7, 1)
EndSelect

SetGadgetText(#Combo_0,Str(DesktopWidth(0))+"x"+Str(DesktopHeight(0)))


Repeat
 
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
 
  Select Event
    Case #PB_Event_CloseWindow
      EXIT = 1

    Case #PB_Event_Gadget
      Select GadgetID
        Case #Combo_0
         
        Case #Radio_0
         
        Case #Radio_1
         
        Case #Radio_3
         
        Case #Radio_5
         
        Case #Radio_7
         
        Case #Button_0
         
        Case #Button_1
          EXIT = 1

        Case #Button_3
         
      EndSelect
  EndSelect
Until EXIT

End
;


PrefsWirte:
If CreatePreferences("settings.prefs")
  PreferenceGroup("StartSettings")
  If GetGadgetState(#Combo_0) = 0 Or GetGadgetState(#Combo_0) = 1
    hoehe$ = Left(GetGadgetText(#Combo_0),3)
    WritePreferenceLong("ScreenWidth",Val(hoehe$))
  Else
    breite$ = Left(GetGadgetText(#Combo_0),4)
    WritePreferenceLong("ScreenWidth",Val(breite$))
  EndIf
    hoehe$ = Right(GetGadgetText(#Combo_0),3)
    WritePreferenceLong("ScreenHeight",Val(hoehe$))
    
  If GetGadgetState(#Radio_0) = 1
    WritePreferenceLong("Depth",4)
  ElseIf GetGadgetState(#Radio_1) = 1
    WritePreferenceLong("Depth",8)
  ElseIf GetGadgetState(#Radio_3) = 1
    WritePreferenceLong("Depth",16)
  ElseIf GetGadgetState(#Radio_5) = 1
    WritePreferenceLong("Depth",4)
  EndIf
Else
  MessageRequester("Fehler!","Konnte die Voreinstellungen nicht laden/speichern."+Chr(10)+"Neuinstallation könnte den Fehler beheben")
EndIf
Return
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

also ich hab jetzt zu wenig zeit die ganzen codes durchzuforsten,
muss jetz in die küche und den chinamann spielen...

wo ist das problem, auf die aktuell ausgewählte einstellung zuzugreifen,
wenn man eine LISTE erstellt, wie in dem Screen3DRequester Beispiel,
auf das ich jetzt zum DRITTEN mal hinweise?
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

@ober mir:
Meinst du eine "Purebasic-Liste" oder eine "echte Liste"? Und dürfte das nicht egal sein? ich mach's einfach mit einem ComboBoxGadget... irgendwie versteh ich jetz gar nix mehr
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Benutzeravatar
KeyKon
Beiträge: 1412
Registriert: 10.09.2004 20:51
Computerausstattung: Laptop: i5 2,8 Ghz, 16GB DDR3 RAM, GeForce 555GT 2GB VRAM
PC: i7 4,3 Ghz, 32GB DDR3 RAM, GeForce 680 GTX 4GB VRAM
Win10 x64 Home/Prof
PB 5.30 (64bit)
Wohnort: Ansbach
Kontaktdaten:
Kontaktdaten von KeyKon

Beitrag von KeyKon »

Er will damit nur sagen das dus dir schrecklich umständlich machst...
Hier ist deine Variante funktionierend:

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Combo_0
  #Text_1
  #Radio_0
  #Radio_1
  #Radio_3
  #Radio_5
  #Radio_7
  #Button_0
  #Button_1
  #Button_3
EndEnumeration

InitSprite()
ExamineDesktops()
Global NewList Aufloesungen.s()
Global NewList Tiefe.l()
Global NewList Alle.s()


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 242, 46, 610, 310, "Aimer – Start Manager",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    ;If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 10, 20, 110, 20, "Auflösung auswählen:")
      ComboBoxGadget(#Combo_0, 10, 50, 120, 20)
      TextGadget(#Text_1, 210, 20, 110, 20, "Farbtiefe auwählen")
      OptionGadget(#Radio_0, 210, 40, 240, 30, "4 Bit.........16 Farben / nicht empfehlenswert")
      OptionGadget(#Radio_1, 210, 70, 250, 30, "8 Bit.........256 Farben / nicht empfehlenswert")
      OptionGadget(#Radio_3, 210, 100, 280, 30, "16 Bit.......65 536 Farben / nur für alte Grafikkarten")
      OptionGadget(#Radio_5, 210, 130, 260, 30, "24 Bit.......16 777 216 Farben / empfehlenswert")
      OptionGadget(#Radio_7, 210, 160, 380, 30, "32 Bit.......16 777 216 Farben, schneller als 24 Bit / sehr empfehlenswert")
      ButtonGadget(#Button_0, 10, 230, 130, 30, "Aimer v1.00 starten")
      ButtonGadget(#Button_1, 470, 230, 130, 30, "Beenden")
      ButtonGadget(#Button_3, 230, 230, 130, 30, "Speichern ohne beenden")
     
      If ExamineScreenModes()
        While NextScreenMode()
          AddElement(Alle())
          Alle() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())
          aufChange = 1
          tiefChange = 1
          ForEach Aufloesungen()
            If Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
              aufChange = 0
            EndIf
          Next
         
          If aufChange = 1
            AddElement(Aufloesungen())
            Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
          EndIf
         
          ForEach Tiefe()
            If Tiefe() = ScreenModeDepth()
              tiefChange = 0
            EndIf
          Next
         
          If tiefChange = 1
            AddElement(Tiefe())
            Tiefe() = ScreenModeDepth()
          EndIf
        Wend
      EndIf
     
      ForEach Aufloesungen()
        AddGadgetItem(#Combo_0, CountGadgetItems(#Combo_0), Aufloesungen())
      Next
     
    ;EndIf
  EndIf
EndProcedure


Open_Window_0()

Select DesktopDepth(0)
  Case 4
    SetGadgetState(#Radio_0, 1)
  Case 8
    SetGadgetState(#Radio_1, 1)
  Case 16
    SetGadgetState(#Radio_3, 1)
  Case 24
    SetGadgetState(#Radio_5, 1)
  Case 32
    SetGadgetState(#Radio_7, 1)
EndSelect

SetGadgetText(#Combo_0,Str(DesktopWidth(0))+"x"+Str(DesktopHeight(0)))

If OpenPreferences("settings.prefs")
  ExaminePreferenceGroups()
  
  While NextPreferenceGroup()
    
    If PreferenceGroupName() = "StartSettings"
      Break
    EndIf
    
  Wend
  
  
  breite$ = ReadPreferenceString("ScreenWidth","")
  hoehe$  = ReadPreferenceString("ScreenHeight","")
  
  SetGadgetText(#Combo_0,breite$+"x"+hoehe$)
  
  Select ReadPreferenceLong("Depth",0)
    Case 4
      SetGadgetState(#Radio_0, 1)
    Case 8
      SetGadgetState(#Radio_1, 1)
    Case 16
      SetGadgetState(#Radio_3, 1)
    Case 24
      SetGadgetState(#Radio_5, 1)
    Case 32
      SetGadgetState(#Radio_7, 1)
  EndSelect
EndIf
  

Repeat
 
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
 
  Select Event
    Case #PB_Event_CloseWindow
      EXIT = 1

    Case #PB_Event_Gadget
      Select GadgetID
        Case #Combo_0
         
        Case #Radio_0
         
        Case #Radio_1
         
        Case #Radio_3
         
        Case #Radio_5
         
        Case #Radio_7
         
        Case #Button_0
         
        Case #Button_1
          EXIT = 1

        Case #Button_3
         
      EndSelect
  EndSelect
Until EXIT


;



If CreatePreferences("settings.prefs")
  PreferenceGroup("StartSettings")
  res$ = GetGadgetText(#Combo_0)
  WritePreferenceString("ScreenWidth" ,StringField(res$,1,"x"))
  WritePreferenceString("ScreenHeight",StringField(res$,2,"x"))
   
  If GetGadgetState(#Radio_0) = 1
    WritePreferenceLong("Depth",4)
  ElseIf GetGadgetState(#Radio_1) = 1
    WritePreferenceLong("Depth",8)
  ElseIf GetGadgetState(#Radio_3) = 1
    WritePreferenceLong("Depth",16)
  ElseIf GetGadgetState(#Radio_5) = 1
    WritePreferenceLong("Depth",24)
  ElseIf GetGadgetState(#Radio_7) = 1
    WritePreferenceLong("Depth",32)
  EndIf
  ClosePreferences()
Else
  MessageRequester("Fehler!","Konnte die Voreinstellungen nicht laden/speichern."+Chr(10)+"Neuinstallation könnte den Fehler beheben")
EndIf
Spar dir in zukunft Sprungmarken, das ganze is mit einer Prozedur viel eleganter, und in Prefereces eine Gruppe zu erstellen obwohl nur drei Daten drinstehen sind auch mehr Hindernis als Hilfe... Wenn du ein bisschen übersicht haben willst nimm PreferenceComment()
(\/) (°,,,°) (\/)
Nach oben
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

thx @ober mir

irgendwie löse ich alle programmierbaren Probleme umständlich

EDIT
WTF?
Die Werte richten sich nach den Zahlen, die in der PREFS-Datei stehen... sie sollen sich aber nach dem Desktop richten
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Benutzeravatar
KeyKon
Beiträge: 1412
Registriert: 10.09.2004 20:51
Computerausstattung: Laptop: i5 2,8 Ghz, 16GB DDR3 RAM, GeForce 555GT 2GB VRAM
PC: i7 4,3 Ghz, 32GB DDR3 RAM, GeForce 680 GTX 4GB VRAM
Win10 x64 Home/Prof
PB 5.30 (64bit)
Wohnort: Ansbach
Kontaktdaten:
Kontaktdaten von KeyKon

Beitrag von KeyKon »

hä? welchen sinn haben dann bitte die prefs?
(\/) (°,,,°) (\/)
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

ich verstehe schon, worauf Moki hinauswill - aber ich sehe nicht ein, ihm ne Komplettlösung vorzukaun,
wo ich ihm ausreichend Beispiel an die Hand gegeben hab.

die momemtane Desktopauflösung soll in die liste der möglichen auflösungen übernommen werden.
da ist ja schon mal ein Kerndenkfehler, das als momentanwert in die Combo eintragen zu wollen,
anstatt diesen entsprechenden eintrag herauszusuchen und zu aktivieren.
alternativ kann die einstellung aus den prefs aktiviert werden, wenn eine vorhanden ist.

und ja Miko, nein KeyKon, ich meine wirklich eine PB-Native LinkedList.
in die kann man die Rückgaben der ExamineScreenModes-Routine speichern,
kann die sortieren und überzählige aussortieren
(wie gesagt, die meisten GraKa-Moni-Kombinationen können über hundert verschiedene)
und kann dann eine überschaubare Anzahl an wirklich einstellbaren screenmodes in einem combo anbieten.
die Farbtiefen 4, 8 und 24 bit zur auswahl anzuzeigen ist sowieso unsinn.
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

@Karu Gaman (neues Ava?^^)
Tatsächlich soll aus der Liste der eingetragenen Werte die Desktopauflösung herausgesucht werden, und nicht aus der PREFS ausgelesen werden... aber ich versteh nicht, warum mein Prog die Infos überhaupt aus der PREFS ausliest, und nicht (wie vorgesehen) den Ubser rumfuhrwerken lässt.
Kaeru Gaman hat geschrieben:aber ich sehe nicht ein, ihm ne Komplettlösung vorzukaun,
Pfuiteubel, vorgekauter Code/Kot...
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Benutzeravatar
KeyKon
Beiträge: 1412
Registriert: 10.09.2004 20:51
Computerausstattung: Laptop: i5 2,8 Ghz, 16GB DDR3 RAM, GeForce 555GT 2GB VRAM
PC: i7 4,3 Ghz, 32GB DDR3 RAM, GeForce 680 GTX 4GB VRAM
Win10 x64 Home/Prof
PB 5.30 (64bit)
Wohnort: Ansbach
Kontaktdaten:
Kontaktdaten von KeyKon

Beitrag von KeyKon »

Naja, mein Beispiel macht das so weil ich dachte das du in die Prefs schreibst damit man es beim nächsten start nich nochmal auswählen muss...
(\/) (°,,,°) (\/)
Nach oben
Benutzeravatar
Mok
BotHunter
Beiträge: 1484
Registriert: 26.12.2005 14:14
Computerausstattung: MSI GX780R
Intel Core i5-2410M
Nvidia GT 555M
Windows 7 Home Premium 64 bit
Wohnort:   

Beitrag von Mok »

KeyKon hat geschrieben:Naja, mein Beispiel macht das so weil ich dachte das du in die Prefs schreibst damit man es beim nächsten start nich nochmal auswählen muss...
Ich hab in dem Snippet von dir aber keinerlei Preference-Befehle gefunden:

Code: Alles auswählen

If ExamineScreenModes()
        While NextScreenMode()
          AddElement(Alle())
          Alle() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())
          aufChange = 1
          tiefChange = 1
          ForEach Aufloesungen()
            If Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
              aufChange = 0
            EndIf
          Next
         
          If aufChange = 1
            AddElement(Aufloesungen())
            Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
          EndIf
         
          ForEach Tiefe()
            If Tiefe() = ScreenModeDepth()
              tiefChange = 0
            EndIf
          Next
         
          If tiefChange = 1
            AddElement(Tiefe())
            Tiefe() = ScreenModeDepth()
          EndIf
        Wend
      EndIf
     
      ForEach Aufloesungen()
        AddGadgetItem(#Combo_0, CountGadgetItems(#Combo_0), Aufloesungen())
      Next
EDIT:
SCHON GEFUNDEN!!!11

EDIT 2:
Finale Lösung: (ok, Wayne...)

Code: Alles auswählen

; PureBasic Visual Designer v3.95 build 1485 (PB4Code)


;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #Text_0
  #Combo_0
  #Text_1
  #Radio_3
  #Radio_5
  #Radio_7
  #Button_0
  #Button_1
  #Button_3
  #Liste
EndEnumeration

InitSprite()
ExamineDesktops()
Global NewList Aufloesungen.s()
Global NewList Tiefe.l()
Global NewList Alle.s()


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 242, 46, 370+130+10, 200+30, "Aimer – Start Manager",  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    ;If CreateGadgetList(WindowID(#Window_0))
      TextGadget(#Text_0, 10, 20, 110, 20, "Auflösung auswählen:")
      ComboBoxGadget(#Combo_0, 10, 50, 120, 20)
      TextGadget(#Text_1, 210, 20, 110, 20, "Farbtiefe auwählen")
      ButtonGadget(#Button_0, 10, 180, 130, 30, "Aimer v1.00 starten")
      ButtonGadget(#Button_1, 370, 180, 130, 30, "Beenden")
      ButtonGadget(#Button_3, 190, 180, 130, 30, "Speichern ohne beenden")
     
      If ExamineScreenModes()
        While NextScreenMode()
          AddElement(Alle())
          Alle() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())+"x"+Str(ScreenModeDepth())
          aufChange = 1
          tiefChange = 1
          ForEach Aufloesungen()
            If Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
              aufChange = 0
            EndIf
          Next
         
          If aufChange = 1
            AddElement(Aufloesungen())
            Aufloesungen() = Str(ScreenModeWidth())+"x"+Str(ScreenModeHeight())
          EndIf
         
          ForEach Tiefe()
            If Tiefe() = ScreenModeDepth()
              tiefChange = 0
            EndIf
          Next
         
          If tiefChange = 1
            AddElement(Tiefe())
            Tiefe() = ScreenModeDepth()
          EndIf
        Wend
      EndIf
     
      ForEach Aufloesungen()
        AddGadgetItem(#Combo_0, CountGadgetItems(#Combo_0), Aufloesungen())
      Next
     
      ListViewGadget(#liste, 210, 50, 200, 100)
      ForEach Tiefe()
        AddGadgetItem(#liste, CountGadgetItems(#liste), Str(Tiefe()))
      Next
     
    ;EndIf
  EndIf
EndProcedure


Open_Window_0()

Select DesktopDepth(0)
  Case 16
    SetGadgetText(#Liste, "16")
  Case 24
    SetGadgetText(#Liste, "24")
  Case 32
    SetGadgetText(#Liste, "32")
EndSelect

SetGadgetText(#Combo_0,Str(DesktopWidth(0))+"x"+Str(DesktopHeight(0)))

If OpenPreferences("settings.prefs")
  ExaminePreferenceGroups()
 
  While NextPreferenceGroup()
   
    If PreferenceGroupName() = "StartSettings"
      Break
    EndIf
   
  Wend
 
 
  breite$ = ReadPreferenceString("ScreenWidth","")
  hoehe$  = ReadPreferenceString("ScreenHeight","")
 
  SetGadgetText(#Combo_0,breite$+"x"+hoehe$)
 
  Select ReadPreferenceLong("Depth",0)
    Case 16
      SetGadgetText(#Liste, "16")
    Case 24
      SetGadgetText(#liste, "24")
    Case 32
      SetGadgetText(#Liste, "32")
  EndSelect
EndIf
 

Repeat
 
  Event = WaitWindowEvent()
  WindowID = EventWindow()
  GadgetID = EventGadget()
  EventType = EventType()
 
  Select Event
    Case #PB_Event_CloseWindow
      EXIT = 1

    Case #PB_Event_Gadget
      Select GadgetID
        Case #Combo_0
         
        Case #Radio_3
         
        Case #Radio_5
         
        Case #Radio_7
         
        Case #Button_0
         If GetGadgetState(#Liste) = -1
           MessageBox_(#Null,"Es muss eine Auflösung ausgewählt sein!","Fehler",#MB_OK | #MB_ICONERROR | #MB_DEFBUTTON1)
         Else
           Gosub PrefsWrite
         EndIf
         
         Delay(500)
         
         If RunProgram("aimer.exe")
           End
         Else
           MessageBox_(#Null,"aimer.exe kann nicht gefunden werden!"+Chr(10)+"Neuinstallation könnte den Fehler beheben","Fehler",#MB_OK | #MB_ICONERROR | #MB_DEFBUTTON1)
           End
         EndIf
        Case #Button_1
          EXIT = 1

        Case #Button_3
         If GetGadgetState(#Liste) = -1
           MessageBox_(#Null,"Es muss eine Auflösung ausgewählt sein!","Fehler",#MB_OK | #MB_ICONERROR | #MB_DEFBUTTON1)
         Else
           Gosub PrefsWrite
         EndIf
      EndSelect
  EndSelect
Until EXIT

End
;


PrefsWrite:
If CreatePreferences("settings.prefs") <> 0
  PreferenceGroup("StartSettings")
  res$ = GetGadgetText(#Combo_0)
  WritePreferenceString("ScreenWidth" ,StringField(res$,1,"x"))
  WritePreferenceString("ScreenHeight",StringField(res$,2,"x"))
  
  WritePreferenceString("Depth",GetGadgetText(#Liste))
  
  ClosePreferences()
Else
  MessageRequester("Fehler!","Konnte die Voreinstellungen nicht laden/speichern."+Chr(10)+"Neuinstallation könnte den Fehler beheben")
  End
EndIf
Return
Win 7 Home Premium 64 bit | PureBasic 5.20 - x86 und x86-64 | Firefox [aktuelle stable-Version hier einfügen]
"Jeder macht irgendwann mal Fehler, darum gibt's auch Bleistifte mit Radiergummi." --Carl
Nach oben
Antworten

Zurück zu „Anfänger“