Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MOUSE command and Pix2Fox
Message
De
26/01/2009 10:49:03
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
26/01/2009 10:37:03
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01377027
Message ID:
01377043
Vues:
17
>I don't have access to the documentation right now, but I seem to recall that some of the sysmetric() values are relevant.

Some of the issue is that it acts differently when running from Dev and running in an EXE. I did need the SysMetric stuff and Sergey was kind enough to have it on his site already canned into procedures. This is what I ended up using:
IF (nKeyCode >= 48 AND nKeyCode <= 57) OR (nKeyCode >= 65 AND nKeyCode <= 90) OR (nKeyCode >= 97 AND nKeyCode <= 122)

	m.lnPosY = _SCREEN.Top + THISFORM.Top + THIS.Top -5 && To get on the arrow
	m.lnPosX = _SCREEN.Left + THISFORM.Left + THIS.Left + THIS.Width -5 && To get on the arrow

	lnRow = pix2fox(lnPosY, .T.,_SCREEN.Fontname ,_SCREEN.FontSize)
	lnCol = pix2fox(lnPosX, .F.,_SCREEN.Fontname ,_SCREEN.FontSize)

	MOUSE AT lnRow,lnCol

ENDIF

DODEFAULT(nKeyCode, nShiftAltCtrl)
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform