| |
| |
|
funkheld | Hallo, guten Tag.
Ich möchte die Routine FD in XPSE bzw in einer nProc herstellen.
Dieses Startpaint wird aber in einer nProc nicht 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:
Dieser Befehl funktioniert auch außerhalb:
startpaint bpic
LineTo(%hdc,x,y)
EndPaint
Danke.
Gruss
KompilierenMarkierenSeparieren {$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
|
|
| |
| |
| |
|
|
 | | StartPaint gibt es in nProcs nicht da es keinen Sinn macht da man mit APIs zeichnet die ohnehin einen DC verlangen. Lasse StartPaint weg und nimm hDC oder den DC von was auch immer. |
|
| |
| |
| |
|
(942)
Deutsch
English
Français
Español
Italia