Hi:
Code below.
Sean.
'start code, vbscript.
'---
'Scripts for codegear rad studio 2007.
'Copyright (c) 2008, Sean Farrow.
'All rights reserved.
'Connect the event wich finds the TAppBuilder class. This is needed, to
allow us to detect the correct 'focus once inside the application.
dim ClipRenderedEvent
dim FocusWindowEvent
dim DesktopActiveEvent
Dim ShutdownEvent
Sub ProcessOnDesktopActivate(windowObject)
if StrComp("TAppBuilder", windowObject.ClassName, VbBinaryCompare) = 0
then
FocusWindowEvent = ConnectEvent(ActiveWindow, "OnChildFocus",
"ProcessOnChildFocus")
'ClipRenderedEvent =ConnectEvent(ActiveWindow, "OnChildClipRendered",
"ProcessOnChildClipRendered")
end if
end sub
Sub ProcessOnChildFocus(windowObject)
' React to OnChildFocus events
Speak("called")
speak (windowObject.ClassName)
End Sub
sub ProcessOnChildClipRendered(clipObject)
end sub
Sub ProcessOnShutdown()
' Disconnect events and any other cleanup procedures required.
'Disconnect(ClipRenderedEvent)
Disconnect(FocusWindowEvent)
End Sub
'connect events.
DesktopActivateEvent = ConnectEvent(DesktopWindow, "OnChildActivate",
"ProcessOnDesktopActivate")
ShutdownEvent = ConnectEvent(ClientInformation, "OnShutDown",
"ProcessOnShutdown")
-----Original Message-----
From: Aaron Smith [mailto:[EMAIL PROTECTED]
Sent: 04 August 2008 13:23
To: [email protected]
Subject: Re: OnChildClipRendered Problem
Sean,
Can you give us some code to look at?
Aaron
Sean Farrow wrote:
> Hi:
> Does anyone have any idea why connecting to/disconnecting from the
> ActiveWindow.OnChildClipRendered event would caused the script to
freeze
> on shutdown.
> I am releasing the event in a custom ClientInformation.OnShutdown
event,
> this ClientInformation.OnShutdown event is not being released, is this
> causing the issue?
> Cheers
> Sean.
>
>
> __________ Information from ESET NOD32 Antivirus, version of virus
> signature database 3324 (20080804) __________
>
> The message was checked by ESET NOD32 Antivirus.
>
> http://www.eset.com
>
>
--
To insure that you receive proper support, please include all past
correspondence (where applicable), and any relevant information
pertinent to your situation when submitting a problem report to the GW
Micro Technical Support Team.
Aaron Smith
GW Micro
Phone: 260/489-3671
Fax: 260/489-2608
WWW: http://www.gwmicro.com
FTP: ftp://ftp.gwmicro.com
Technical Support & Web Development
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3324 (20080804) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3324 (20080804) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
