Bonjour,

La barre de scrolling horizontale apparaît uniquement que si la taille du contrôle datawindow posé dans ta fenêtre ne permet pas l'affichage de la totalité des colonnes (indépendamment de la taille de la fenêtre, ton contrôle datawindow est en fait plus grand que ta fenêtre).

Pour résoudre ton problème, il faut ajuster dynamiquement la taille de ton contrôle datawindow à la taille de ta fenêtre en encodant l'événement resize de ta fenêtre :

dw_1.Width = this.Width - 100
dw_1.Height = this.Height - dw_1.Y - 150

Lors de la retaille de ta fenêtre tu déclenches uniquement un événement personnalisé de ta dawindow (ue_resize).

Pour retailler ta datawindow, il faut donc ajouter un événement personnalisée à ta datawindow ue_resize et ajouter du code proche de celui que je t'ai indiqué pour retailler le contrôle.

Finalement un problème similaire persiste :

A l'ouverture de ma fenêtre (postopen() event) je décide de masquer les colonnes les plus "à droite", celles notamment pour lesquelles il pouvait être nécessaire d'utiliser la barre de défilement. Dès lors toutes mes colonnes sont visibles par l'utilisateur, mais ma datawindow est si grande qu'il y a plein d'espace vide qui me dérange : je réduis donc la largeur de ma datawindow pour qu'elle fasse juste le largeur nécessaire.

Voici le code source utilsié :

// Masquage des colonnes
dw_perso.object.A_t.visible = false
dw_perso.object.B_t.visible = false
dw_perso.object.C_t.visible = false
dw_perso.object.D_t.visible = false      
dw_perso.object.A.visible = false
dw_perso.object.B.visible = false
dw_perso.object.C.visible = false
dw_perso.object.D.visible = false
  
// Déplacement des colonnes pour que la datawindow ne les considère pas "hors champ"    
dw_perso.object.A_t.x = 0
dw_perso.object.B_t.x = 0
dw_perso.object.C_t.x = 0
dw_perso.object.D_t.x = 0      
dw_perso.object.A.x = 0
dw_perso.object.B.x = 0
dw_perso.object.C.x = 0
dw_perso.object.D.x = 0      
  
// Redimensionnement de la datawindow    
dw_perso.width = long(dw_perso.object.Z.x) + long(dw_perso.object.Z.width) + 15

Voici le avant/après :





Comme vous pouvez le constater, j'ai une énorme barre de défilement horizontale qui me permet d'aller voir ce qui se passe très loin dans ma datawindow... Alors que les champs sont masqués et ont été déplacé en position 0. Je ne comprends pas le problème :-/

Bonsoir Buck et merci pour ta réponse !
Il semblerait toutefois que cela ne change rien dans mon cas (Pb 10.2.0 build 8075).

il y peut-être un contrôle caché qq part...

Bonjour,

De souvenir, ce comportement me rappelle quelque chose lorsque j'ai mis au point mon user objet permettant de gérer mes listes.

Peux tu essayer d'appliquer le modify en une seule fois sur la colonne et son en-tête :

integer li_i
string ls_modify
string ls_col[] = { "A", "B", "C", "D" }

FOR li_i = 1 TO UpperBound(ls_col)
    ls_modify += ls_col[li_i] + ".visible=0 " + ls_col[li_i] + ".Width=0 " + ls_col[li_i] + "_t.visible=0 " + ls_col[li_i] + "_t.Width=0 " 
NEXT

dw_perso.modify (ls_modify)

Je m'y suis donc pris différemment :

- Je me suis fait une petite fonction qui regarde quelles sont les colonnes affichées et modifie la largeur de la datawindow pour qu'elle puisse toute les afficher. Toutefois, la largeur de la DW n'excède jamais celle de la fenêtre, donc il est possible que toutes les colonnes ne soient pas visibles.

- Une seconde fonction gère la barre de scrolling horizontale, en comparant la largeur nécessaire à la datawindow pour que toutes ses colonnes visibles soient affichées, et la largeur actuelle de la fenêtre.

- Lorsque j'ouvre ma fenêtre, je fais appel successivement à mes 2 fonctions : la datawindow est resizée pour coller au contenu, et la barre de scrolling apparait si nécessaire.

