XPSE

- Page 7 -

Ah, you mean You want 1 wndProc for x Handles? there had I a TIP:

iF, Beitrag=54810, Zeitpunkt=07.11.2009

save one The address the recent WndProc z.B. by gwl_userData, can the new (Own) WndProc too without globale Variable behelfen.

means instead of global owp& supra in the wproc: var owp&=getWindowLong(wnd&,gwl_userData) if you gwl_userdata before on The Addr. the OldWindowProc setting.

Nico
Madysa

really want my WndProc not the address the middle-aged Proc (means, really already, only be I quite Nich first To this spots vorgedrungen), separate The 100 Buttonhandles. because The WndProc the Fensters must The Handles the 100 Buttons kennen, circa these over SetWindowPos on The new Ausmaße adjust to. or have I a fallacy?

Nico Madysa

need both, means to create gwl_userdata on old wndproc-address settle and on The 100 Handles come You inside the wProc still by Global:
Compile Mark Separation

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

i know. Global is Yes very the, wonach I sought have.

Nico Madysa

look time:
Compile Mark Separation

 {$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

where here The Buttons self not gesubcl.. go, only the hWnd.

Nico
Madysa

Och iF, very so wars still virtual and very the have so did i described. Why do You so, as läge here misconception to?

Nico Madysa

Fehlt yet what?

Übrigens here well rather if msg&=wm_sizing or msg&=wm_size

Nico
Madysa

Yes, I need integrally urgently The Arkustangensfunktion. Per Taylorentwicklung wars I The only area of -Pi/2 To +Pi/2 approach.

PS: Why WM_SIZING? The Buttons should still first adjusted go, if because the window neugezeichnet becomes.

Nico Madysa

Nico
Madysa

Ah, have still a right good Näherung found! Wikipädia be Thanks!

Nico Madysa

I Have now *mucus* Tan installed, could You important functions by Nproc show, The I into Sprachschatz take in solle *bettel*? i want already gladly next to whom from XProfan known functions as many as possible helpful functions take in - what these against too speed. Please be the Mathematikbeauftragte nativer functions.

should Konstanten How
Compile Mark Separation

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

into Sprachschatz adopted go? (if so, under which Bezeichnung?!)

11/30/09 ▲

Nico
Madysa

Hehe, see under "Updates/Anmerkungen"; tan wasn't desired, separate arctan.

whom Tangens can over sin() and cos() squeeze out, whom Arkustangens (Umkehrfunktion circa again NEN Winkel rauszukriegen) unfortunately not. For this can The others both Arkusfunktionen (arcsin and arccos) with arctan() paraphrase.

What the Konstanten angeht, be I I do not sure -- i think not, that finished soooo plenty faster are as if one Pi() simply with 2, or. 0,5 malnimmt. If one The Math.inc against in NProcs übersetzte, then could The naturally mere. *idea-Have*

Nico Madysa

11/30/09 ▲