Lire un BMP pour le centrer [RÉSOLU]

Bonjour !

Voici mon propos : j'écris un éditeur de cartes ferroviaires, lesquelles ont été créées par un programme existant, CA TRAIN, dont j'importe les cartes (en BMP), le but étant d'ajouter du décor à des circuits qui n'affichent que des voies. Par souci de simplicité, je désire limiter l'affichage de la carte sur un PICTURE au centre de ma fenêtre, le reste de l'espace disponible dans celle-ci étant dédié à des boutons copier, coller, des choix d'icônes à coller sur la carte etc.

Le problème est que je ne sais pas avant de charger une nouvelle carte, quel sera le format de celle-ci, et donc, je n'en ai que le coin supérieur gauche. Je pourrais passer par un objet IMAGE et jouer sur les coordonnées d'affichage, à ceci près que je ne connais pas la hauteur ni la longueur de ma carte. J'en déduis qu'il me faudrait, dans l'idéal, lire le fichier BMP ? L'alternative étant de mémoriser avant d'utiliser mon programme, les dimensions de la carte que je vais charger en ouvrant CA TRAIN...

Salut Froggy One !

Tu as une commande qui se nomme STRETCH_ON

Voila ce que dit la doc :
Cette commande STRETCH_ON N redimensionne l'image visualisée par l'objet système désigné par son numéro N à la forme de cet objet système. Comme la hauteur et la largeur de l'image sont redimensionn s ind pendamment, l'image visualisée par l'objet système peut subir une distorsion.

Dans KGF.dll, tu as la fonction

Code:

res% = dll_call3("AnalyzeImageFile",adr(jpg$),adr(larg%),adr(haut%))

qui fait exactement ce que tu cherches, sans avoir à charger le fichier dans un IMAGE ou PICTURE. C'est documenté dans l'aide, section "Gestion d'images".

Tu peux aussi écrire une petite sub en Panoramic pur pour connaître les dimensions de tes images bmp, c'est très simple.
Par exemple:

Code:

SUB DimBmp(f$)
  ' Dimensions d'une image bmp -> rs_wi%, rs_hi% (largeur, hauteur en pixels)
  DIM_LOCAL rs_v%(8)
  IF VARIABLE("rs_wi%") = 0 THEN DIM rs_wi%
  IF VARIABLE("rs_hi%") = 0 THEN DIM rs_hi%
  FILEBIN_OPEN_READ 9, f$
    FILEBIN_POSITION 9, 18: FILEBIN_BLOCK_READ 9,8,rs_v%(0)
    rs_wi% = rs_v%(0)+256*rs_v%(1)+65536*rs_v%(2)+16777216*rs_v%(3)
    rs_hi% = rs_v%(4)+256*rs_v%(5)+65536*rs_v%(6)+16777216*rs_v%(7)
  FILEBIN_CLOSE 9
END_SUB

Merci à tous !

@ Minibug : je préfère ne pas étirer car je travaille sur des cases que je veux assez visibles. Merci quand même !
@ Klaus : comme toujours, KGF a la solution mais je risque d'utiliser mon programme sur des machines qui ne l'ont pas...
@ JL35 : C'est exactement ce dont j'avais besoin dans mon code et à mon niveau.  

Je promets de montrer ce que ça donne dès que mon programme est un peu plus présentable !