- Lorsque je redimensionne ma fenêtre, je fais de nouveau appel à mes 2 fonctions : la datawindow est resizée pour coller au contenu, et la barre de scrolling apparait si nécessaire.

Ce que je remarque c'est que dès que ma barre de scrolling horizontal devient visible, alors je peux scroller très loin sur la droite même si ma datawindow est resizée pour coller au contenu (je scroll donc sur du vide, après ma dernière colonne visible). Bref ça fait comme avant, sauf que maintenant ça ne le fait que lorsqu'il y a besoin de scroller ;). Ca progresse, mais ça demeure étrange.



Je ne suis pas certain que l'on parvienne à résoudre ce problème...
Je fournis ci-après le code source, il servira peut-être à quelqu'un qui rencontre ce soucis, ou peut-être y trouverez vous à redire ;)

Voici ma fonction qui récupère la largeur nécessaire à la datawindow :
of_get_dw_necessary_width()

// Return the necessary width for displaying all visible columns of datawindow dw_suspect_tr
// This function may be used to compare the DW necessary width and the DW current width

long ll_nb_cols
long ll_i
string ls_col[]
long ll_current_x = 0, ll_current_width = 0
long ll_max_x = 0, ll_max_width = 0
long ll_final_dw_width

// Generate the table of columns (Not the displayed ones, but the ones declared in 'Column specification' tab)
ll_nb_cols = long(dw_perso.Object.DataWindow.Column.Count)
FOR ll_i = 1 TO  ll_nb_cols
ls_col[ll_i] = dw_perso.Describe("#"+string(ll_i)+".Name")
NEXT

// Give a look at each column of the datawindow
FOR ll_i = 1 TO UpperBound(ls_col)
  
  // If the column is visible
  IF long(dw_perso.describe(ls_col[ll_i] + ".visible")) = 1 THEN
    
    // Get X position of the column
    ll_current_x = long(dw_perso.describe(ls_col[ll_i] + ".x"))
    ll_current_width = long(dw_perso.describe(ls_col[ll_i] + ".width"))
    
    // If this column is the most on the right, save its attributes
    IF ll_current_x > ll_max_x THEN
      ll_max_x = ll_current_x
      ll_max_width = ll_current_width
    END IF
  END IF
NEXT      

// Compute the datawindow width that is necessary to display all visible columns
ll_final_dw_width = ll_max_x + ll_current_width

return ll_final_dw_width

Voici la fonction qui permet de directement resizer la datawindow à sa largeur nécessaire :
of_set_dw_necessary_width()

// Set the necessary width for displaying all visible columns in datawindow dw_perso
// Does not extend it over the window current width

long ll_final_dw_width

// Compute the datawindow width that is necessary to display all visible columns
ll_final_dw_width = of_get_dw_necessary_width() + 15

// Set the new DW width
long ll_window_width
ll_window_width = this.width
IF ll_final_dw_width < (ll_window_width - 50) THEN
  dw_suspect_tr.width = ll_final_dw_width
ELSE
  dw_suspect_tr.width = ll_window_width - 50 // Margin for vertical scroll bar
END IF

Voici ma petite fonction qui gère ma barre de scrolling horizontale :
of_manage_hscrollbar_visibility()

// Hide or display horizontal scrolling bar
// Note : 50 is the width used for vertical scroll bar display, on the right of the datawindow

long ll_dw_necessary_width 
long ll_window_width

ll_dw_necessary_width = of_get_dw_necessary_width()
ll_window_width = this.width

IF ll_window_width < (ll_dw_necessary_width) THEN
  dw_perso.hscrollbar = true
ELSE
  dw_perso.hscrollbar = false
END IF

Enfin voici mon resize() event :

of_set_dw_necessary_width()
dw_perso.Height = this.Height - dw_suspect_tr.Y - 150
of_manage_hscrollbar_visibility()

Dernière modification par Nyphel (16-09-2008 11:45:37)

Wout ! Quelle belle fenêtre !

J'ai bien contrôlé qu'aucun contrôle ne trainait (ma datawindow est assez basique, et j'ai cliqué sur chaque élément de la control list pour vérifier leur position).
J'essaierai de la reconstruire dès que j'aurai un moment.

Merci encore pour ton aide !