Discussion :

[zazaraignée]

Salut vous autres

Je sais, c'est bébête comme question: Quelqu'un pourait me dire comment ajouter du texte dans un panel d'une StatusBar?

L'aide de Delphi n'est pas très explicite sur el sujet et je n'ai pas vu de titres dans la FAQ ou dans les Sources.

Merci d'avance.

[balu]

Bonjour,

Composant : StatusBar (onglet Win32)

Si vous voulez afficher une seule chaîne de texte à la fois dans la barre d'état, définissez sa propriété SimplePanel par True et utilisez la propriété SimpleText pour contrôler le texte affiché dans la barre d'état.

Vous pouvez aussi diviser une barre d'état en plusieurs zones de texte, appelées volets. Pour créer des volets, modifiez la propriété Panels avec l'inspecteur d'objets et spécifiez les propriétés Width, Alignment et Text de chaque volet à l'aide de l'éditeur de volets. La propriété Text de chaque volet contient le texte affiché dans le volet.

Honnêtement, j'ai commencé à utiliser Delphi depuis peu et je trouve l'explication tout à fait explicite.

[neilbgr]

Simplement :

Code :

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

StatusBar1.SimpleText := 'Ce que tu veux'

ou bien

après avoir créer un certain nombre de panels ( StatusBar1.Panels ) avec (ou sans) l'inspecteur d'objet, tu y accédes comme ceci :

Code :

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

StatusBar1.Panels[i].Text := 'Autre texte...'

[neilbgr]

Je suis en parfaite harmonie avec balu

[zazaraignée]

Mouais, je vois que je dois m'expliquer.

J'ai bien vu l'aide de Delphi. Et j'avais déjà fait comme neilbgr l'a dit.

Avec SimpleText, ça marche impec. Ça a toujours marché d'ailleurs. Là où ça se corse, c'est avec des Panels.

Code :

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

StbMessages.Panels[0].Text := TimeToStr (laChrono);

et il ne se passe rien! Pas d'affichage!

Alors que:

Code :

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

StbMessages.SimpleText := TimeToStr (laChrono);

(sans panels) fonctionne très bien.

La variable laChrono est le résultat de la différence entre laDébut et laFin qui sont initialisées par la fonction GetTime l'une juste avant une boucle et l'autre juste après.

Le but des panels, c'était d'en avoir un pour les messages et le chrono de fin; l'autre pour un progressBar. Je n'ai pas encore testé le progressBar, puisque je n'arrive pas à voir le texte!

[Merlin]

Code :

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

StbMessages.Panels[0].Text := TimeToStr (laChrono);

et il ne se passe rien! Pas d'affichage!

Moi je dirais tout bêtement : tu les as créés au moins les panels ?

[zazaraignée]

B'soir

Moi je dirais tout bêtement : tu les as créés au moins les panels ?

Mvoui!

C'est pas la seule chose qui ne fonctionne pas bien... J'ai Borland Delphi 7 sous Win98. Faut p't'être que j'installe un Patch ?

[balu]

J'ai fait des tests directement et ça fonctionne.

Traces : valeur 2.75 (TDateTime)

Code :

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

1
2
StatusBar1.Panels[0].Text := TimeToStr(2.75);
StatusBar1.Panels[1].Text := 'Message à afficher';

Je dirais de vérifier la valeur de ta variable laChrono.

[zazaraignée]

Salut balu

Je dirais de vérifier la valeur de ta variable laChrono.

Moins d'une minute et parfois moins d'une seconde!

Je vais essayer de mettre cette valeur dans une variable string et d'afficher cette variable.

@+

[zazaraignée]

Non alors là, j'y comprends plus rien!

J'ai passé la journée d'hier et encore aujourd'hui au collège j'ai tripoté mon code en promenant les marques de commentaires... Je vous jure que jusqu'ici, ça ne fonctionnait pas. Et maintenant que je vous ai tous dérangé avec mon problème, ça marche! Je sens que je vais devenir chèvre!

Bê-hê-hê!

Merci. Vous êtes tous bien chouette d'avoir pris le temps de me répondre.

[balu]

Tu devrais mettre la solution finale.

Ça pourra aider les autres qui auraient le même problême.

[zazaraignée]

Le même code que plus haut. C'est bien pour ça que je n'y comprends rien!