pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Readd support for hidden nodes and new header click event removed in 4.8 branch

Browse Source 
* Update demos

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2789 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2013-09-07 21:50:00 +00:00
parent d67d6d0a63
commit 6760f1a5bc
16 changed files with 526 additions and 337 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
components/virtualtreeview-new/trunk/demos/dataarray/Main.pas
View File

@ -115,8 +115,7 @@ type
procedure Button1Click(Sender: TObject);
procedure MyTreeCompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
procedure MyTreeHeaderClick(Sender: TVTHeader; Column: TColumnIndex;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MyTreeHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
procedure btnDeleteClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure MyTreePaintText(Sender: TBaseVirtualTree;
@ -240,8 +239,7 @@ begin
end
end;
procedure TForm1.MyTreeHeaderClick(Sender: TVTHeader; Column: TColumnIndex;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure TForm1.MyTreeHeaderClick(Sender: TVTHeader; HitInfo: TVTHeaderHitInfo);
var
Direction : TSortDirection;
begin
@ -251,27 +249,30 @@ begin
// MyTree.Header.SortDirection and MyTree.Header.SortColumn
// to get automatically Descending/Ascending sorting
// by only clicking on header
if ssShift in Shift
then
Direction := sdDescending
else
Direction := sdAscending;
// Sort all columns except the second
if Column<>1 then
with HitInfo do
begin
// Set direction image on the sorted column
MyTree.Header.SortColumn := Column;
if ssShift in Shift
then
Direction := sdDescending
else
Direction := sdAscending;
// Set the right direction image
MyTree.Header.SortDirection := Direction;
// Sort all columns except the second
if Column<>1 then
begin
// Set direction image on the sorted column
MyTree.Header.SortColumn := Column;
// Sorting process
MyTree.SortTree(Column, Direction);
end
// Set the right direction image
MyTree.Header.SortDirection := Direction;
// Sorting process
MyTree.SortTree(Column, Direction);
end;
end;
end;
procedure TForm1.btnDeleteClick(Sender: TObject);
var
Timer: cardinal;