XProfan

Español

SubClassProc Temporizador - sichere
Kompilieren Marca Separación

 $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 Marca Separación

 {$cleq}
windowstyle 80 | 512 | 1024
window maxx,maxy - 0,0
showWindow(hWnd,falso)
windowstyle 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.")
mensajes de los usuarios wm_close,wm_erasebkgnd
myWnd.resizing()
setClassLong(hMyWnd,gcl_hcursor,loadCursor(,IDC_ARROW))
subClass hMyWnd,true
~setTimer(hMyWnd,55100,100,)
~setTimer(hMyWnd,55101,500,)

do {

    waitInput

    seleccionar uMessage

        caseof wm_close

        seleccionar mWnd

            caseof hMyWnd

            romper

        EndSelect

    EndSelect

}

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

subClassProc {

    seleccionar sWnd

        caseof hMyWnd

        seleccionar sMessage

            caseof wm_sizing,wm_size

            myWnd.resizing()

            caseof wm_timer

            seleccionar 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){

    seleccionar 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

Ladeanzahl:
		Descargar

30.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Was genau se el Code demonstrieren?
El Linie y Texto malen de paso en el Statusbar hinein...

30.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Der Code demonstriert el SetTimer-Api sin ProcAddr pero encima Messages welche en el SubClassProc abgearbeitet voluntad (puede). Der Code zeigt el auch después de diesem sicheren Verfahren incluso entonces gezeichtet voluntad kann, si z.B. el Ventana grad movido se. Keiner benötigt also wirklich procAddr al Temporizador. Ist sólo una Ejemplo Yo imho ya unos pocos Male Nuevo hatte - aber siempre otra vez irgendwie (auch de me) No se ha encontrado se si darauf ankommt.

30.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Es aber imho sólo, si se el Prog en un 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 Zitat

Absatzweise Cita Zeilenweise Cita

Frank
Abbing

Aha, ok. Yo empfehle, unos pocos kurze Notizen a una algo grösseren Codesnippet beizupacken. Dass el User zumindest blanco, worum lo va, sin el ganzen Code anlysieren tener.

30.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Außerdem son en el 2. Code unos pocos Fehler drin, el (zumindest en me) no de XPSE korrigiert voluntad - si el überhaupt vorgesehen ser debería...:

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 Zitat

Absatzweise Cita Zeilenweise Cita

Wo es el Fehler?

31.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

createWindow(,"Zuckertest 3.0",100,100,200,350) kein %hwnd
usePen 0,,rnd($FFFFFF) nadie Parámetro

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

31.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Nö, es völlig korrekt con XPSE.

Ventana se en 0 erstellt voluntad (oberste Ebene) así lo auch sicher en el Tastkbar landet - y Parámetro zwischen ,, kann sólo 0 ser. Das klappt aber sólo hinter Klammern y zwischen Kommas...

XPSE traducido lo doch auch korrekt, oder?

Usted puede con XPSE escribir:
Kompilieren Marca Separación

eineFunktion(hWnd,,,,)

y el ausgekommaten 4 Parámetro son sólo 0... (sichert aber auch sólo, el - si en el Zielfunktion no pCount-Prüfung instalado es - el übergebenen Parámetro auch wirklich 0 son)

31.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Frank Abbing

Was genau se el Code demonstrieren?

Damit puede ser sicheres threadähnliches Comportamiento Programmieren, o. es esta una Vereinfachung.

Blockierende Apis puede así natürlich no überrumpelt voluntad.

31.08.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Wenn Yo, el zweien Code como prf-Expediente por Drag & Drop en XPSE ziehe erhalte Yo esta Code:
Kompilieren Marca Separación

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 Zitat

Absatzweise Cita Zeilenweise Cita

Ähä, el neuste XPSE (aber hierbei auch ya una XPSE el deutlich älter ser kann) son aber folgenden Code
Kompilieren Marca Separación

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(a class=s2>)
...

Im Moment tippe Todavía darauf el Usted vlt. una doch ya en el Monate gekommenen XPSE benutzt!??