XProfan

Français

SubClassProc Minuteur - sichere
Kompilieren Marque Séparation

 $H windows.ph
WINDOWSTYLE 80 | 512 | 1024
WINDOW %MAXX,%MAXY - 0,0
SHOWWINDOW(%HWND,0)
WINDOWSTYLE 1 | 2 | 4 | 8 | 16 | 512
var HMYWND&=(CREATE("WINDOW",(0),"Zuckertest 3.0",(100),(100),(200),(350)))
var HPIC&=CREATE("hNewPic",64,64,$FFFFAA)
var HDSK&=CREATE("text",HMYWND&,"",0,0,$FFFF,$FFFF)
var HSTATBAR&=CREATE("statusWindow",HMYWND&,"Bereit.")
USERMESSAGES $0010,$0014
MYWND.RESIZING()
SUBCLASS HMYWND&,1
~SetClassLongA(HMYWND&,-12,~LoadCursorA(0,32512))
~SetTimer(HMYWND&,55100,100,0)
~SetTimer(HMYWND&,55101,500,0)

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $0010

        SELECT %MWND

            CASEOF HMYWND&

            BREAK

        ENDSELECT

    ENDSELECT

ENDWHILE

~KillTimer(HMYWND&,55100)
~KillTimer(HMYWND&,55101)
end

SUBCLASSPROC

    SELECT &SWND

        CASEOF HMYWND&

        SELECT %SMESSAGE

            CASEOF 532,$0005

            MYWND.RESIZING()

            CASEOF $0113

            SELECT &SWPARAM

                CASEOF 55100

                DEMO(1)

                CASEOF 55101

                DEMO(2)

            ENDSELECT

        ENDSELECT

    ENDSELECT

endproc

proc MYWND.RESIZING

    SETWINDOWPOS HSTATBAR&=0,0 - 0,0
    DEMO(1)
    DEMO(2)

endproc

proc DEMO

    PARAMETERS MODE&

    SELECT MODE&

        CASEOF 1

        STARTPAINT HMYWND&
        USEPEN 0,0,RND($FFFFFF)
        LINE 10,10 - 200,43
        ENDPAINT

        CASEOF 2

        STARTPAINT HMYWND&
        TEXTCOLOR RND($FFFFFF),~GetSysColor(15)
        DRAWTEXT 10,10,&GETTICKCOUNT
        ENDPAINT

    ENDSELECT

endproc

Kompilieren Marque Séparation

 {$cleq}
style de fenêtre 80 | 512 | 1024
window maxx,maxy - 0,0
showWindow(hWnd,faux)
style de fenêtre 1 | 2 | 4 | 8 | 16 | 512
long 	hMyWnd=createWindow(,"Zuckertest 3.0",100,100,200,350),
hPic=create("hNewPic",64,64,$FFFFAA),
hDsk=create("text",hMyWnd,»,,,$FFFF,$FFFF),
hStatBar=create("statusWindow",hmyWnd,"Bereit.")
messages de l'utilisateur wm_close,wm_erasebkgnd
myWnd.resizing()
setClassLong(hMyWnd,gcl_hcursor,loadCursor(,IDC_ARROW))
subClass hMyWnd,vrai
~setTimer(hMyWnd,55100,100,)
~setTimer(hMyWnd,55101,500,)

do {

    waitInput

    sélectionner uMessage

        caseof wm_close

        sélectionner mWnd

            caseof hMyWnd

            pause

        EndSelect

    EndSelect

}

~killTimer(hMyWnd,55100)
~killTimer(hMyWnd,55101)
end

subClassProc {

    sélectionner sWnd

        caseof hMyWnd

        sélectionner sMessage

            caseof wm_sizing,wm_size

            myWnd.resizing()

            caseof wm_timer

            sélectionner sWParam

                caseof 55100:demo(1)

                caseof 55101:demo(2)

            EndSelect

        EndSelect

    EndSelect

}

myWnd.resizing{

    setWindowPos hStatBar=0,0 - 0,0
    demo(1)
    demo(2)

}

