Edits, Dialoge und %MENUITEM

[AHT]

Böse Geschichte...

Ich möchte wissen, ob das in aktuellen Versionen von XProfan auch noch so ist. Hier Quelltext:

Def SetTimer(4) !"USER32","SetTimer"
Def KillTimer(2) !"USER32","KillTimer"
Def SetWindowPos(7) !"User32","SetWindowPos"
Declare Counter%, Items%[500], Dialog&, TIMER_ID&
Declare Positioner&, Hauptfensterbreite&, Hauptfensterhöhe&, Tab&
Declare Button&, Edit&
Windowstyle 31 + 512
WindowTitle "Dialogtest"
IF (%MAXX<800) or (%MAXY<600)
 Window 0, 0 - 640, 440
else
 Window 0, 0 - 800, 540
endif
Usermessages $10
POPUP "&Programm"
Counter%=100
While (Counter% < 130) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &2"
While (Counter% < 160) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &3"
While (Counter% < 190) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &4"
While (Counter% < 220) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &5"
While (Counter% < 250) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &6"
While (Counter% < 280) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &7"
While (Counter% < 310) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &8"
While (Counter% < 340) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &9"
While (Counter% < 370) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &10"
While (Counter% < 400) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &11"
While (Counter% < 430) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &12"
While (Counter% < 460) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
'Tab&=Control("SysTabcontrol32","",$5C014200,20,20,(Width(%HWND)-40),(Height(%HWND)-70),%HWND,21131,%Hinstance,$0)
TAB& = %HWND
Dialog& = Control("Dialog", "", $50000400, 20, 30, ABS(Width(Tab&)-360),ABS(HEIGHT(TAB&)-60), Tab&, 0, %Hinstance, $204 | $10000)
Button& = Create("Button", Dialog&, "Test", 20, 250, 200, 30)
Edit& = Control("Edit","",$50000000 | $40 | $80 | $4 | $200000 | $100000 | $100 | $1000, 20, 20, 200, 200, Dialog&, 0, %HINSTANCE, $200)
SetFocus(Edit&)
While %UMESSAGE <> $10
 Waitinput
 Counter% = 100
 While (Counter% < 460) and (%UMESSAGE <> $10)
  IF %MENUITEM = Counter%
   Beep
   Items%[Counter%] = not(Items%[Counter%])
   CheckMenu Counter%, Items%[Counter%]
   Locate 0, 0
   Print str$(%MENUITEM) + "          "
   SetMenuitem 0
   SetFocus(Edit&)
  endif
  inc Counter%
 EndWhile
EndWhile
End

Einen Menüpunkt aussuchen und zuerst einmal klicken, um ihn ausuwählen - danach doppelt klicken.
Was passiert, wenn man doppelt auf einen Menüpunkt klickt?
Welches OS, welche Profanversion?

[Frabbing]

Was passiert denn bei dir? Bei mir passiert nichts Unvorhergesehenes (11.2/Win7).

[AHT]

Und XP?

[AHT]

Gerade mit XProfanFree und XP getestet - tritt da auch auf. Unter Vista und Wndows7 tritt es nicht immer auf - problematisch die Geschichte...

Stellt jemand was fest? Wenn nicht, lassen wir es so .

PS: 2x (wirklich schnell) auf die Menüpunkte klicken. Ich kann das leider anders nicht zeigen,
Im richtigen laufenden Programm macht das mehr Probleme als mit dem Quelltext zu sehen ist - aber eben nur zeitweise, bei manchen Programmstarts, auf machen Rechnern und manchen Betriebsytemen.
Wirklich nette Geschichte - versuche schon seit einigen Monaten die Ursache zu finden, jetzt habe ich sie wohl.

[horsthorn]

@Andreas
Habe eben auf einem XP-Laptop mit XProfan-12 getestet. Es passiert nichts anderes wie bei meinem PC mit Win-7 und XProfan-12
Was soll den deiner Meinung nach anders sein ?

[AHT]

Wie gesagt, doppelt auf einen Menüpunkt klicken und das sehr schnell - wird der Menüpunkt dann in jedem Fall ausgewählt und mit einem Häkchen versehen? Bei mir nicht .

[horsthorn]

...nicht immer - aber immer öfter

[AHT]

Compiliere mir das Programm bitte mal mit XProfan12 und lade es hier gezippt als Anhang hoch - das Problem kann rechnerabhägig sein.

[AHT]

Bitte diesen Quelltext compiliren, nicht den oben:

Def SetTimer(4) !"USER32","SetTimer"
Def KillTimer(2) !"USER32","KillTimer"
Def SetWindowPos(7) !"User32","SetWindowPos"
Declare Counter%, Items%[500], Dialog&, TIMER_ID&
Declare Positioner&, Hauptfensterbreite&, Hauptfensterhöhe&, Tab&
Declare Button&, Edit&
Windowstyle 31 + 512
WindowTitle "Dialogtest"
IF (%MAXX<800) or (%MAXY<600)
 Window 0, 0 - 640, 440
else
 Window 0, 0 - 800, 540
endif
Usermessages $10
POPUP "&Programm"
Counter%=100
While (Counter% < 130) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &2"
While (Counter% < 160) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &3"
While (Counter% < 190) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &4"
While (Counter% < 220) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &5"
While (Counter% < 250) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &6"
While (Counter% < 280) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &7"
While (Counter% < 310) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &8"
While (Counter% < 340) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &9"
While (Counter% < 370) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &10"
While (Counter% < 400) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &11"
While (Counter% < 430) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
Popup "Test &12"
While (Counter% < 460) and (%UMESSAGE <> $10)
 APPENDMENU Counter%,Str$(Counter%)
 inc Counter%
