Discussion :

[remixtech]

Bonjour,

Est il possible de connaitre en direct lors d'un redimensionement la taille d'une colonne d'une listview ?

Car en faite je veux intégrer des progressbars dans les listviews ...
et j'aimerai qu'elles suivent en direct le redimensionement...

Voila mon 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.FormCreate(Sender: TObject);
var itm: tlistitem;
  i: integer;
  pb: TProgressBar;
  r: TRect;
begin
 
  for i := 0 to 6 do begin
    itm := threads.Items.Add;
    itm.Caption := inttostr(i);
    itm.ImageIndex := 0;
    itm.SubItems.Add(timetostr(now) + ' : En attente ...');
    itm.SubItems.Add('');
    randomize();
    itm.SubItems.Add('0 Ko/sec');
 
 
    r := threads.Items[i].DisplayRect(drBounds);
 
    pb := TProgressBar.Create(Self);
    pb.Parent := threads;
 
    pb.Position := Random(pb.Max);
 
    threads.Items[i].Data := pb;
    AdjustProgressBar(threads.Items[i], r);
  end;
 
 
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.AdjustProgressBar(item: TListItem; r: TRect);
var
  pb: TProgressBar;
begin
     r.Left := r.Left + threads.columns[0].Width+ threads.columns[1].Width;
  r.Right := r.Left + threads.columns[2].Width;
 
  pb := item.Data;
  pb.BoundsRect := r;
end;

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
procedure TForm1.threadsCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  r: TRect;
  pb: TProgressBar;
begin
  r := Item.DisplayRect(drBounds);
 
  pb := item.data;
  pb.Top := item.Top;
 
  if pb.Top < 10 then pb.Visible := false else pb.visible :=true;
 //   AdjustProgressBar(Item, r);
 
end;

A noter

Code :

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

threads.Column[2].Width

ne donne pas en direct le redimensionnement..

Ou alors comment empecher le redimensionnement ?

Merci d'avance

[remixtech]

Bonjour,

Je voudrais dessiner dans une tlistview une barre de progression ( un dégradé en faite )

Un rectangle dégradé qui irait dans la colonne 3
de la gauche vers la droite....

Mais déssiner dans une tlistview est une tache très compliqué
tout par en vrille

Vous avez une idée comment je peux créer des ptites images indiquant la progression ? pour chaque item d'une tlistview ...
Dans une colonne ...

Merci

Comment faire tout simplement cela :



Merci d'avance, car la je cherche depuis deux heures sans succès mais bon je suis pas un pro du dessin ...

[remixtech]

c'est trop dur ....

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
18
19
procedure TForm1.threadsCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var r: TRect;
begin
 
  r.Left := 267;
  r.Right := 405;
  r.Top := 10;
  r.Bottom := 4;
  memo1.Lines.Add('qqch : ' + inttostr(item.Top));
  sender.Canvas.Pen.Width := 1;
  sender.Canvas.Pen.Color := clwhite;
  sender.Canvas.Brush.color := $00F0F0F0;
  sender.Canvas.Brush.Style := bssolid;
  sender.Canvas.rectangle(r);
  sender.Canvas.Brush.color := clwhite;
  defaultdraw := true;
 
end;

Mais je ne sais ps comment définir top et bottom pour que ca fonctionne

merci d'avance ...

[Sub0]

Le plus simple pour créer une barre de progression est de dessiner préalablement le BMP de la barre complète (à 100%).
Ensuite, tu charges ce BMP dans une TImage.
Tu définis la taille de ce TImage comme ceci :
Image1.Width := Image1.Picture.Bitmap.Width;
Image1.Height := Image1.Picture.Bitmap.Height;
Maintenant, en définissant la propriété Width de ce TImage, tu auras un effet de ProgressBar. Simple, non ?
Voilà à présent, tu n'as plus qu'à poser cette TImage où tu veux.

Pour définir la position de cette barre avec un pourcentage :

Code :

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

1
2
3
4
Var
  Position: Integer; // Ira de 0 à 100...
...
Image1.Width := Round(Image1.Picture.Bitmap.Width / 100 * Position);

Et inversement, pour obtenir le pourcentage à partir de la largeur de l'image :

Code :

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

Position := Round(Image1.Width / Image1.Picture.Bitmap.Width * 100);

[Sub0]

• Merci de ne pas créer un nouveau topic pour chaque question d'un même sujet!
-> Sujets fusionnés

En ce qui concerne le redimensionnement de ta ListView et pour que la barre de progression soit proportionnelle,
il suffit de remplacer Image1.Picture.Bitmap.Width dans le code ci-dessus par la largeur de la colonne.

Logiquement, il conviendra de dessiner au départ un BMP suffisemment large pour obtenir le redimensionnement maximal.

Notes:
• Tu peux également dessiner directement dans le TImage avec FillRect...
• Ne pas oublier le Refresh du TImage pour actualiser l'affichage...

à+

[remixtech]

Voila j'ai avancé mais j'ai un probleme
la colonne après la barre de progression affiche en gras ...
Mais pourquoi ???

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
18
var T, L: integer;
  UnRect: TRect;
 
  procedure Dessinerbarre(const x, y: integer; const b: boolean);
  begin
    Sender.Canvas.Draw(L, T, progress.Picture.Graphic)
  end;
 
begin
  DefaultDraw := true;
  ListView_GetItemRect(Sender.Handle, Item.Index, UnRect, 0);
 
  if (SubItem = 1) then begin
    DefaultDraw := false;
    T := UnRect.Top;
    L := ListView_GetColumnWidth(Sender.Handle, 0);
    dessinerbarre(1, 1, true);
  end;

Merci de ton aide sub0

[cpdump]

Jene sais pas si cela peut t'aider, mais voila un article assez complet sur l'utilisation des customdraw dans un listview: http://www.delphidabbler.com/articles.php?article=16

[remixtech]

J'ai deja regardé merci
Mais c'est cette histoire de gras qui me desespere
je cherche...
Merci

[remixtech]

Voila après avoir tout lu ...

Il faut ajouter

Code :

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

    Sender.Canvas.Brush.Color := clwhite;

et

Code :

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

defaultdraw := true ;

Dans tous les customdraw ...

Merci