XProfan

Deutsch

Jörg
Sellmeyer

Nach meinem verständnis müßte %umessage nach dem Auslesen zurückgesetzt werden, damit es sinnvoll genutzt werden kann.
Zumindest bei %umessage = 16 ist das aber nicht der Fall. Selbst ein löschen der Message mit UserMessages -16 bringt nichts, weil %umessage weiterhin den Wert 16 behält.

Kompilieren Markieren Separieren

UserMessages 16
Cls

While 1

    WaitInput
    Print %umessage
    Case %mousepressed = 2:End
    UserMessages -16
    SetTimer 1
    WaitInput
    KillTimer
    Print %umessage,"Hier müßte doch spätestens 0 auftauchen"
    UserMessages 16

Wend

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 1 -

Jörg
Sellmeyer

Tja, wie man hierdran sieht, funktioniert auch das nicht

Kompilieren Markieren Separieren

WindowStyle 2 + 8 + 16 + 32 + 512
UserMessages 16,$0044
Cls

While 1

    WaitInput
    Print %umessage
    Case %mousepressed = 2:End
    Case %umessage = 16:SendMessage(%hwnd,$0044,0,0)
    print %umessage
    Case %umessage = 16:Break

Wend

waitinput

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Edit: Nach etwas rumprobieren habe ich jetzt edoch eine Lösung gefunden (von der ich eigentlich dachte, ich hätte sie vorher schon getestet).

Ich möchte soetwas machen - quasi das Schließen-Kreuz als Stop-Button "misbrauchen". Meiner Meinung nach sollte das möglich sein:

Kompilieren Markieren Separieren

WindowStyle 2 + 8 + 16 + 32 + 512
UserMessages 16,$0044
Cls
neu################

Proc KillUMEssage

    SetTimer 1
    WaitInput
    KillTimer
    SendMessage(%hwnd,$0044,0,0)

EndProc

######################

Proc Test

    WhileLoop 10000

        Locate 1,1
        Print "Test " + Str$(&Loop)

        If %umessage = 16

            SendMessage(%hwnd,$0044,0,0)
            Break

        EndIf

    Wend

EndProc

While 1

    WaitInput
    Print %umessage,%key
    Case %mousepressed = 2:End

    If %umessage = 16

        neu############
        KillUMEssage
        ###############
        Break

    ElseIf ScanKey(65) Taste a

        Test

    EndIf

Wend

 $B "Ende?"

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

18.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Irgendwo hatte ich schonmal

Kompilieren Markieren Separieren

setTimer 10

while uMessage { waitInput }

killTimer

gepostet - aber da fehlt imho noch etwas, bin grad ohne Computer auf dem ich testen könnte...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Ja - das hatte ich auch schon so probiert (s.o.). Erst der Tip von Dieter hats gebracht.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Die Systemvariable %UMessage wird in der Tat nicht beim Auslesen auf 0 zurückgesetzt, sondern beim Eintritt ins WaitInput.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Aber dann müßte im ersten Beispiel doch %umessage wieder 0 sein, da ja noch ein WaitInput in der Schleife ist. Das mit UserMessages -16 kann man auch rauslassen, es bewirkt nämlich nix.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

sondern beim Eintritt ins WaitInput

Ich glaube das ist nicht der Fall, ich glaube eine uMessage wird nur überschrieben wenn eine neue eintrifft. (Kann es hier ldr. nicht testen, meine aber mich damit deswegen schon herumgeprügelt haben zu müssen.)

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Sach ich ja!

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Juhu XProfan wird immer besser - bzw. nach jedem gefundenen "Fehler" auch die Programme stabiler.

19.08.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

- Seite 2 -

DeHarrow

Hallo!

Wärme mal kurz diesen Thread auf. Bei %UMessage sollte doch das Zurücksetzen nach dem WaitInput gefixt
worden sein (seit 11.2 glaube ich)? Habe Probleme bei folgendem Beispiel:
Kompilieren Markieren Separieren

 $P+
SET("ERRORLEVEL",0)
********************** HINWEISE ********************************
CODE ERZEUGT MIT ROKOS OBJECT CREATOR 4.6.6
DATUM  26.05.2010    um  14:21 Uhr
VERWENDETE PROFANVERSION IST 11.2a-NT XPROFAN
CODE ERSTELLT UNTER WINDOWS Unbekannt
!!! Dieser Code wird von Roc immer neu erzeugt        !!!
!!! Erst bearbeiten, wenn alle Objekte erzeugt wurden !!!
 $I C:XPROFAN11LIBPROFALT.INC
!!! Verändern Sie ggf. feste Pfade in variable Pfade  !!!
DECLARE ENDE%
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-640,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
SETDIALOGFONT 1
Hier kann ggf. Ihr Menü hin
SETFOCUS(%HWND)REPAINT
UserMessages $24  WM_GETMINMAXINFO
WaitInput
Test:

If %UMessage = 36

    Print %UMessage

EndIf

UserMessages 0
Sleep 500
Print %UMessage
Goto "Test"

Es wird nach Bewegen des Fensters immer nur die Message 36 angezeigt und nicht zurückgesetzt,
wobei es mit dem damaligen Workaround klappt (anstatt UserMessage 0):
Kompilieren Markieren Separieren

setTimer 33

while %uMessage

    waitInput
    case %wmTimer:break

wend

killtimer

Mache ich was falsch oder gibt es da noch Schwierigkeiten?

Gruß Jürgen
(X-Profan 11.2a unter Windows 7)

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Probiere mal ob nach gesandter UserMessage %uMessage sich zurücksetzt also diese Schleife verlassen wird:
Kompilieren Markieren Separieren

proc rmUMsgs

    while %uMessage

        waitInput 1

    wend

endProc

Das Sleep oben in Deinem Code bewirkt imho nicht was Du erwartest - Du stellst den Thread nur tot statt ihm Zeit zu geben - so gesehen "kontraproduktiv" angebracht.

27.05.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

DeHarrow

Ja, der Wert ist jetzt 0. Hat mir Kopfzerbrechen bereitet, weil ich schon wer weiß Gott was ausprobiert hatte, und über die Suchfunktion erst spät fündig wurde. Thx

Angefangen hat alles mit Profan 5.0 ...noch auf Diskette

27.05.2010 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

◄