Discussion :

[Sergio29]

Slt,

J'essaie en vain de trouver une manière de réaliser cela...mais je sèche complètement. Soit, j'ai l'item entier qui est en gras, soit rien du tout. Or je voudrais qu'une seule partie du texte de mon item. Quelqu'un aurait-il une idée ou une piste à me soumettre ?

Merci.

[Jipété]

Salut !

Il n'y a que 2 possibilités, àmha :

• soit plaquer un Richedit qui s'affichera devant ton item ;
• soit tout dessiner à la mano (OnDraw qqchse, TextOut... j'ai pas Delphi ouvert).

Mes 2 cts,
--
jp

[Sunchaser]

Bonsoir,
Peut être qqchose comme :

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 TForm2.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  S : string;
  Text : string;
  t : Integer;
begin
  t := Length(ListBox1.Items[Index]) - 1;
  S := AnsiLeftStr(ListBox1.Items[Index], 1);
  Text := AnsiRightStr(ListBox1.Items[Index], t);
  //
  ListBox1.Canvas.Font.Style := [fsBold];
  ListBox1.Canvas.TextOut(0, Rect.Top, S);
  ListBox1.Canvas.Font.Style := [];
  ListBox1.Canvas.TextOut(8, Rect.Top, Text);
end;

Agit sur la première lettre, mais surement possible d'affiner, evidemment ...

En espérant t'aider,
@ +