1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
function TfrmMain.SortItemsText(Left, Right: TFMXObject): Integer;
begin
Result := CompareText((Left as TTreeViewItem).Text, (Right as TTreeViewItem).Text);
end;
/////////////////////////////////////////////////////////////////
procedure TfrmMain.btnTrieClick(Sender: TObject);
begin
TreeArbo.BeginUpdate;
try
TreeArbo.Sort(SortItemsText);
//TreeArbo.Canvas.BeginScene;
//TreeArbo.Canvas.Clear(0);
//TreeArbo.Canvas.EndScene;
// TreeArbo.RealignContent;
//TreeArbo.InvalidateRect(RectF(0,0,TreeArbo.Width, TreeArbo.Height));
//Self.Invalidate;
finally
TreeArbo.EndUpdate;
end;
// Application.ProcessMessages;
// Application.HandleMessage;
end; |
Partager