Mouse-Position Problem

[Tombi]

Erst der Code, dann das Problem

Code: Alles auswählen

;Ab hier sind Variablen vorhanden, die vorher definiert werden, wurde
;bereits gebuggt. Also an diesen Variablen liegt`s nicht...
menuon = 1
menuwidth = 50
menuheight = 50

Procedure Click_Menu()
  If menuon 
    
    MouseX = MouseX()
    MouseY = MouseY()
    t = 0
    
    ResetList(Menu())
    While NextElement(Menu())
    t+1
    z = screenX-(t*menuwidth-menuwidth)
    
    If MouseX >= screenX-(t*menuwidth) And MouseY < menuheight And MouseX <= z
      Debug "Name des ausgewählten Menus: "+Menu()\Name
    EndIf
    
    Wend   
  EndIf
EndProcedure

Funktioniert nun so halb. Es soll also oben rechts das eingefügte Menü verlinkt werden.

[STARGÅTE]

du stellt immer wieder nur solche halben fragen.

1. Der Code den du postest, sollte ausführbar sein, damit man das Problem selber sehen kann.
2. Es reicht nicht nur das zu Posten wo du denkst das dort der Fehler liegen könnte, auch wenn du allesdebbugt hast.

EDIT da feht die 4. Bedingung der MausFläche:
vllt hilft dir das hier:

Code: Alles auswählen

Procedure MouseInBox(x,y,Width,Height)
 If MouseX() > x And MouseX() < x+Width And MouseX() > y And MouseX() < y+Height
  ProcedureReturn 1
 EndIf
EndProcedure

[Tombi]

Nicht nur im Menu oben rechts wird "Bereich" im Debug-Fenster angezeigt, sondern auch in Abständen untendrunter, aber nur unter`m Menu, nicht links davon.

Code: Alles auswählen

Procedure Click_Menu()
  If menuon 
    
    MouseX = MouseX()
    MouseY = MouseY()
    t = 0
    
    ResetList(Menu())
    While NextElement(Menu())
    t+1
    z = screenX-(t*menuwidth-menuwidth)
    menuheight = 50
    If MouseX > screenX-(t*menuwidth)  And MouseX <= z And MouseY < menuheight And MouseY > 0
      Debug menuheight
    EndIf
    
    Wend   
  EndIf
EndProcedure

Wenn ich jetzt MouseY < menuheight in MouseY < 50 umändere, habe ich keine Probleme. menuheight enthält jedoch die Zahl 50. Auch wenn ich Sie 1 Schritt vorher neu setze auf 50 habe ich das gleiche Problem.

Kann es schlecht beschreiben.

[Fluid Byte]

Es fehlt außerdem das Gleichheitszeichen: "x >= width" & "y >= height"

[Tombi]

Es fehlt außerdem das Gleichheitszeichen: "x >= width" & "y >= height"

Ändert nicht mein Problem!

[Fluid Byte]

Poste erstmal lauffähigen code, dann reden wir vielleicht weiter.

[tobe]

ich krieg bei deinem code nur:

Code: Alles auswählen

Zeile : 14
Menu() is not a function, array, macro or linked list

edit: oh zu langsam

[Tombi]

Bin zu Faul das alles in eine Datei zu quetschen. Vorallem wegen den ganzen Ini-Dateien. Hoffe jemand ist so nett und schaut sich das genauer an.

Oben genannte Procedure in: Menu_draw.pb
Start-Datei in: Start.pb

Download
Dateien.zip

[Riacon]

ich würde mir mal die variablentypen ansehen, aber hab dazu grad keine lust. also mußt du dich wohl dazu aufraffen, auch wenns schwer fällt

ein lauffähiges beispiel<>der ganze code
wozu gibts copy&paste. kopier die relevanten teile zusammen und teste/poste