XPSE

- page 7 -

Ah, Du meinst Du vouloir 1 wndProc pour x Handles? là hätte je une TIP:

iF, Beitrag=54810, Zeitpunkt=07.11.2009

Speichert on qui Adresse qui bisherigen WndProc z.B. per gwl_userData, peux sich qui neue (eigene) WndProc aussi sans globale Variable behelfen.

alors statt global owp& au haut de qui wproc: var owp&=getWindowLong(wnd&,gwl_userData) si Du gwl_userdata auparavant aussi sur qui Addr. qui OldWindowProc mets.

Nico
Madysa

Eigentlich besoin mon WndProc pas qui Adresse qui alten Proc (alors, eigentlich déjà, seulement suis je gar nich seulement trop diesem Punkte vorgedrungen), mais qui 100 Buttonhandles. car qui WndProc des Fensters muss qui Handles qui 100 Buttons connaître, um cet sur SetWindowPos à qui neuen Ausmaße anpassen trop peut. ou bien habe je une Denkfehler?

Nico Madysa

Brauchst beides, alors pour create gwl_userdata sur vieille wndproc-adresse mettons et sur qui 100 Handles viens Du dedans qui wProc doch per Global:
Kompilieren Marque Séparation

dim m#,4*100
declare meinGlob&=addr(m#)

nproc wndproc

    parameters ...
    global meinGlob&,...

    if wm_siz...

        whileLoop 0,99,4

            settext(hWnd,str$( hier --->long(meinGlob&,loop)<----- ))
            //oder getByte(meinGlob&,loop)

        wend

    endif

    ...

endproc

Nico
Madysa

je sais. Global ist oui oui c'est ca cela, wonach je gesucht habe.

Nico Madysa

exposition la fois:
Kompilieren Marque Séparation

 {$cleq}
#include compatible.inc
declare owp&,myHandles&
myHandles&=globalAlloc(gPTR,100*4)
cls
SetClassLong(hwnd,GCL_STYLE,GetClassLong(hWnd,GCL_STYLE) - CS_HREDRAW - CS_VREDRAW )
var xx&=width(hWnd)

whileLoop 0,24

    long myHandles&,loop*4=create("Button",hWnd,"Hallo "+str$(loop),0,loop*20,xx&,20)

wend

owp&=setWindowLong(hWnd,gwl_wndProc,procaddr(hwnd.wndProc,4))
waitinput
end

nProc hwnd.wndProc

    Parameters wnd&,msg&,wp&,lp&
    global owp&,myHandles&
    case msg&=wm_erasebkgnd or msg&=wm_paint : return 0

    if msg&=wm_sizing

        var xx&=width(hWnd)

        whileLoop 0,24

            setWindowPos(long(myHandles&,loop*4),0,0,loop*20,xx&,20,0)

        wend

    endif

    return callWindowProc(owp&,wnd&,msg&,wp&,lp&)

endproc

Wobei ici qui Buttons selbst pas gesubcl.. volonté, seulement cela hWnd.

Nico
Madysa

Och iF, oui c'est ca so wars doch gedacht et oui c'est ca cela habe je aussi beschrieben. Pourquoi tust du so, comme läge ici un Missverständnis avant?

Nico Madysa

Absent encore quoi?

Incidemment ici wohl besser si msg&=wm_sizing or msg&=wm_size

Nico
Madysa

oui, il me faut entier dringend qui Arkustangensfunktion. Per Taylorentwicklung kriege je qui seulement im Bereich de -Pi/2 jusqu'à +Pi/2 angenähert.

PS: Pourquoi WM_SIZING? qui Buttons devoir doch seulement angepasst volonté, si car cela la fenêtre neugezeichnet wird.

Nico Madysa

Nico
Madysa

Ah, habe doch encore une droite gute Näherung trouvé! Wikipädia sei Dank!

Nico Madysa

je hab maintenant *schleim* Tan incorporé, könntest Du wichtige Funktionen per NProc montrer, qui je dans den Sprachschatz aufnehmen solle *bettel*? je voudrais déjà volontiers près de den aus XProfan bekannten Funktionen possible viele hilfreiche Funktionen aufnehmen - quoi cet wiederum aussi beschleunigt. s'il te plaît sei qui Mathematikbeauftragte nativer Funktionen.

Sollten Konstanten comment
Kompilieren Marque Séparation

const myPI=3.1415926535897932384626433832795//pi() gibts eh
const my2PI=6.2831853071795862
const pi180=0.0174532925199433
const halfPi=1.5707963267948966192313216916398pre>

dans den Sprachschatz aufgenommen volonté? (si oui, sous quel Bezeichnung?!)

30.11.2009 ▲

Nico
Madysa

Hehe, siehe sous "Updates/Anmerkungen"; tan était pas gewünscht, mais arctan.

Den Tangens peux on sur sin() et cos() ausdrücken, den Arkustangens (Umkehrfunktion um wieder nen Winkel rauszukriegen) malheureusement pas. Pour cette peux on qui anderen beiden Arkusfunktionen (arcsin et arccos) avec arctan() paraphraser.

quoi qui Konstanten angeht, suis je Je ne sûrement -- je denke pas, dass fertige soooo viel plus rapide sommes comme si on Pi() simple avec 2, bzw. 0,5 malnimmt. si on qui Math.inc hingegen dans NProcs übersetzte, ensuite könnten qui naturellement rein. *concept-hab*

Nico Madysa

30.11.2009 ▲