Discussion :

[Invité]

Bonjour,

je fais un preview où chaque thumbnail/imagette est codé avec un TImage, un TBevel et un TLabel. C'est géré comme un tableau de composants créés à l'exécution, le tout étant posé sur un TPanel. Tout va bien sauf au redimensionnement : dès que le bord du panel mord sur les composants, ces composants deviennent insensibles à tous les messages qui marchent quand les composants sont complètement visibles (dessin sur le TImage ou mise à jour du label).

Je précise que le panel est posé sur deux frames.

Merci de vos suggestions

[Pascal Jankowski]

Je suppose que tu disposes d'une fonction d'affichage pour tes vignettes. Essaye donc de coder l'événement FormResize de ta fenêtre de la façon suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
procedure TMainForm.FormResize(Sender: TObject);
begin
  //désactiver ici les événements qui pourraient bloquer 
  //le redimentionnement en leur affectant la valeur nil.
  try
    Application.ProcessMessages;
  finally
    try
      proc_qui_affiche_tes_vignettes;
      //Réactiver ici les événements désactivés en entrée de procédure
    finally
    end;
  end;
end;

Cordialement

[Invité]

Merci pour la réponse. Malheureusement 1/ les ProcessMessages ne changent pas le pb 2/ je ne sais pas ce qui bloque.

En fait, j'ai réussi à débugger en supprimant un test qui bloque la mise à jour de l'affichage si le nombre de lignes ou de colonnes ne change pas. Mais :
1/ la description du pb est toujours valable : par ex, un TImage répond à une demande de modification d'affichage jusqu'au moment où, en redimensionnant, le TImage commence à deborder de la fenêtre.
2/ je ne comprends toujours pas pourquoi le test ne marche pas. Est-ce que c'est possible d'avoir un décalage entre l'événement OnResize et la dispo des dimensions Width et Height réelles ?

En tout cas merci encore.

[Fabrice ROUXEL 1]

Revois le codage de ton interface de sorte que le panel ne vienne pas partiellement recouvrir les composants.

Pour cela, tu peux utiliser 2 panels et un splitter, gerer par code le repositionnement des composants en cas de redimensionnement ( c'est souvent le cas avec un label qui doit etre replacé correctement)

Tu as également les propriétés Anchors et Constraints.



---

[Pascal Jankowski]

Bonjour,

Pourrais-tu nous communiquer simplement ta procédure d'affichage ?

Pour info, j'ai récemment codé une fonction qui affiche un preview pour une série de TForm embarquées et tout cela dans une TForm, un peu à la manière d'IE7.
La différence avec ton problème c'est que la dimension de chaque vignette se recalcule automatiquement si l'on rezize la Tform (3 vignettes par lignes et n lignes).
J'avais également rencontré des bloquages mais ils étaient provoqués par :
1/ des événements redéfinis qui devaient être désactivés, réactivés respectivement avant et après le resize.
2/ une mauvaise gestion de la temporisation avec la fonction d'affichage ce qui me semblerait répondre à ta dernière question.

Est-ce que c'est possible d'avoir un décalage entre l'événement OnResize et la dispo des dimensions Width et Height réelles ?

Cordialement

[Fabrice ROUXEL 1]

As tu essayé de placer Repaint dans l'événement onResize de la fiche?