1. Scrolltacular
- Posted by paulk at uniserve.com
Feb 09, 2001
-
Last edited Feb 10, 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--
2. Scrolltacular
- Posted by paulk at uniserve.com
Feb 09, 2001
-
Last edited Feb 10, 2001
Return-Path: <paulk at uniserve.com>
2001 04:00:19 -0000
2001 04:00:19 -0000
by inmta007.topica.com with SMTP; 10 Feb 2001
04:00:19 -0000
([204.244.163.73] helo=kerslake)
by mail2.uniserve.com with smtp (Exim 3.13 #1)
id 14RRCr-000NEq-00
for EUforum at topica.com; Fri, 09 Feb 2001 20:00:18
-0800
V5.00.2615.200
------=_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
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
=
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
------=_NextPart_000_005B_01C092D2.7DFE9E40--
