| |
| |
|
funkheld | allô, guten journée.
je voudrais qui Routine FD dans XPSE bzw dans einer nProc herstellen.
cet Startpaint wird mais dans einer nProc pas erkannt.
-------------------
nProc fd(long r,w,bpic)
Long x,y
x=getcircp(r,w)
y=getcircp(r,w+90000)
startpaint bpic&
LineTo(%hdc,x,y)
EndPaint
ENDPROC
-----------------------------------
Anmerkung:
cette Befehl funktioniert aussi außerhalb:
startpaint bpic
LineTo(%hdc,x,y)
EndPaint
merci.
Gruss
KompilierenMarqueSéparation {$cleq}
declare bpic&,ende&
Declare x&,y&,r&
ende&=1
Window 20,20-500,500
Cls RGB(220,220,220)
bpic& = create("hNewPic", 400,400,rgb(255,255,0))
While Ende&
fd(100,45000)
drawpic bpic&,30,30;0
EndWhile
End
nProc getCircP(long r,w)
return long(sin(0.0174532925199433*float(w)/1000.0)*float(r))
endproc
Proc fd
Parameters r&,w&
Long x,y
x=getcircp(r&,w&)
y=getcircp(r&,w&+90000)
startpaint bpic&
LineTo x&,y&
EndPaint
ENDPROC
|
|
| |
| |
| |
|
|
 | | Début de peinture gibt es dans nProcs pas là es keinen Sinn pouvoir là on avec APIs zeichnet qui de toute façon une DC verlangen. Lasse Début de peinture weg et prends hDC ou bien den DC de quoi que + subj.. |
|
| |
| |
| |
|
(545)
Deutsch
English
Français
Español
Italia