34 lines
792 B
ObjectPascal
34 lines
792 B
ObjectPascal
|
{
|
||
|
|
:: X2UtVirtualTree provides a set of functions commonly used with
|
||
|
|
:: TVirtualTree (http://www.delphi-gems.com/).
|
||
|
|
::
|
||
|
|
:: Last changed: $Date$
|
||
|
|
:: Revision: $Rev$
|
||
|
|
:: Author: $Author$
|
||
|
|
}
|
||
|
|
unit X2UtVirtualTree;
|
||
|
|
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
VirtualTrees;
|
||
|
|
|
||
|
|
//:$ Applies the sort order on the specified column
|
||
|
|
//:: When a column is already sorted, the sort order is reversed.
|
||
|
|
procedure SortColumn(const AHeader: TVTHeader;
|
||
|
|
const AColumn: TColumnIndex);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
procedure SortColumn;
|
||
|
|
begin
|
||
|
|
with AHeader do
|
||
|
|
if SortColumn = AColumn then
|
||
|
|
SortDirection := TSortDirection(1 - Integer(SortDirection))
|
||
|
|
else begin
|
||
|
|
SortColumn := AColumn;
|
||
|
|
SortDirection := sdAscending;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|