09-26-2008, 09:57 PM
Ok...found this http://www.quickmacros.com/forum/showthr...p?tid=1880
On Change of EditBox to "No Audio"
-timer to starts and displays in dialog...probably just a static text
-When timer value = a number designated by integer in another EditBox run function "Start Fill"
On Change of EditBox to "Audio"
-timer stops and resets value to 0 in static text
-runs function "Stop Fill"
I can't get it to work without crashing things...I'd post my code, but I think it's fairly jacked from developing. I'll probably just get a fresh start.
btw...the "No Audio" and "Audio" are set by the style change in a editbox for "OVER" in this program in this link http://www.darkwood.demon.co.uk/PC/PPM%20160.zip with the headroom turned down to -20 so that any audio will peak out the VU meter and change the style to a background of red...this trigger for audio...when there is no audio the style is no background of red...got these values with "GetWinStyle"
If anyone knows a better way of doing this...that be nice.
Function Function6
Thanks.
Jimmy Vig
On Change of EditBox to "No Audio"
-timer to starts and displays in dialog...probably just a static text
-When timer value = a number designated by integer in another EditBox run function "Start Fill"
On Change of EditBox to "Audio"
-timer stops and resets value to 0 in static text
-runs function "Stop Fill"
I can't get it to work without crashing things...I'd post my code, but I think it's fairly jacked from developing. I'll probably just get a fresh start.
btw...the "No Audio" and "Audio" are set by the style change in a editbox for "OVER" in this program in this link http://www.darkwood.demon.co.uk/PC/PPM%20160.zip with the headroom turned down to -20 so that any audio will peak out the VU meter and change the style to a background of red...this trigger for audio...when there is no audio the style is no background of red...got these values with "GetWinStyle"
If anyone knows a better way of doing this...that be nice.
Function Function6
rep
,int a=GetWinStyle(child("over" "TEdit" win(" PPM" "TForm1") 0x1))
,if a=1543571648
,,_s.getwintext(id(3 win("Dialog" "#32770")))
,,if _s="No Audio"
,,,goto End
,,out _s
,,_s="No Audio"; _s.setwintext(id(3 win("Dialog" "#32770")))
,,
,else
,,_s.getwintext(id(3 win("Dialog" "#32770")))
,,if _s="Audio"
,,,goto End
,,out _s
,,_s="Audio"; _s.setwintext(id(3 win("Dialog" "#32770")))
,;End
,0.1
Thanks.
Jimmy Vig