Problem mit SetActiveGadget

Anfängerfragen zum Programmieren mit PureBasic.
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

Problem mit SetActiveGadget

Beitrag von gnaps »

Hi Forum,

ich habe hier eine komische Sache mit SetActiveGadget.

Ich habe eine Adressverwaltung in der ich eine Adresse ändere, danach soll das ListIconGadget den Datensatz wieder markieren.

Ich habe einen Abbruch-Button (für keine Änderungen) und einen Speichern-Button um die Änderungen zu übernehmen.

Nach beiden Aktionen (Abruch oder Speichern) wird die gleiche Procedure (um den Eintrag zu selektieren) aufgerufen.

Hier gehe ich wie folgt vor

Code: Alles auswählen

          SetActiveGadget(#listi_Adresse)
          Debug GetActiveGadget()
          SetGadgetState(#listi_Adresse,i)
Nach dem Abruch-Button kommt bei Debug=36 (dies ist richtig und der Eintrag wird markiert).
Nach dem Speichern-Button kommt bei Debug=35 (keine Markierung, da mein ListIconGadget ja 36 ist)

Mein Speicher-Button hat 35, warum wird mit SetActiveGadget(#listi_Adresse) mein ListIconGadget nicht markiert ??

auch wenn ich

Code: Alles auswählen

          SetActiveGadget(36)
          Debug GetActiveGadget()
          SetGadgetState(#listi_Adresse,i)
mache ist keine Besserung da.

Ich aktiviere doch mit SetActiveGadget(#listi_Adresse) das ListIconGadget vorher.

Den gleichen Vorgang habe ich bei meiner Artikel-Verwaltung, hier geht alles perfekt.

HILFE

gruß
gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

Re: Problem mit SetActiveGadget

Beitrag von gnaps »

Hi Forum,

ich habe den Fehler gefunden.

Bei der Deklaration meiner Konstanten mit Enumeration habe ich das ListIconGadget "#listi_Adresse" falsch Positioniert.
Da im späteren Programmablauf die Gadgets von 30-37 mit einer Schleife auf Disable gesetzt werden, war das
Gadget "#listi_Adresse" aus und kann dann nich auch Activ gesetzt werden.

Konstante in der Liste verschoben und gut is.

Sorry für den Tread.

Ist erledigt.

Gruß
gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
Antworten