Scroll'um! Multiplicity
------=_NextPart_000_005B_01C09495.4148C560
charset="iso-8859-1"
Hello & Sorry for the Multiplicity here, I just realized
that all of my setting have been changed (hmmm).
base64 encodeing, reciepts, everything.
Hopefully you can read this now......
Read the message after the code snippet.....
</snip>
include win32lib.ew
integer taxrate, money
taxrate=0
money = 0
constant
constant taxscroll=create(VScroll,"tx",economywindow,1,1,16,40,0)
procedure onscrolltax( integer pos )
taxrate = pos
repaintWindow( economywindow )
end procedure
onScroll[taxscroll]=routine_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
onOpen[economywindow]=routine_id("opentaxscroll")
procedure ecowin(integer x1, integer y1, integer x2, integer y2)
setFont(economywindow,"OCR A Extended",12,Bold)
setTextColor(economywindow,White)
setPosition(economywindow,1,22)
printf(economywindow,"BC: %d", {money})
end procedure
onScroll[taxscroll]=routine_id("ecowindow")
WinMain(economywindow, Normal)
<snip/>
I replaced populationwindow in ecowin procedure with
economywindow (along with adding the window and
WinMain and the integer value for money etc..)
You really need to send a more complete example to work with.
The example I submit works without crashing useing the
latest Win32Lib but, doesnt really do anything.
Give me some more input here and I'll be glad to help....
What's this supposed to do?
Are there supposed to be Two seperate Windows?
i.e: econo & populate windows
Euman
------=_NextPart_000_005B_01C09495.4148C560
charset="iso-8859-1"
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>Hello & Sorry for the =
Multiplicity here, I=20
just realized</FONT></DIV>
<DIV>that all of my setting have been changed (hmmm).</DIV>
<DIV>base64 encodeing, reciepts, everything.</DIV>
<DIV> </DIV>
<DIV>Hopefully you can read this now......</DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Read the message after the code=20
snippet.....</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></snip></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>include win32lib.ew</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>integer taxrate, =
money<BR>taxrate=3D0<BR>money =3D=20
0</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial=20
ult,Default,640,480,0)</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>constant=20
rocedure=20
onscrolltax( integer pos )<BR> taxrate =3D=20
pos<BR> repaintWindow( economywindow )<BR>end=20
>procedure=20
openecowindow(integer x1, integer y1, integer x2,integer=20
y2)<BR> =
setFont(economywindow,"OCR A Extended",12,Bold)<BR> =20
wPrintf(economywindow,"Tax Rate: %d",{taxrate})<BR>end=20
p;<BR>procedure=20
onopenscrollwin()<BR> =20
setScrollPos(taxscroll,taxrate)<BR>end=20
DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>procedure ecowin(integer x1, integer =
y1, integer=20
x2, integer y2)<BR> setFont(economywindow,"OCR A=20
Extended",12,Bold)<BR> =20
setPosition(economywindow,1,22)<BR> =
printf(economywindow,"BC:=20
%d", {money})<BR>end=20
inMain(economywindow,=20
Normal)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2><snip/></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV>I replaced populationwindow in ecowin procedure with</DIV>
<DIV><FONT face=3DArial size=3D2>economywindow </FONT><FONT face=3DArial =
size=3D2>(along=20
with adding the window and</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>WinMain and the integer value for money =
etc..)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>You really need to send a more complete =
example to=20
work with.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>The example I submit works without =
crashing useing=20
the</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>latest Win32Lib but, doesnt really do=20
anything.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Give me some more input here and I'll =
be glad to=20
help....</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>What's this supposed to =
do?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Are there supposed to be Two seperate=20
Windows?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>i.e: econo & populate =
windows</FONT></DIV>
<DIV> </DIV></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Euman</FONT></DIV>
------=_NextPart_000_005B_01C09495.4148C560--
|
Not Categorized, Please Help
|
|
