Zitat von
alcaeus:
Im Moment zeichne ich die Pfeilchen im ColumnClick mit diesem Code:
Mehr kann ich da nicht sagen. Wenn es dir hilft, gibts noch den Source der dir sagt wie ich ueberhaupt in die ColumnClick-Routine komme in der gezeichnet wird:
Delphi-Quellcode:
inherited Create(AOwner);
inherited OnColumnClick := ColumnClick;
inherited OnCompare := Compare;
Aber wie gesagt...im ColumnClick (also beim Klick auf eine Spalte).
Und wenn du den Code auch noch willst, dann bitte:
Delphi-Quellcode:
procedure TSortListView.ColumnClick(Sender: TObject;
Column: TListColumn);
begin
ClearSortImage;
if Assigned(OnColumnClick) then
OnColumnClick(Sender, Column);
FColumnToSort := Column.Index;
if FColumnToSort = FLastSorted then
begin
FSortDir := TSortDir(1-Ord(FSortDir));
end
else
begin
FSortDir := sdAscending;
end;
FLastSorted := FColumnToSort;
(Sender as TCustomListView).AlphaSort;
DrawSortImage;
end;
Der ClearSortImage-Aufruf sorgt nur dafuer, dass das alte Bildchen geloescht wird.
Greetz
alcaeus
[edit]
Zitat von
bernau:
Ich gehe davon aus, das du TSortListView von TListView abgeleitet hast. Oder?
Jup, konnte mich nicht zwischen TListView und TCustomListView entscheiden
[/edit]