Unrecognized Command: ShowOrginalCursor

Support and discussions about KeyGuard Studio Professional for AdventureMaker.

Moderators: time-killer-games, Vengeance66, Candle, reneuend, GM-Support

Unrecognized Command: ShowOrginalCursor

Postby reneuend » Fri Dec 27, 2013 3:56 am

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?
---


Image
Image
User avatar
reneuend
Administrator
 
Posts: 2762
Joined: Sat Nov 22, 2008 8:37 pm
Location: Midwest Cornfield, USA

Re: Unrecognized Command: ShowOrginalCursor

Postby ShadowHunter » Wed Jan 01, 2014 9:48 am

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
User avatar
ShadowHunter
Forum Admin and Games Page admin
 
Posts: 1304
Joined: Fri Jun 06, 2003 10:37 pm
Location: Belgium

Re: Unrecognized Command: ShowOrginalCursor

Postby reneuend » Wed Jan 01, 2014 10:15 pm

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
---


Image
Image
User avatar
reneuend
Administrator
 
Posts: 2762
Joined: Sat Nov 22, 2008 8:37 pm
Location: Midwest Cornfield, USA


Return to KeyGuard Studio Professional

Who is online

Users browsing this forum: No registered users and 0 guests

cron