Discussion :

[AgriFlash]

Bonjour à tous,

J'ai une question a propos du composant Checklistbox, rien ne vaut mieu qu'un exemple, je voudrai savoir si il est possible de faire ceci :



Vous l'avez compris, je voudrai pouvoir supprimer la "case à cocher" pour y mettre un texte simple et en dessous remettre les cases à cocher. Si cela est possible, merci de me dire comme faire ?

Merci d'avance,
Tom.

[Qwazerty]

SAlut
Je pense pas que se soit faisable comme tu l'entend,pas simplement du moins, par contre tu peux faire comme ca

Code :

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

1
2
 
checklistbox1.ItemEnabled[0] := False;

La case a cocher devient grise et ce n'est plus possible de la cocher.
A++
Qwaz

[ero-sennin]

Salut,

Peux-tu nous expliquer pourquoi tu souhaites faire ce choix afin de voir si on ne peut pas trouver une solution plus adéquate ? Chaque première ligne devra être de cette façon ?

Il y a peut être un moyen en passant par un Canvas.TextOut ... mais bon, je pense pas que ça sera très très pratique surtout lorque de la sélection ...

[Qwazerty]

Re

[Edit]

Il y a peut être un moyen en passant par un Canvas.TextOut ...

+1
[/Edit]
Et si vraiment tu y tiens en faisant comme ca ca fait ce que tu veux, mais attention meme si on ne le vois pas le checkbox existe toujour et on peut le cocher et le decocher en cliquant a son emplacement sous le text

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
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
 
begin
     If Index = 0 then
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left - 13 , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
     end
     else
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
 
     end;
end;

Il faut mettre la propriete style du CheckList a lbOwnerDrawVariable.

A plus
Qwaz

[ero-sennin]

Re

Et si vraiment tu y tiens en faisant comme ca ca fait ce que tu veux, mais attention meme si on ne le vois pas le checkbox existe toujour et on peut le cocher et le decocher en cliquant a son emplacement sous le text

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
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
 
begin
     If Index = 0 then
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left - 13 , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
     end
     else
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
 
     end;
end;

Il faut mettre la propriete style du CheckList a lbOwnerDrawVariable.

A plus
Qwaz

Tout à fait C'est pour celà que je disais que niveau de la sélection, ca va pas être terrible terrible

[Qwazerty]

Re
C'est sur...
Le plus simple serait de faire une list des items devant ne pas avoir de checkbox et d'utiliser cette list dans la methode Onclickchecked pour ne rien faire si l'item coché est dans la liste mais ca reste du bricolage
A++
Qwaz
bonne nuit

[AgriFlash]

Bonjour à tous,

Déjà merci beaucoup pour toutes vos réponses, et en plus très rapidement !

SAlut
Je pense pas que se soit faisable comme tu l'entend,pas simplement du moins, par contre tu peux faire comme ca

Code :

checklistbox1.ItemEnabled[0] := False;La case a cocher devient grise et ce n'est plus possible de la cocher.
A++
Qwaz

C'est une idée, mais cela ne convient pas dans mon cas, surtout pour une question de clarté.

Salut,

Peux-tu nous expliquer pourquoi tu souhaites faire ce choix afin de voir si on ne peut pas trouver une solution plus adéquate ? Chaque première ligne devra être de cette façon ?

Il y a peut être un moyen en passant par un Canvas.TextOut ... mais bon, je pense pas que ça sera très très pratique surtout lorque de la sélection ...

Je souhaite faire ce choix afin de classe mes liste en catégorie, je trouve que ca pourrait être clair, mais c'est peut être pas simple. Est ce qu'il existe un autre composant peut être plus approprié ?

Et si vraiment tu y tiens en faisant comme ca ca fait ce que tu veux, mais attention meme si on ne le vois pas le checkbox existe toujour et on peut le cocher et le decocher en cliquant a son emplacement sous le text

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
procedure TForm1.CheckListBox1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
 
begin
     If Index = 0 then
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left - 13 , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
     end
     else
     begin
          CheckListBox1.Canvas.FillRect(Rect);
          CheckListBox1.Canvas.TextOut(Rect.Left , Rect.Top, (Control as TCheckListBox).Items[Index])  { affiche le texte }
 
     end;
end;

Il faut mettre la propriete style du CheckList a lbOwnerDrawVariable.

A plus
Qwaz

Je vais voir ce que cela donne, mais c'est peut être une bonne idée.

Pensez vous qu'il y a un autre moyen plus simple avec un autre composant ?

En tout cas merci beaucoup de vos réponse, j'essaye ce que Qwazerty à mis.

Agri.

EDIT : J'ai essayer la solution de Qwazerty, et je dois dire que c'est presque parfait ! Ne serait il pas possible de supprimer la case à cocher en dessous du texte ? Ca la lorsqu'on sélectionne le texte, on vois bien que la sélection s'arrête à la bordure droite de la case à coher !
Par contre j'ai un autre question, est ce qu'il est possible d'appliquer cette technique à plusieurs case ?