Discussion :

[Pedro]

Salut à tous
J'ai un petit souci avec une TCoolBand (onglet Win32).
Je crée d'abord une bande qui contient le menu et qui prend toute la largeur de la TCoolBand (MinWidth au maximum et Break à true).
Ensuite, dynamiquement, je crée 2 nouvelles ToolBar avec des boutons dessus à partir d'un fichier XML.
Sur chacune de ces barres, je mets Break à false et je règle MinWidth de façon à ce qu'aucun des boutons ne disparaisse pas lorsqu'on les déplace.
Ces 2 barres se créent correctement mais il y a un problème:
la première barre se crée bien sur la seconde ligne. La seconde se crée aussi sur la seconde ligne mais complètement à droite... Or je voudrais qu'elles soient cote à cote à gauche.
En image, voila ce que j'ai et voila ce que je voudrais.
J'ai eu beau essayer de spécifier la propriété Width de chaque Toolbar à MinWidth mais rien n'y fait et lorsque je mets FixedWidth à ces 2 barres, mon prog freeze dès son démarrage
Quelqu'un connaitrait-il une méthode pour faire cela?
Merci d'avance

[aityahia]

j'ai pas delphi sous la main mais je pense que les barre d'outils ont la propréité autosize essai de la mettre a true.

[TicTacToe]

Salut Pedro

J'ai jamais utilisé les CoolBar.
Par contre, je viens de tester et voila ce que j'ai constaté:

1er code: qui donne exactement ton 1er cas:

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
16
17
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   cb1, cb2, cb3 : TCoolBand;
begin
     cb1 := TCoolBand.Create( CoolBar1.Bands );
     cb1.Text := 'cb1';
 
     cb2 := TCoolBand.Create( CoolBar1.Bands );
     cb2.Text := 'cb2';
     cb2.MinWidth := 50;
     cb2.Width := cb2.MinWidth;
     cb2.Break := True;
 
     cb3 := TCoolBand.Create( CoolBar1.Bands );
     cb3.Text := 'cb3';
     cb3.Break := False;
end;

Et 2eme code, qui donne ton 2eme cas (celui que tu veux)

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
16
17
18
19
procedure TForm1.BitBtn1Click(Sender: TObject);
var
   cb1, cb2, cb3 : TCoolBand;
begin
     cb1 := TCoolBand.Create( CoolBar1.Bands );
     cb1.Text := 'cb1';

     cb2 := TCoolBand.Create( CoolBar1.Bands );
     cb2.Text := 'cb2';
     cb2.MinWidth := 50;
     //cb2.Width := cb2.MinWidth; // en commentaire
     cb2.Break := True;

     cb3 := TCoolBand.Create( CoolBar1.Bands );
     cb3.Text := 'cb3';
     cb3.Break := False;

     cb2.Width := cb2.MinWidth; // placé après la création de cb3...
end;

Je sais pas si ca peut etre ca... ?

[Pedro]

Merci à vous 2
Mais du coup j'ai utilisé ToolBar2000... Leur ToolBar est vraiment excellente.
Mais je garde vos suggestions sous la main