EndWhile
'Tab&=Control("SysTabcontrol32","",$5C014200,20,20,(Width(%HWND)-40),(Height(%HWND)-70),%HWND,21131,%Hinstance,$0)
TAB& = %HWND
Dialog& = Control("Dialog", "", $50000400, 20, 30, ABS(Width(Tab&)-360),ABS(HEIGHT(TAB&)-60), Tab&, 6666, %Hinstance, $204 | $10000)
Button& = Create("Button", Dialog&, "Test", 20, 250, 200, 30)
Edit& = Control("Edit","",$50000000 | $40 | $80 | $4 | $200000 | $100000 | $100 | $1000, 20, 20, 200, 200, Dialog&, 6667, %HINSTANCE, $200)
SetFocus(Edit&)
While %UMESSAGE <> $10
 Waitinput
 Counter% = 100
 While (Counter% < 460) and (%UMESSAGE <> $10)
  IF %MENUITEM = Counter%
   Beep
   Items%[Counter%] = not(Items%[Counter%])
   CheckMenu Counter%, Items%[Counter%]
   Locate 0, 0
   Print str$(%MENUITEM) + "          "
   SetMenuitem 0
   SetFocus(Edit&)
  endif
  inc Counter%
 EndWhile
 IF %MENUITEM<>0
  Locate 0, 0
  Print str$(%MENUITEM) + "          "
 endif
EndWhile
End

[AHT]

Ach ja... Bitte nochmals Dopppelklick (sehr schnell) auf einen Menüpukt mit dem neuen Quelltext und noch einmal bitte Screenshot.

[AHT]

Ich versuche mal zu erklären, was ich eigentlich will...

Bei mir sieht die Sache mit diesem Quelltext folgendermaßen aus:



Ich habe hier doppelt auf den Menüpunkt 447 geklickt.
Es fällt hier auf, das links oben nicht der ausgewählte Menüpunkt steht, sondern die negative ID des Edits auf dem Dialog.

Warum ist das so?
Soweit ich weiß, ist die WindowProc des Hauptfensters eines Profanprogramms mit einem "Subclassing" versehen, das WM_COMMAND Messages abfängt und nach den Parametern der Messages %MENUITEM entsprechend setzt. Ein Control mit einer Editierfunktion (hier das Edit auf dem Dialog) verhalten sich etwas anders, als zum Beispiel ein Button. Bei Controls mit einer Editierfunktion werden nämlich unter bestimmten Voraussetzungen zusätzliche WM_COMMAND Messages gesendet.
Hier im Screensht habe ich mal eine davon markiert:





Diese zusätzlichen Messages können dazu führen. das %MENUITEM nach einem Menüklick wieder überschrieben wird und sich der Klick nicht auswerten lässt. Ob diese Messages Probleme machen oder nicht, ist von vielen Faktoren abhänig:

• Betriebsystem
• Was passiert in der Hauptschleife des Profanprogramms
• Was ist vorher im Programm passiert
• Welche Anwendungen laufen sonst noch
• Ist das Programm compiliert oder nicht

Es macht also nicht auf allen Rechnern Probleme und auch nicht bei allen Programmstarts - je nachdem, wann die Message dort verarbeitet wird, ob die überhaupt ausgelöst wird und ob %MENUITEM zu dem Zeitpunkt überhaupt noch benötigt wird.
Ich habe hier zum Beispiel ein Programm, bei dem auf zwei Rechner mit einem XP System zeitweise ein drittel aller Menüpunkte nicht funktioniert (nette Sache).
Wenn das noch nicht gefixt wurde (und ich gehe davon aus, das dem nicht so ist), ist es quasi ein Würfelspiel, ob ein Profanprogramm mit einem sichtbaren Edit funktioniert oder nicht .

[Bangkok]

Wenn ich mich recht erinnere, gab es mal ein ähnliches Problem mit Richedits, das ist aber gefixt. Wenn ein Menü in ein Richedit hinein ragte gingen Menüpunkte mehr, auch nicht mit Einzelklick.

[AHT]

Das Problem hier hat nichts mit dem "Hineinragen" zu tun.
Menüpunkt 447 überdeckt nicht das Edit.

[AHT]

Wann genau soll das gefixt worden sein? In XProfanFree Version 11.2 sehe ich das Problem noch.

[horsthorn]

Wenn schon, denn schon: - Datei ist zu gross - geht also hier nicht
Da ich aber als "Berufsdummkopf" immer noch nicht sehe, was das soll, bitte ich um eine Erklärung. Denn ich mache mir die Arbeit, unter zwei Systemen EXE-Dateien zu erstellen und lese jetzt, dass diese überholt sind.
Die XProfan-Version 12 ist doch in der Beta-Version frei verfügbar. Also warum dann von anderen Compilate anfordern ???
Es klappt bei mir auf einem Lifebook unter Windows-XP und auf meiner Arbeitsmaschine mit Windows-7 - Wo ist also das Problem? - Helfe einem "Dummen" auf das Pferd !
Kann es sein, daß du wieder mal "ein Haar in der Suppe" suchst ?
Sei bitte nicht beleidigt über das was ich hier schreibe, aber deine HP ist für "Otto Normalverbraucher" nicht zu begreifen und die, die den Inhalt begreifen, brauchen den Inhalt nicht, weil sie es selbst können