Discussion :

[crassetph]

Bonjour

Première question : mode WordWrap d'un statusbar

EN BREF


Est-il possible d'utiliser la propriété wordwrap d'un status bar comme celle d'un label - comme le montre le code ci dessous ? (code associétà un menuitm wordwrap1 créé our l'occasion)


EN DETAIL

Ai utilisé un statusbarpour afficher mes alertes, et mes Hint (partie 2 - après
le caractère pipe) en automatique.. et cela marche super...
Le Hic c'est que je ne dispose que de 255 charactères ...

Afin de pouvoir gérer les retours chariots je compte utiliser la propriété wordwrap. Je l'ai testé avec un Label et cela fonctionne... cfr code

Si je remplace dans le code label1 par statusba1, une erreur survient : worwrap non déclaré... cela signifie que je ne peux pas utiliser la propriété wordwrap du stsbar ? Vrai ? ou qu'elle n'existe pas ? ou je dois ajouter le mot panel ??

Puis-je créer un composant dérivé avec une propriété additionnelle? Est-ce LA bonne méthode ou y a t'il plus simple ?
Suis loin d'être expert et ne sais pas créer un composant hérité avec propriété ou méthode nouvelle. Si c'est LA solution merci de m'orienter ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TEcran01.WordWrap1Click(Sender: TObject);
begin
if WordWrap1.Checked = false then
	begin
		WordWrap1.Checked := True;
		Label1.WordWrap := True;
    StsBarEcran01.Panels.WordWrap := True;
	end
	else begin
		WordWrap1.Checked := False;
    Label1.WordWrap := False;
	end;
end;

Seconde question :comment colorer différemment le statusbar.. ? je n'ai d'effet que sur son contour avec la prop color .

Merci

[Andnotor]

Mets le Style du StatusPanel qui t'intéresse à psOwnerDraw.
Ensuite depuis OnDrawPanel du StatusBar, tu peux repeindre comme tu le désires. Utilises DrawText pour écrire en WordWrap (DT_WORDBREAK).

Mais tu peux aussi docker un contrôle dans un StatusPanel. Ton TLabel par exemple.

1. Dans OnCreate de la fiche, fixes la StatusBar comme parent du label.
2. Mets le Style du StatusPanel qui t'intéresse à psOwnerDraw.
3. Dans OnDrawPanel, fixes les dimensions du label à celle du rect proposé.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Create(Sender :TObject);
begin
  Label1.Parent := StatusBar1;
end;
 
procedure TForm1.StatusBar1DrawPanel(StatusBar :TStatusBar;
 Panel :TStatusPanel; const Rect :TRect);
begin
  Label1.BoundsRect := Rect;
end;

(La démo ci-dessus trouve surtout tout son intérêt lorsque l'on veut docker une bar de progression dans la barre de status )

[crassetph]

Mets le Style du StatusPanel qui t'intéresse à psOwnerDraw.
Ensuite depuis OnDrawPanel du StatusBar, tu peux repeindre comme tu le désires. Utilises DrawText pour écrire en WordWrap (DT_WORDBREAK).
Mais tu peux aussi docker un contrôle dans un StatusPanel. Ton TLabel par exemple.

1. Dans OnCreate de la fiche, fixes la StatusBar comme parent du label.
2. Mets le Style du StatusPanel qui t'intéresse à psOwnerDraw.
3. Dans OnDrawPanel, fixes les dimensions du label à celle du rect proposé.

Merci

Je bloque sur
A) Mets le Style du StatusPanel qui t'intéresse à psOwnerDraw.
MonStatusPanel.Style.=psOwnereDraw ... ne fct pas
B) Utilises DrawText pour écrire en WordWrap (DT_WORDBREAK).
instruction ??

Merci

[Andnotor]

Dans les propriétés de la StatusBar, double-cliques sur Panels.
Ajoutes au minimum un StatusPanel.
Sélectionnes-le et mets sa propriété Style à psOwnerDraw.

Ensuite dans l'événement OnDrawPanel de la StatusBar:

Code :

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

1
2
3
4
5
6
7
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var
  R :TRect;
begin
  R := Rect;
  DrawText(StatusBar.Canvas.Handle, 'Ligne 1'#13#10'Ligne 2', -1, R, DT_WORDBREAK);
end;