demo(long mode){

    sélectionner mode

        caseof 1

        startPaint hMyWnd
        usePen 0,,rnd($FFFFFF)
        line 10,10 - 200,43
        endPaint

        caseof 2

        startPaint hMyWnd
        textColor rnd($FFFFFF),getSysColor(15)
        drawText 10,10,getTickCount
        endPaint

    EndSelect

}

timer.zip	458 kB

Hochgeladen:	30.08.2008

Downloadcounter:
		Download

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

quoi oui c'est ca soll qui Code manifester?
qui ligne number et qui Text malen incidemment dans qui Statusbar hinein...

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

qui Code demonstriert qui SetTimer-Api sans ProcAddr mais sur Messages quelle dans qui SubClassProc abgearbeitet volonté (peut). qui Code zeigt cela aussi pour diesem sicheren procéder selbst ensuite gezeichtet volonté peux, si z.B. cela la fenêtre grad déménagé wird. aucun nécessaire alors wirklich procAddr am Minuteur. Ist seulement un Beispiel quoi je imho déjà un paire Male posté hatte - mais toujours wieder irgendwie (aussi de mir) pas trouvé wird si es puis ankommt.

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

cela allez mais imho seulement, si sich cela Prog dans einem waitinput rumlungert...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Aha, ok. je empfehle, un paire kurze Notizen trop einem quelque chose grösseren Codesnippet beizupacken. Dass qui User zumindest weiss, worum und dir, sans den ganzen Code anlysieren trop doit.

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Aussi sommes im 2. Code un paire faute drin, qui (zumindest chez mir) pas de XPSE korrigiert volonté - si cela überhaupt vorgesehen son sollte...:

createWindow(,"Zuckertest 3.0",100,100,200,350)
usePen 0,,rnd($FFFFFF)

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

30.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

wohin ist qui faute?

31.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

createWindow(,"Zuckertest 3.0",100,100,200,350) ne...aucune %hwnd
usePen 0,,rnd($FFFFFF) fehlt un paramètre

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

31.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nö, ist völlig korrekt avec XPSE.

la fenêtre soll sur 0 erstellt volonté (oberste plaine) avec cela es aussi sûrement dans qui Tastkbar landet - et qui paramètre entre ,, peux seulement 0 son. cela klappt mais seulement derrière Klammern et entre Kommas...

XPSE traduit es doch aussi korrekt, ou bien?

tu peux avec XPSE écrivons:
Kompilieren Marque Séparation

eineFunktion(hWnd,,,,)

et qui ausgekommaten 4 paramètre sommes arrêt 0... (sichert mais aussi seulement, cela - si dans qui Zielfunktion aucun pCount-Prüfung incorporé ist - qui übergebenen paramètre aussi wirklich 0 sommes)

31.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank Abbing

quoi oui c'est ca soll qui Code manifester?

avec cela peux on sicheres threadähnliches Verhalten Programmieren, bzw. ist es hierfür une simplification.

Blockierende Apis peut avec cela naturellement pas überrumpelt volonté.

31.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

si Je l' zweien Code comme prf-Dossier per Drag & Drop sur XPSE ziehe erhalte je cette Code:
Kompilieren Marque Séparation

proc __xpse__endofprogram__

    REM {{SOMEEXTRAENDCOMMAND}}
    end

endproc

DECLARE __cf1&,__cf2&,__cf3&,__cf4&,__cf5&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"SetClassLongA")
__cf2&=__cf1(__cf2("user32.dll"),"LoadCursorA")
__cf3&=__cf1(__cf2("user32.dll"),"SetTimer")
__cf4&=__cf1(__cf2("user32.dll"),"KillTimer")
__cf5&=__cf1(__cf2("user32.dll"),"GetSysColor")
WINDOWSTYLE 80 | 512 | 1024
WINDOW %MAXX,%MAXY - 0,0
SHOWWINDOW(%HWND,0)
WINDOWSTYLE 1 | 2 | 4 | 8 | 16 | 512
var HMYWND&=(CREATE("WINDOW",(),"Zuckertest 3.0",(100),(100),(200),(350)))
!!!!!
var HPIC&=CREATE("hNewPic",64,64,$FFFFAA)
var HDSK&=CREATE("text",HMYWND&,"",,,$FFFF,$FFFF)
!!!!!
var HSTATBAR&=CREATE("statusWindow",HMYWND&,"Bereit.")
USERMESSAGES $0010,$0014
MYWND.RESIZING()
call(__cf1&,HMYWND&,-12,call(__cf2&,,32512))
SUBCLASS HMYWND&,1
call(__cf3&,HMYWND&,55100,100,)
call(__cf3&,HMYWND&,55101,500,)

