SPONSORS:






User Tag List

Results 1 to 7 of 7
  1. #1
    Member
    Join Date
    Dec 2002
    Posts
    98
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Sheridan Toolbars

    In a VB application, I have a toolbar. After recording a window declaration, and moving the mouse cursor to the toolbar, silk thinks it is nothing but the the main window (VBMDIForm). But somehow it actually has following entry,
    CustomWin OLESSActiveToolBars1

    My window dec. looks like this,

    [+] window VBMDIForm AppName
    [ ] tag "TagName"
    [+] VBPictureBox VBPictureBox1
    [ ] tag "$Picture1"
    [+] VBPictureBox VBPictureBox1
    [ ] tag "$Picture2"
    [+] VBLabel VBLabel1
    [ ] tag "$lblStatusBarCaption"
    [+] OLESSListBar OLESSListBar1
    [ ] tag "$ListBar"
    [+] CustomWin OLESSActiveToolBars1
    [ ] msw tag "[OLESSActiveToolBars]$SSActiveToolBars1"

    So, I can't record a toolbar class. I was hoping to solve this problem by using 'Evenly sized and Spaced Control' technique.

    Any help will be much appreciated.

    Thanks.


    ------------------
    DJ

    [This message has been edited by djava (edited 12-23-2002).]
    DJ

  2. #2
    Guest

    Re: Sheridan Toolbars

    Try recording class using the following script (just run the following script & the recorded class appears in results file)...


    [This message has been edited by rkamani (edited 12-27-2002).]

  3. #3
    Member
    Join Date
    Dec 2002
    Posts
    98
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: Sheridan Toolbars

    Thanks for your reply. I could capture the toolbar class successfully.

    I have a different problem now. As per my plan, I was trying to automate this toolbar by using 'Evenly sized and Spaced Control' technique. (I have used the same technique before and it works.)

    But I now get following error,

    Error: Mouse coordinate (0,0) is outside of the window.

    What I have obeserved is that the toolbar is above the (0,0) co-ordinate of the main window. Does that matter?


    ------------------
    DJ
    DJ

  4. #4
    Guest

    Re: Sheridan Toolbars

    Quick question, you mean the toolbar is outside of VBMDIForm?

    Anyway, if your answer to above question is yes one solution I know is to uncheck "Verify that coordinates passed to a method are inside the window" in Agent Options Verification tab. OR change it at runtime using...

    Agent.SetOption (OPT_VERIFY_COORD, FALSE)

  5. #5
    Member
    Join Date
    Dec 2002
    Posts
    98
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: Sheridan Toolbars

    I am kind of confused with this. When I record this window, my toolbar is part of VBMDIForm. (As shown in my original posting).

    But after recording at the client co-ordinates using 'Record Locations', below toolbar 'Y' co-ordinate increases in +ve direction. So if I try to get the actual co-ordinates of a toolbar icon the 'Y' co-ordinate is -ve and 'X' is +ve.

    I tried following 2 declarations,

    1.
    [-] OLESSActiveToolBar ToolBarCLR
    [ ] msw tag "[OLESSActiveToolBars]$SSActiveToolBars1/(5:13, 1:1)"

    2.
    [-] OLESSActiveToolBar ToolBarCLR
    [ ] msw tag "[OLESSActiveToolBars]$SSActiveToolBars1/(130, -14)"

    And I now always get following error.
    Error: Mouse coordinate (0,0) is outside of the window.

    I tried setting the Agent option and still I have the same problem.

    ------------------
    DJ
    DJ

  6. #6
    Guest

    Re: Sheridan Toolbars

    When I encountered this kind of situation with a Grid, I did something like the following in window declarations...

    Once I have the above window declarations, when I use...
    AppName.OLESSActiveToolBars1.TButton5.Click ()
    it works perfect.

    By the way, could you post the class declaration for OLESSActiveToolBars? I want to see if there are any methods/properties captured when you did record class.

  7. #7
    Member
    Join Date
    Dec 2002
    Posts
    98
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Re: Sheridan Toolbars

    Here is my main window dec.

    [+] window VBMDIForm AppName
    [ ] tag "TagName"
    [ ]
    [ ] // The working directory of the application when it is invoked
    [ ] const sDir = "C:\Program Files\Common Files\System\Mapi\1033\NT"
    [ ]
    [ ] // The command line used to invoke the application
    [ ] const sCmdLine = "C:\App.exe"
    [ ]
    [ ] // The first window to appear when the application is invoked
    [ ] // const wStartup = ?
    [ ]
    [ ] // The list of windows the recovery system is to leave open
    [ ] // const lwLeaveOpen = {?}
    [ ]
    [+] VBPictureBox VBPictureBox1
    [ ] tag "$Picture1"
    [-] VBPictureBox VBPictureBox1
    [ ] tag "$Picture2"
    [+] VBLabel VBLabel1
    [ ] tag "$lblStatusBarCaption"
    [ ]
    [+] // OLESSListBar ListBar
    [ ] // msw tag "[OLESSListBar]$ListBar"
    [ ]
    [-] CustomWin ListBarItem1
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 1:10)"
    [+] CustomWin ListBarItem2
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 2:10)"
    [-] CustomWin ListBarItem3
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 3:10)"
    [+] CustomWin ListBarItem4
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 4:10)"
    [+] CustomWin ListBarItem5
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 5:10)"
    [+] CustomWin ListBatItem6
    [ ] msw tag "[OLESSListBar]$ListBar/(1:1, 6:10)"
    [ ]
    [ ]
    [+] OLESSActiveToolBar ToolBar
    [ ] msw tag "[OLESSActiveToolBars]$SSActiveToolBars1"
    [-] CustomWin TButton1
    [ ] tag "(1:13,1:1)"
    [-] CustomWin TButton2
    [ ] tag "(2:13,1:1)"
    [-] CustomWin TButton3
    [ ] tag "(3:13,1:1)"
    [-] CustomWin TButton4
    [ ] tag "(4:13,1:1)"
    [-] CustomWin TButton5
    [ ] tag "(5:13,1:1)"
    [-] CustomWin TButton6
    [ ] tag "(6:13,1:1)"
    [-] CustomWin TButton7
    [ ] tag "(7:13,1:1)"
    [-] CustomWin TButton8
    [ ] tag "(8:13,1:1)"
    [-] CustomWin TButton9
    [ ] tag "(9:13,1:1)"
    [-] CustomWin TButton10
    [ ] tag "(10:13,1:1)"
    [-] CustomWin TButton11
    [ ] tag "(11:13,1:1)"
    [-] CustomWin TButton12
    [ ] tag "(12:13,1:1)"
    [-] CustomWin TButton13
    [ ] tag "(13:13,1:1)"
    [ ]

    And this is my class declaration for OLESSActiveToolBars.
    [+] winclass OLESSActiveToolBar : Control
    [ ] tag "[OLESSActiveToolBars]"
    [ ]
    [ ] // Properties
    [ ] property ANYTYPE TagVariant alias "$TagVariant"
    [ ] property BOOLEAN bActiveColors alias "$ActiveColors"
    [ ] property BOOLEAN bDisplayContextMenu alias "$DisplayContextMenu"
    [ ] property BOOLEAN bEnabled alias "$Enabled"
    [ ] property BOOLEAN bLargeIcons alias "$LargeIcons"
    [ ] property BOOLEAN bPictureBackgroundUseMask alias "$PictureBackgroundUseMask"
    [ ] property BOOLEAN bRedraw alias "$Redraw"
    [ ] property BOOLEAN bShowShortcutsInToolTips alias "$ShowShortcutsInToolTips"
    [ ] property BOOLEAN bShowToolTips alias "$ShowToolTips"
    [ ] property BOOLEAN bVBVisible alias "$VBVisible"
    [ ] property BOOLEAN bVisible alias "$Visible"
    [ ] property FLOAT rVBLeft alias "$VBLeft"
    [ ] property FLOAT rVBTop alias "$VBTop"
    [ ] property INT iBackColor alias "$BackColor"
    [ ] property INT iDragFullToolBars alias "$DragFullToolBars"
    [ ] property INT iFontSource alias "$FontSource"
    [ ] property INT iForeColor alias "$ForeColor"
    [ ] property INT iMenuAnimations alias "$MenuAnimations"
    [ ] property INT iPersonalizedMenus alias "$PersonalizedMenus"
    [ ] property INT iPictureBackgroundMaskColor alias "$PictureBackgroundMaskColor"
    [ ] property INT iPictureBackgroundStyle alias "$PictureBackgroundStyle"
    [ ] property INT iStyle alias "$Style"
    [ ] property PINTERFACE Font alias "$Font"
    [ ] property PINTERFACE PictureBackground alias "$PictureBackground"
    [ ] property PINTERFACE ToolBars alias "$ToolBars"
    [ ] property PINTERFACE Tools alias "$Tools"
    [ ] property PINTERFACE VBParent alias "$VBParent"
    [ ] property SHORT iToolTipDelay alias "$ToolTipDelay"
    [ ] property STRING sVBName alias "$VBName"
    [ ] property STRING sVBTag alias "$VBTag"
    [ ]
    [ ] // Accessible Native Methods
    [ ] obj ANYTYPE SaveConfigurationEx ()
    [ ] obj INT WhereIs (FLOAT X, FLOAT Y)
    [ ] obj PINTERFACE ToolBarFromPosition (FLOAT X, FLOAT Y)
    [ ] obj PINTERFACE ToolFromPosition (FLOAT X, FLOAT Y)
    [ ] obj SHORT _GetDockHeight (INT Dock)
    [ ] obj SHORT _GetDockWidth (INT Dock)
    [ ] obj STRING GetCustomizationStrings (INT Index)
    [ ] obj VOID AttachWindow (INT hWnd)
    [ ] obj VOID Customize (ANYTYPE Reserved)
    [ ] obj VOID LoadConfiguration (STRING ConfigFile)
    [ ] obj VOID LoadConfigurationEx (ANYTYPE Configuration)
    [ ] obj VOID LoadLayout (STRING LayoutFile)
    [ ] obj VOID PlaySoundFile (STRING Sound, ANYTYPE SoundFlags)
    [ ] obj VOID PopupMenu (ANYTYPE Tool, ANYTYPE Flags, ANYTYPE X, ANYTYPE Y)
    [ ] obj VOID Refresh ()
    [ ] obj VOID ResetUsage ()
    [ ] obj VOID SaveConfiguration (STRING ConfigFile)
    [ ] obj VOID SaveLayout (STRING ConfigFile)
    [ ] obj VOID SetCustomizationStrings (INT Index, STRING pVal)

    I still get the same error.

    Notice that in ListBar I used the items in the main AppName. I tried doing the same for toolbars.


    ------------------
    DJ
    DJ

 

 

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

vBulletin Optimisation provided by vB Optimise v2.6.0 Beta 4 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
User Alert System provided by Advanced User Tagging v3.0.9 (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Questions / Answers Form provided by vBAnswers (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
vBNominatevBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Feedback Buttons provided by Advanced Post Thanks / Like (Pro) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
Username Changing provided by Username Change (Free) - vBulletin Mods & Addons Copyright © 2016 DragonByte Technologies Ltd.
BetaSoft Inc.
Digital Point modules: Sphinx-based search
All times are GMT -8. The time now is 05:51 AM.

Copyright BetaSoft Inc.