Scrolltacular

new topic     » goto parent     » topic index » view thread      » older message » newer message

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>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp;
Can you tell me =
what's wrong=20
with my scroll-bar? It either does nothing or
crashes:</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>integer =
taxrate<BR>taxrate=3D0<BR><BR>constant=20

<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>procedure
onscrolltax( integer pos=20
)<BR>&nbsp;&nbsp;&nbsp; taxrate =3D
pos<BR>&nbsp;&nbsp;&nbsp; =
repaintWindow(=20
economywindow )<BR>end=20


<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>procedure
openecowindow(integer x1, =
integer y1,=20
integer x2,integer y2)<BR>&nbsp;&nbsp;&nbsp;=20

=
setFont(economywindow,"OCR=20
A Extended",12,Bold)<BR>&nbsp;&nbsp;&nbsp;
wPrintf(economywindow,"Tax =
Rate:=20
%d",{taxrate})<BR>end=20

/DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>procedure =
onopenscrollwin()<BR>&nbsp;&nbsp;&nbsp;=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>&nbsp;&nbsp;&nbsp;
setFont(populationwindow,"OCR A=20
Extended",12,Bold)<BR>&nbsp;&nbsp;&nbsp;=20


printf(economywindow,"BC: %d", {money})<BR>end=20


------=_NextPart_000_005B_01C092D2.7DFE9E40--

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu