Discussion :

[Jipété]

Bonjour,

m'en vais vous conter la misère découverte ce week-end, et une comme ça je n'avais encore jamais vu, et s'il y en a d'autres planquées dans des coins, faut pas s'étonner que des fusées explosent et que des voitures sans conducteur deviennent folles : je sens que l'avenir qui se prépare va être terrible...

Soit une seule et unique bête fiche d'un petit programme ; sur cette fiche un TPageControl avec 3 TTabSheets ; sur le 2^e onglet (parce que c'est comme ça et, non, je n'ai pas testé sur les autres onglets) deux TMemos et d'autres trucs (TGroupBox, TRadioGroup, TButton, TCheckbox, TPanel contenant un tas de trucs dont un TMemo aussi, on va voir pourquoi je précise ce point), bref, du bazar habituel.

Pour faciliter l'utilisation des onglets et comme beaucoup de choses se passent au clavier (déplacement du curseur des TTrackBars, entre autres), j'ai implémenté un événement OnKeyDown lié à la fiche (oui, avec KeyPreview à True ) et en utilisant donc les touches "s", "d" ou "p", je peux basculer sur le 1^er, le 2^e ou le 3^e onglet. Fastoche et bien sympatoche !

L'un des deux TMemos du 2^e onglet me servait lors du debug à afficher des résultats de calcul ; maintenant que tout tourne bien, je n'en ai plus besoin et j'ai donc commenté les lignes de code y afférant et passé la propriété "Visible" de l'objet à "False". J'aurais pu le supprimer mais en cas de besoin, ça va plus vite de juste basculer la propriété, donc bon, je l'ai gardé.

Et c'est ensuite au runtime qu'on rigole : si je bascule sur le 2^e onglet avec la touche "d", rien à signaler tout est parfait, mais si j'y accède par la souris, ben, les deux TMemos posés directement sur cet onglet deviennent, vous l'avez compris, visibles, hé oui !

Regardez la copie d'écran : à gauche l'inspecteur d'objet (en haut l'arbo des objet avec un TMemo sélectionné, dessous les propriétés de l'objet), et à droite pendant l'exécution le TMemo bien visible car j'ai utilisé la souris.



Un truc qui va faire plaisir à Jon : le problème n'existe pas sous Windows (XP pour le moment, pas testé ailleurs), d'où le titre bien orienté.

Une machine Linux tourne sous Laz 1.4 / FPC 2.6 et l'autre sous Laz 1.6rc1 / FPC 3.0 mais je ne pense pas que ça ait beaucoup d'importance car ce matin, je faisais générer depuis la machine avec 1.6/3.0 et exécuter sur l'autre machine avec un résultat identiquement foireux.
Les deux machines (l'une physique et l'autre virtuelle) exécutent à peu près le même Debian avec à peu près la même version de GTK2.

Je vous laisse imaginer maintenant ce qui pourrait se passer en cas d'information importante affichée dans un Memo1 et masquée par l'affichage d'un Memo2 intempestif dont on a prévu qu'il ne soit pas visible mais qu'en fait il est bien là...

J'ai un peu la haine, ce matin, surtout si je précise que tous les autres objets avec Visible à False sur l'onglet concerné ne s'affichent pas, comme prévu.

[Jon Shannow]

Non, rien.

[ThWilliam]

Salut JP,

As-tu essayé ceci pour ton memo ? Laisser Visible true dans l'EDI, et coder Visible false p.ex dans l'événement OnShow de ta fiche.
Et toujours exécuter le programme en dehors de l'EDI.

Cordialement
Thierry

[Jipété]

Salut Thierry,

C'était bien tenté ; j'ai suivi scrupuleusement tes directives, mais quand ça veut pas, ça veut pas : les deux mémos sont non seulement parfaitement visibles après un clic sur le tab du 2^e onglet, mais également en appuyant sur la touche "d"...

