XProfan

English

Jörg
Sellmeyer

After my understanding should %umessage to the Reading reset go, so it meaningfully used go can.
at least with %umessage = 16 is the but not the case. self one delete the Message with User Messages -16 bring nothing, because %umessage furthermore the value 16 keeps.

Compile Mark Separation

User Messages 16
Cls

While 1

    WaitInput
    Print %umessage
    Case %mousepressed = 2:End
    User Messages -16
    SetTimer 1
    WaitInput
    KillTimer
    Print %umessage,"Hier should still at the latest 0 auftauchen"
    User Messages 16

Wend

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

08/18/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 1 -

Jörg
Sellmeyer

Tja, How one hierdran sees, functions too not

Compile Mark Separation

Window Style 2 + 8 + 16 + 32 + 512
User Messages 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 ...

08/18/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Edit: After something rumprobieren have I now edoch a Solution found (from the I really thought, I had tappt im dunkeln before already tested).

i want soetwas make - quasi the Closing-Cross as Stop-Button "misbrauchen". of my opinion to ought to the possible his:

Compile Mark Separation

Window Style 2 + 8 + 16 + 32 + 512
User Messages 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

        new############
        KillUMEssage
        ###############
        Break

    ElseIf ScanKey(65) Button a

        Test

    EndIf

Wend

 $B "Ende?"

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

08/18/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

somewhere I had Schonmal

Compile Mark Separation

setTimer 10

while uMessage { waitInput }

killTimer

posted - but since missing imho yet something, be strain without computer on the I testing could...

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Yes - had so did i already so probiert (s.o.). first the hint of Dieter hats brought.

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

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

The Systemvariable %UMessage becomes in the didn't at Reading on 0 reset, separate at entering in that WaitInput.

Greeting
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

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

but then should in the first example still %umessage again 0 his, there Yes another WaitInput in the Loop is. With the User Messages -16 can too rauslassen, it bewirkt namely nothing.

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

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

separate at entering in that WaitInput

I faith this is not the case, I faith a uMessage becomes only überschrieben if a new eintrifft. (can it here ldr. not testing, my but me so therefore already herumgeprügelt having To must.)

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Sach I Yes!

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

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Juhu XProfan becomes always rather - or. to each found "Fehler" too The programs stabiler.

08/19/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

- Page 2 -

DeHarrow

Hello!

warmth time short this Thread on. with %UMessage ought to still the Zurücksetzen to the WaitInput gefixt
been his (since 11.2 faith I)? have Problems with folgendem example:
Compile Mark Separation

 $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 s=s3>"Test"

it'll to moving the Fensters always only The Message 36 displayed and not reset,
where it with the then Workaround works (instead of UserMessage 0):
Compile Mark Separation

setTimer 33

while %uMessage

    waitInput
    case %wmtimer:break

wend

killtimer

make I what wrong or there there yet difficulty?

Greeting Jürgen
(X-Profan 11.2a under windows 7)

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

05/27/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Try time whether to gesandter UserMessage %uMessage itself zurücksetzt means these Loop leave becomes:
Compile Mark Separation

proc rmUMsgs

    while %uMessage

        waitInput 1

    wend

en

/a>

the Sleep supra in Your code bewirkt imho not what You expect - you put The Thread only dead instead of it Time To give - so seen "kontraproduktiv" appropriate.

05/27/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

DeHarrow

Yes, the worth is now 0. has me Kopfzerbrechen bereitet, because I already who can tell god what ausprobiert having, and over The Suchfunktion first late fündig watts. Thx

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

05/27/10 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

◄