Discussion :

[dennler]

Bonjour,
Je suis retraité depuis quelques années ce qui explique que je m'accroche désespérément à mon Delphi 7 pour faire travailler encore un peu mon cerveau.
J'aimerais améliorer mon programme Eject_USB
Composant : ListView1 avec Listview1.CheckBoxes
An démarrage je fais l'inventaire des unités USB à éjecter
Donc aucune ligne n’est sélectionnée
En cliquant sur un CheckBoxes, la coche alternativement ListView1.Items[I].Checked est à true ou false (Bien)
mais la partie de droite n'est pas sélectionnée (j'aimerais améliorer)
En cliquant sur une ligne (caption) la case cochée apparait ou disparait et les lignes sont activées au fur et à mesure (Bien)
Mes questions :
1) Comment faire pour qu'un clic sur une coche entraine automatiquement un fond bleu sur le "caption" ; en fait pour Synchroniser les 2 éléments.
Formulé autrement :
Si le clic se fait sur une coche alors qu'aucune ligne 'caption' n'a encore été sélectionnée il faudrait automatiquement que ligne soit aussi sélectionnée.
2) Eventuellement peut-on neutraliser une coche comme JvxCheckListBox1 (ex. pour le disque dur ou SDD de la machine) je sui obligé de passer par ListView1Click
D'avance merci

[SergioMaster]

Bonjour,

Je suis retraité depuis quelques années, ce qui explique que je m'accroche désespérément à mon Delphi 7 pour faire travailler encore un peu mon cerveau.

l'utilisation de la version 11.3 Community le ferait chauffer à moins que Lazarus pour son côté "fouille dans la mécanique" ne soit une option plus D7.
Cela étant, allant bientôt faire partie du joyeux club des retraités, moi aussi je vais continuer à faire travailler mes neurones (avec un gros avantage que m'apporte mon nouveau titre de MVP l'accès aux nouvelles versions)

J'aimerais améliorer mon programme Eject_USB

Marrant, j'avais bossé sur un sujet semblable il y a des années
(entre 2007 et 2010 avec une assiduité erratique)

Au démarrage je fais l'inventaire des unités USB à éjecter

Je serais intéressé par le comment. "WMI or not WMI that is the question"

Mes questions

Intéressantes, je lance ma machine virtuelle pour satisfaire ma curiosité ....

Alors, je partirai sur les évènements CustomDraw, ce simple code répondrait-il à la question 1 ?

Code :

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

1
2
3
4
5
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
Item.Checked:=Item.Selected;
end;

ici multiselect est actif, mais fonctionne correctement aussi dans le cas contraire (un seul item en bleu)


Cependant, je ne peux plus faire un clic sur une coche, contrairement à ce qui est mis en redéfinition de la question, donc l'instruction Item.Checked:=Item.Selected est incorrecte.

Ceci me semble plus juste sans être sûr d'une correspondance au besoin

Code :

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

1
2
3
if Item.Checked then
    TListView(Sender).Canvas.Brush.Color := clHighlight
  else TListView(Sender).Canvas.Brush.Color := clWindow;

En m'attachant à la question 2, j'ai ma réponse à l'utilisation de WMI, j'ai l'impression que c'est non, car tous les lecteurs (amovibles ou pas serait listé ?)
À mon avis, là encore, il s'agit d'utiliser ce même évènement en dessinant sur le canvas de la ListView selon une valeur de l'item (l'indice état ou l'indice image d'un élément me parait pas mal)
Cela reste un peu plus compliqué mais jouable

nouveau code

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.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var R : Trect;
begin
if Item.Checked then
    TListView(Sender).Canvas.Brush.Color := clHighlight
  else TListView(Sender).Canvas.Brush.Color := clWindow;
if Item.ImageIndex=1 then  // test à voir 
 begin
    r := Item.DisplayRect(drBounds);
    TListView(Sender).Canvas.Brush.Color := clSilver;
    ListView1.Canvas.FillRect(R);
    ListView1.Canvas.TextOut(R.left+18,r.top,Item.Caption);
    defaultdraw:=false;
  end;
end;

et voilà le résultat

améliorable : la zone colorée en argent est trop grande, mais ce n'est qu'une question facultative

[ShaiLeTroll]

Question TCheckListBox existe en D7 ?
Si Oui, il est plus simple à revisiter que la TListView


La propriété RowSelect peut aussi jouer sur le visuel de sélection

Mais la CheckBox et le Selected restent deux choses disjointes en temps normal, on peut sélectionner sans cocher et réciproquement.

A OnCustomDrawItem je lui préfère OnAdvancedCustomDrawSubItem au Stage = cdPrepaint quand il s'agit de la couleur de fond

Sache que tu peux redessiner ce que tu veux, par exemple voir ma fonction TListViewSLTAssistant.DrawItemCheckBox alors j'utilise plus souvent de TDBGrid et donc TDBGridSLTAssistant.DrawCheckBox car je ne voulais pas forcément avoir la case à cocher sur la gauche

Avec un TListView en Report avec SubItems, je me souviens avoir dessiner un check box dans un SubItem, si je retrouve ça

Je dois avoir quelque part un code en TListview OnAdvancedCustomDrawSubItem qui ne requiert pas de redessiner le texte (cela conserver le OwnerDraw à True mais change juste le fond) ...


Cela c'est avec un TDBGrid mais je chercherais la version en TListView ... probablement en C++Builder 6 d'ailleurs qui sera facile à transcrire en D7

[dennler]

Bonjour,
Mr SergioMaster j’aimerais bien vous envoyer mes sources largement inspirées et copiées d’internet (certainement de vous aussi); mais je ne sais pas faire (je n’ai pas réussi en pièces jointes)
La solution avec .ListView1CustomDrawItem me donne pas entièrement satisfaction

[dennler]

Bonjour,
Je n’ai pas encore tout étudié mais avec OnAdvancedCustomDrawSubItem tout semble fonctionner, super.
Merci

[SergioMaster]

Généralement, il y a le bouton pièce jointe (à droite du bouton Smiley) qui accepte les zips.
ouvrant une fenêtre

cliquer sur ajouter des fichiers

puis envoyer
Il reste ensuite l'étape inserrer directement qui devrait finir le job


Seulement, il faut peut-être un certainement un statut membre (nombre de points)
Sinon la solution copier/coller dans un bloc code (bouton #) ça fonctionne pas mal

[dennler]

Bonjour,
A priori je préfère un TlistView à un TCheckListBox car j’ai sur une même ligne :
- Checkbox
- Une icône pour représenter l’unité
- Un texte avec l’unité et le nom ……