XPSE

- Página 7 -

Ah, ¿Quieres decir que Usted möchtest 1 wndProc para x Handles? Como hätte Soy un TIP:

IF, Beitrag=54810, Zeitpunkt=07.11.2009

Speichert uno el Adresse el reciente WndProc z.B. por gwl_userData, kann el neue (propio) WndProc auch sin globale Variable behelfen.

Also en lugar de global owp& oben en el wproc: var owp&=getWindowLong(wnd&,gwl_userData) si gwl_userdata vorher auch en el Addr. el OldWindowProc setzt.

Nico
Madysa

Eigentlich bedarf mi WndProc no Adresse el alten Proc (also, eigentlich ya, sólo bin Yo gar nich sólo a diesem Punkte vorgedrungen), pero el 100 Buttonhandles. Denn el WndProc la ventana muss el Handles el 100 Buttons kennen, en esta encima SetWindowPos a el neuen Ausmaße adaptar a puede. Oder Yo una Denkfehler?

Nico Madysa

Brauchst beides, also después de create gwl_userdata en alte wndproc-adresse conjunto y en el 100 Handles kommst Usted innerhalb el wProc doch por Global:
Kompilieren Marca Separación

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

Yo weiß. Global es sí genau el, wonach Yo gesucht habe.

Nico Madysa

Schau veces:
Kompilieren Marca Separación

 {$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 hier el Buttons incluso no gesubcl.. voluntad, sólo el hWnd.

Nico
Madysa

Och IF, genau así wars doch pensamiento y genau el Yo auch beschrieben. ¿Por qué tust du así, como läge hier una Missverständnis antes?

Nico Madysa

Fehlt todavía qué?

Übrigens hier wohl mejor if msg&=wm_sizing or msg&=wm_size

Nico
Madysa

Sí, Yo brauche bastante dringend el Arkustangensfunktion. Per Taylorentwicklung kriege Yo el sólo en de -Pi/2 a +Pi/2 angenähert.

PS: ¿Por qué WM_SIZING? El Buttons debería doch sólo adaptado voluntad, si porque el Ventana neugezeichnet se.

Nico Madysa

Nico
Madysa

Ah, habe todavía una bastante gute Näherung gefunden! Wikipädia sei Dank!

Nico Madysa

Yo ahora *schleim* Tan instalado, könntest Usted wichtige Características por NProc zeigen, el Yo en el Sprachschatz aufnehmen solle *bettel*? Yo möchte ya gerne neben el de XProfan bekannten Características möglichst viele hilfreiche Características aufnehmen - qué esta wiederum auch beschleunigt. Bitte sei el Mathematikbeauftragte nativer Características.

Sollten Konstanten como
Kompilieren Marca Separación

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

en el Sprachschatz aufgenommen voluntad? (Wenn sí, bajo welcher Bezeichnung?!)

30.11.2009 ▲

Nico
Madysa

Hehe, siehe bajo "Updates/Anmerkungen"; tan war no gewünscht, pero arctan.

Den Tangens puede ser encima sin() y cos() ausdrücken, el Arkustangens (Umkehrfunktion en otra vez nen Winkel rauszukriegen) por desgracia, no. Dafür puede ser el otro beiden Arkusfunktionen (arcsin y arccos) con arctan() umschreiben.

Was el Konstanten angeht, bin Yo no sicher -- Yo denke no, dass fertige soooo viel más rápido son como si uno Pi() simplemente con 2, o. 0,5 malnimmt. Wenn uno el Math.inc hingegen en NProcs übersetzte, entonces könnten el natürlich rein. *Concepto-tener*

Nico Madysa

30.11.2009 ▲