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
ideme pour le colonne du listeview
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 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;
merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Cordialement
Qays
Partager