[ListView] Problème d'AutoSize

Bonjour,

Je me susi créer une objet qui hérite de tlistvieuw, le problème est l'autosize ne semble pas fonctionner, auriez vous une idée
voici un morceur de code pour le create

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
      Create(Aowner);
      FtriInfo.X := -2; // car de -1 à n, il s'agit des colonnes du ListView (-1 : colonne image)
      FtriInfo.Y := 1;
      Parent := lParent;
      Align := alClient;
      SetEnumProp(self,'SortType','stData');
      // Détournement de ColumnClick
      oldColumnClick := GetMethodProp(self,'OnColumnClick');
      m.Data := self;
      m.Code := self.MethodAddress('newColumnClick');
      SetMethodProp(self,'OnColumnClick',m);
      autosize := true;
      OnAdvancedCustomDrawSubItem:= DrawSubItem;
      //OnCustomDrawSubItem := DrawSubItem;

ideme pour le colonne du listeview

Code:

1
2
3
4
5
6
7
8
9
10
11
 
NewColumn: TListColumn;
i:integer;
begin
    for I := 1 to FColnbre do
    begin
      NewColumn := Columns.Add;
      NewColumn.Caption := FEntete[I];
      NewColumn.AutoSize := true;
      NewColumn.Alignment := taLeftJustify;
    end;

merci de votre aide
Cordialement
Qays