Retour en arrière (propriété Visible à False dans l'EDI, rien dans FormShow) et au moins ils ne sont pas visibles en appuyant sur "d", même si c'est complètement mystérieux.

Ah, pour faire plaisir à Jon, testé cet aprème chez des amis sous 7, paniproblèm comme on dit sous les Tropiques

[ThWilliam]

Un vrai mystère ton truc !!!

Et si dans l'événement OnCreate de la fiche, tu codais :

Code :

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

Memo2.Parent:= nil;

Si tu le vois encore, alors là...

[Jipété]

Bien joué !

Par contre, l'autre mémo, qui n'est pas visible au lancement du programme mais peut le devenir si l'utilisateur clique sur le bouton fait pour, ben... ça ne fonctionnait plus, du coup.

Donc pour celui-ci, lui et son bouton de commande dans un TPanel mis juste exprès pour eux deux et ça le fait bien aussi !

Presque je cliquerais sur ,

[jurassic pork]

hello,
Jipété je n'arrive pas à reproduire ton problème sous Ubuntu 14.04 LTS 64 bits Lazarus 1.6 FPC 3.0. C'est sans doute que mon projet est trop simple (3 tabsheets avec 2 mémos dans le 2ème tabsheet) et dans ce cas il faudrait que tu nous mettes en pièce jointe ton projet.
Ami calmant, J.P (pas té)

[Jipété]

Yep !

Tu te moqueras pas, hein ? J'ai pas fait le ménage dans les sources, c'est un vrai bazar de machins en commentaires par ci par là, des notes perso, presque du roman parfois...
Il y a des vieux trucs qui traînent, y a que moi qui puisse s'y retrouver, là-dedans !

Courage et merci, et comme toi, je pense que c'est lié à la quantité d'objets du projet, et à leur imbrication (une quantité de panels qui embarquent des panels qui en embarquent d'autres, et d'autres objets, bref, le bronx !)
colorjob.zip

D'un autre côté, ne perds pas de temps avec ça, Thierry ayant trouvé une solution de contournement.

[jurassic pork]

hello,
bon Jipété, il semblerait que cela soit ta procédure du timer TimerPickTimer qui pose problème.
Car quand je mets ceci au début de ta procédure (c'est à dire que je n'exécute pas ce qui est dedans) :

Code :

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

1
2
3
begin
  TimerPick.Enabled := False;
  exit;

Le mémo Memo2 reste bien invisible lorsqu'on clique sur l'onglet TabSheet2.

Ami calmant, J.P (pas té)

[Jipété]

Salut, djipépaté,

et merci d'avoir passé du temps là-dessus.

Pour qu'on soit bien d'accord, quand tu écris

Car quand je mets ceci au début de ta procédure (c'est à dire que je n'exécute pas ce qui est dedans) :

Code :

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

1
2
3
begin
  TimerPick.Enabled := False;
  exit;

ça veut dire que si tu enlèves cet exit; le Memo2 redevient visible (à tort), on est bien d'accord ?

C'est quand même hallucinant car cette procédure de Timer n'est appelée que lorsqu'on bascule sur l'onglet 3 (pour faire son boulot de ColorPicker) ou sur l'onglet 1 (une astuce pour mettre le focus sur un TrackBar sans utiliser un autre Timer : y a déjà celui-là, je l'utilise en OneShot pour cette affaire de focus, franchement pas de quoi fouetter un chat.) Et quand je bascule sur l'onglet 2, il est désactivé dans l'événement "Change" du PageControl.

Mais le plus rigolo, c'est que si je suis ta suggestion et que je rajoute cet exit; à l'endroit où tu l'as suggéré, dans mon cas ça ne change rien : le Memo2 est visible.

Une dernière manip : à partir de l'inspecteur d'objet, j'ai supprimé l'attache entre le Timer et son événement OnTimer, j'en conclus que c'est comme s'il n'y avait plus de Timer, d'accord ? Et que crois-tu qu'il arrivât ? Le Memo2 est toujours visible...

Perds pas de temps là-dessus (d'autant plus que les calculs de dégradés sont un peu foireux, faut que je m'y repenche).

Bonne journée, ou bonne soirée ou bonne nuit, je ne sais pas trop où tu es mais je remarque que tu postes toujours à des heures où en France continentale on est plutôt couché,

[BeanzMaster]

Bonsoir je passais par là ; et un truc bête mais qui sait ? a tester si tu met également la propriété Enabled à False, le résultat est le même ?

Bonne fin de soirée

[Jipété]

Bonjour, et désolé de ne pas avoir répondu hier soir, mais j'étais complètement à bloc sur un autre truc assez perturbant et n'ai pas vu ta réponse.

si tu mets également la propriété Enabled à False, le résultat est le même ?

Mais bien sûr, hélas.

La seule solution, pour le moment, c'est de rajouter, dans le FormCreate, if not Memo2.Visible then Memo2.Parent := nil;.
Comme ça je conserve la compatibilité de fonctionnalité avec l'inspecteur d'objets de l'EDI et hop, tutti va bene !

Bonne journée,