Page 1 of 1

Unrecognized Command: ShowOrginalCursor

PostPosted: Fri Dec 27, 2013 3:56 am
by reneuend
I am using version 4.7.1

The following is throwing an error: Object doesn't support this property or method

Code: Select all
Component("KeyGuard").Object.ShowOriginalCursor = 0



any ideas?

Re: Unrecognized Command: ShowOrginalCursor

PostPosted: Wed Jan 01, 2014 9:48 am
by ShadowHunter
Happy New Year all,

Hmhm, I checked the source code quickly and this property does exist (I mean no typo :wink:)

Code: Select all
Public Property Let ShowOrginalCursor(ByVal NewValue As String)
    ShowOrginalCursorI = NewValue
    UserControl.PropertyChanged "ShowOrginalCursorI"
End Property


This is actually the only code that is using that property:

Code: Select all
If RenderingCursor = True Then
        If BackhWnd = WindowFromPoint(b, c) Then CursorOnArea = True Else CursorOnArea = False
        If CursorOnArea = True Then
            If ShowOrginalCursorI = 0 Then
                Screen.MousePointer = 99
                Screen.MouseIcon = LoadResPicture(101, vbResCursor)
            End If
        Else
            Screen.MousePointer = vbDefault
        End If
        If (CursorOnArea = True Or FreezeCursorLostFocusI = 0) And ContinueFlagOnce = False Then RenderAll
    End If


Can you give more detail?

With best regards,

ShAdOwHuNtEr

Re: Unrecognized Command: ShowOrginalCursor

PostPosted: Wed Jan 01, 2014 10:15 pm
by reneuend
Hi ShadowHunter,

I hope you are doing well.

Here is the Frame properties code where I am loading the image cursor and wanting to hide the cursor. Noticed I used the Action command to hide the cursor by using a single pixel. It works fine this way.

Code: Select all
RotationAngle = 0

Component("KeyGuard").Object.ProhibitRotation = 1
RenderBitMapCursor "riflescope.jpg","riflescopemask.jpg"
Component("KeyGuard").Object.ActionPointX = 0
Component("KeyGuard").Object.ActionPointY = 0

Component("KeyGuard").Object.RenderLimitX1 = -1000
Component("KeyGuard").Object.RenderLimitY1 = -900
Component("KeyGuard").Object.RenderLimitX2 = 0
Component("KeyGuard").Object.RenderLimitY2 = -100

Action.ChangeDefaultCursor "blank.ico"

'Component("KeyGuard").Object.ShowOriginalCursor = 0

TranqScreenTime = GetTranqScreenTime()
Action.CreateTimedEvent TranqScreenTime, "Action.GoToFrame ""class tranq target 2""", false