Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Docking a system toolbar
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00084827
Message ID:
00084874
Views:
35
>
>George, I started from this point (even before replying to Cetin) and got an error that _WFindTitle not found (other _W... worked). Strange, eh:)

Ed, as a matter of fact it happens to me too when working with these functions. However, it's because we've added an "e" that doesn't belong. _WFindTitl() works just fine. And I just noted that I did in my sample, so it should be:
FUNCTION IsDocked

LPARAMETER pcToolBar

LOCAL llresult, lnwhandle, lnhWnd,;
  lnHeight, lnTop, lnLeft, lnBottom, lnRight
llresult = .T.
lnwhandle = _WFindTitl(pcToolBar)
IF lnwhandle > 0
  lnHeight = _WHeightp(lnwhandle)
  lnhWnd = _WhTohWnd(lnwhandle)
  STORE 0 TO lnTop, lnLeft, lnBottom, lnRight
  = _GetWRect(lnhWnd, @lnTop, @lnLeft, @lnBottom, @lnRight)
  llresult = (lnHeight = lnBottom - lnTop)
ENDIF
RETURN llresult
ENDFUNC
I go through phases where I leave off things. Now I'm adding them when they shouldn't be there. I'm blaming it on old age. :-)
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform