Le portail francophone de la géomatique

Bonjour,

Je ne sais pas si cela existe dans le langage de programmation de Mapinfo, mais comme il est issu de VB6, je vous le donne en VB6:

Objet screen
Attribut : twipsperpixel (X et Y)

Bonjour,

C'est la deuxième solution dont il faut s'inspirer. Je ne savait pas qu'en Mapbasic (c'est ça le nom ?) on pouvait utiliser une instruction DECLARE qui permet l'utilisation des API's. Attention le code fournit retourne la zone client de la fenêtre mapbasic (ie: la fenêtre moins la bordure et la barre de titre)

Je vous commente le code:

Déclaration des constantes WINDOWS utilisées par les API nécessaires (ne rien changer).

Define LOGPIXELSX 88        '  Logical pixels/inch in X
Define LOGPIXELSY 90        '  Logical pixels/inch in Y

Define SM_CXSIZEFRAME 32
Define SM_CYSIZEFRAME 33
Define SM_CYHSCROLL 3
Define SM_CXVSCROLL 20
Define SM_CYCAPTION 4

Déclaration de la structure RECT (rectangle pour les APIs

Type RECT_t
  left As Integer
  top As Integer
  right As Integer
  bottom As Integer
End Type

Déclaration des API (je passe) mais je suis surpris si le type de données Long existe en mapbasic le préférer à Integer !!

hWnd = SystemInfo(SYS_INFO_MDICLIENTWND)

récupère le handle de fenêtre mapbasic

nStatus = GetClientRect (hWnd, tRect)

Fonction qui renvoie dans la structure tRect la zone client de la fenêtre de handle hWnd ce en cooredonnées de périphérique (pixel pour faire simple).

GetSystemMetrics (SM_CXSIZEFRAME)

La fonction getsystemmetrics renvoie en fonction de la constante (ou de la combinaison de constante via un OU logique) une valeur en pixel pour différents paramètres relatifs aux fenêtres:
ici CXSIZEFRAME renvoie l'épaisseur en pixel de la bordure de fenêtre. La consultation de cette fonction sur la MSDN permet de constater que le passage d'un paramètre : SM_CXSCREEN permet d'obtenir la largeur de l'écran en pixels et de ce passer de la fonction GetDEviceCaps.
Noter que tous les paramètres CX... ont leur homologue en CY pour obtenir la valeur verticale.

Donc :

hWnd = SystemInfo(SYS_INFO_MDICLIENTWND)
  nStatus = GetClientRect (hWnd, tRect)
  nWidth = tRect.right - 2*GetSystemMetrics (SM_CXSIZEFRAME)
  nHeight = tRect.bottom - GetSystemMetrics (SM_CYCAPTION) -
      2*GetSystemMetrics (SM_CYSIZEFRAME)

permet d'obtenir la largeur et la hauteur de la fenêtre mapbasic.

Un appel à GetsystemMetrics avec CX et CYSCREEN permet d'obtenir la largeur et la hauteur de l'écran, le tout en pixel.

Après je suppose que

Set Window FrontWindow() Position (0,0) Width fWidth Height fHeight

Est une fonction Mapbasic, mais allons plus loin et soyons puriste, remplaçons la par l'API
MoveWindows   que l'on appellera avec le hwnd obtenu précédemment:  cf http://msdn.microsoft.com/en-us/library … 85%29.aspx

Pour l'API getsystemmetrics :

http://msdn.microsoft.com/en-us/library … 85%29.aspx

Si vous avez d'autres questions j'essaierai de répondre, mais pas sur le mapbasic

Grillé par le BOSS !

Bonjour,

Difficile pour moi de vous répondre car votre mbx fait appel à des fonctions qui sont propres à MAPINFO.
Je ne sais pas comment MAPBASIC gère les coordonnées des fenêtres.

Ben ... en VB ou VBA les coordonnées sont gérées en Twips, en Windows pur elles sont gérées en pixel ou plus précisément en coordonnées de périphérique.

Deuxièmement : si vous utilisez une boîte de dialogue standard, c'est un peu particulier dans windows car ce sont des fenêtres modales qui sont appelées via une API spécifique.

Donc : Reprenez l'exemple commenté plus haut ce pour obtenir le handle de la fenêtre MAPINFO puis calculer sa taille (en pixel) puis un "SET WINDOWS FRONT WINDOWS POSITION ..."

le 12/10

le 05/11

Bravo...mais en relisant le souhait initial il me vient à l'idée que votre formulaire, s'il s'agit d'un "dialog", sera toujours centré par défaut !!
Aide MapBasic pour Dialog: Position x, y  specifies the dialog's initial position, in pixels, representing distance from the upper-left corner of MapInfo's work area; if the Position clause is omitted, the dialog appears centered

Bonjour,

@Maurice, j'ai vue aussi, mais je veux comprendre comment le faire manuellement, car ensuite j'aimerais appliquer la même logique à une fenêtre carto et pas toujours centré.

@Christophe, en plein cela, Merci.

JF