Scrolltacular
- Posted by paulk at uniserve.com
Feb 09, 2001
------=_NextPart_000_005B_01C092D2.7DFE9E40
charset="iso-8859-1"
Hi all,
Can you tell me what's wrong with my scroll-bar? It either does =
nothing or crashes:
integer taxrate
taxrate=3D0
constant taxscroll=3Dcreate(VScroll,"tx",economywindow,1,1,16,40,0)
procedure onscrolltax( integer pos )
taxrate =3D pos
repaintWindow( economywindow )
end procedure
onScroll[taxscroll]=3Droutine_id("onscrolltax")
procedure openecowindow(integer x1, integer y1, integer x2,integer y2)
setPosition(economywindow,10,1)
setFont(economywindow,"OCR A Extended",12,Bold)
wPrintf(economywindow,"Tax Rate: %d",{taxrate})
end procedure
procedure onopenscrollwin()
setScrollRange(taxscroll,1,100)
setScrollChange(taxscroll,1,10)
setScrollPos(taxscroll,taxrate)
end procedure
procedure ecowin(integer x1, integer y1, integer x2, integer y2)
setFont(populationwindow,"OCR A Extended",12,Bold)
setTextColor(populationwindow,White)
setPosition(populationwindow,1,22)
printf(economywindow,"BC: %d", {money})
end procedure
onScroll[taxscroll]=3Droutine_id("ecowindow")
------=_NextPart_000_005B_01C092D2.7DFE9E40
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi all,</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2> Can you tell me =
what's wrong=20
with my scroll-bar? It either does nothing or crashes:</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>integer =
taxrate<BR>taxrate=3D0<BR><BR>constant=20
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>procedure onscrolltax( integer pos=20
)<BR> taxrate =3D pos<BR> =
repaintWindow(=20
economywindow )<BR>end=20
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>procedure openecowindow(integer x1, =
integer y1,=20
integer x2,integer y2)<BR> =20
setPosition(economywindow,10,1)<BR> =
setFont(economywindow,"OCR=20
A Extended",12,Bold)<BR> wPrintf(economywindow,"Tax =
Rate:=20
%d",{taxrate})<BR>end=20
/DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>procedure =
onopenscrollwin()<BR> =20
setScrollPos(taxscroll,taxrate)<BR>end=20
T></DIV>
<DIV><FONT face=3DArial size=3D2>procedure ecowin(integer x1, integer =
y1, integer=20
x2, integer y2)<BR> setFont(populationwindow,"OCR A=20
Extended",12,Bold)<BR> =20
printf(economywindow,"BC: %d", {money})<BR>end=20
T>
------=_NextPart_000_005B_01C092D2.7DFE9E40--
|
Not Categorized, Please Help
|
|