WHILE 1

    WAITINPUT

    SELECT %UMESSAGE

        CASEOF $0010

        SELECT %MWND

            CASEOF HMYWND&

            BREAK

        ENDSELECT

    ENDSELECT

ENDWHILE

call(__cf4&,HMYWND&,55100)
call(__cf4&,HMYWND&,55101)
__xpse__endofprogram__

proc SUBCLASSPROC

    SELECT SWND

        CASEOF HMYWND&

        SELECT SMESSAGE

            CASEOF 532,$0005

            MYWND.RESIZING()

            CASEOF $0113

            SELECT SWPARAM

                CASEOF 55100

                DEMO(1)

                CASEOF 55101

                DEMO(2)

            ENDSELECT

        ENDSELECT

    ENDSELECT

endproc

proc MYWND.RESIZING

    SETWINDOWPOS HSTATBAR&=0,0 - 0,0
    DEMO(1)
    DEMO(2)

endproc

proc DEMO

    PARAMETERS MODE&

    SELECT MODE&

        CASEOF 1

        STARTPAINT HMYWND&
        USEPEN 0,,RND($FFFFFF)
        !!!!!
        LINE 10,10 - 200,43
        ENDPAINT

        CASEOF 2

        STARTPAINT HMYWND&
        TEXTCOLOR RND($FFFFFF),call(__cf5&,15)
        DRAWTEXT 10,10,&GETTICKCOUNT
        ENDPAINT

    ENDSELECT

endproc

__xpse__endofprogram__

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

31.08.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Ähä, qui neuste XPSE (mais hierbei aussi déjà un XPSE qui deutlich älter son peux) gibt mais folgenden Code
Kompilieren Marque Séparation

proc __xpse__endofprogram__

    PARAMETERS exitcode&
    REM {{SOMEEXTRAENDCOMMAND}}
    case %pcount=1 : end exitcode&
    end

endproc

DECLARE __cf1&,__cf2&,__cf3&,__cf4&,__cf5&
Def __cf1(2) !"KERNEL32","GetProcAddress"
Def __cf2(1) !"KERNEL32","GetModuleHandleA"
__cf1&=__cf1(__cf2("user32.dll"),"SetClassLongA")
__cf2&=__cf1(__cf2("user32.dll"),"LoadCursorA")
__cf3&=__cf1(__cf2("user32.dll"),"SetTimer")
__cf4&=__cf1(__cf2("user32.dll"),"KillTimer")
__cf5&=__cf1(__cf2("user32.dll"),"GetSysColor")
WINDOWSTYLE 80 | 512 | 1024
WINDOW %MAXX,%MAXY - 0,0
SHOWWINDOW(%HWND,0)
WINDOWSTYLE 1 | 2 | 4 | 8 | 16 | 512
!!!!!
var HMYWND&=(CREATE("WINDOW",(0),"Zuckertest 3.0",(100),(100),(200),(350)))
var HPIC&=CREATE("hNewPic",64,64,$FFFFAA)
var HDSK&=CREATE("text",HMYWND&,"",0,0,$FFFF,$FFFF)
!!!!!
var HSTATBAR&=CREATE("statusWindow",HMYWND&,"Bereit.")
USERMESSAGES $0010,$0014
MYWND.RESIZING(à class=s2>)
...

Im Moment tippe je encore puis cela Du vlt. une doch déjà dans qui Monate gekommenen XPSE benutzt!??