Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Docking a system toolbar
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00084827
Message ID:
00084874
Vues:
36
>
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform