Discussion :

[Ardely]

Bonsoir,
Je n'arrive pas à trouver une manière à retirer le Focused d'un ListView en cliquant sur la zone..
voici ce que j'ai fait au debut:

Code :

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

1
2
 
Item.Focused := False;

Ceci fonctionne, mais en cliquant sur la ligne elle devient selectionner puis si on déclique de la souris
la ligne blueâtre disparais. Mon problème est que je ne veut pas que cette ligne s'affiche quand on clique
avec la souris sur la zone.

En cherchant j'ai fait des test de cette manière

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFrame.ListView1CustomDrawItem(
  Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
 
var
  focusrect : Trect;
..
 
ToFrame1.ListView1.OwnerDraw := True;
Sender.Canvas.DrawFocusRect(focusrect);

J'ai fais ceci à partir d'un example que j'ai trouver
mais je ne sais pas quoi mettre entre les parentèses du DrawFocusRect!!
(La compilation ce fait sans faute mais au clique la ligne selection apparait toujours)
A vrais dire je n'ai pas bien compris comment redessiner ce rectangle....
Merci pour l'aides
Salutations
Ardely

[Sunchaser]

A vrais dire je n'ai pas bien compris comment redessiner ce rectangle....

Bonsoir,

Essaies pour le DrawFocusRect:

Code :

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

1
2
 
ListView1.Canvas.ClipRect

a la place de focusrect

En espérant t'aider,
@ +

[Ardely]

Bonsoir,
Je viens d'essayé mais ce rectangle bleuté est toujours active si je clique sur
la liste. Merci pour l'info.

[Sunchaser]

Bonsoir,

Effectivement, je n'avais pas saisi si tu avais besoin de la faire apparaître ou pas.
Si tu passes la valeur OwnerDraw a true de ton ListView dans l'inspecteur d'objet, il te faut alors gerer tout le dessin des éléments dans l'objet.
Donc si tu n'indiques rien de particulier lorsque l'utilisateur selectionne une ligne, par ex lors d'un test du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm2::ListView1CustomDrawItem(TCustomListView *Sender,
	  TListItem *Item, TCustomDrawState State, bool &DefaultDraw)
{
//etc, etc ...
if (State.Contains(cdsSelected))
{
//bla, bla...
}
}

alors il n'y a pas de raison pour que le 'FocusRect' apparaisse ...

(désolé, c'est du code de C++Builder, mais l'idée reste la même)

[ShaiLeTroll]

ou tout simplement

Code :

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

1
2
3
4
procedure TFrmTestDivers.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
begin
  ListView_SetItemState(ListView1.Handle, Item.Index, 0, LVIS_SELECTED); // Renvoie un Booleen ...
end;

ajoute "CommCtrl" dans tes uses ...

[Ardely]

Bonjours,
Peut-tu m'expliquer 'ListView_SetItemState' et l'identificateur 'LVIS_SELECTE'
Merci

[Ardely]

Est-ce possible comme mentionner au début:

Code :

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

1
2
 
Sender.Canvas.DrawFocusRect(focusrect);

ou tout Simplement de changer la couleur de Blue et Blanc

Code :

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

1
2
 
Sender.Canvas.Brush.Color := clWhite

Salutations

[Ardely]

Tu sais,.. je viens de tester la procedure de 'ShaiLeTroll' a vrais dire j'ai été un peut trop vite en oubliant 'CommCtrl' dans les uses. sorry
Merci et bon Weekend
Salutations