I want a timer to increase a slider and the slider changes the
transparency of a window which causes it to fade in. The code i have
for the timer is
slider3.value = slider3.value + 1
which moves the slider ok
but i can't get the right code for the carbon declares libary to make
the window transparent by using the slider. So far i have
#If TargetMacOS
Dim OSError as Integer
Dim inAlpha As Single
Declare Function SetWindowAlpha Lib "CarbonLib" (inWindow as
WindowPtr, inAlpha as Single) as Integer
inAlpha = (sTransparency.Value/100)
OSError = SetWindowAlpha(Self, inAlpha)
#EndIf]
This says that the method or property does not exist at the point
(strannsparency.value/100 part
Any ideas
Lee
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
