1. Index: addresslist.pas
  2. ===================================================================
  3. --- addresslist.pas (wersja 1485)
  4. +++ addresslist.pas (kopia robocza)
  5. @@ -44,6 +44,8 @@
  6. valuetypesortdirection: boolean;
  7. valuesortdirection: boolean;
  9. + bDragAndDropEnabled: boolean;
  10. + bSortingEnabled: boolean;
  13. function getTreeNodes: TTreenodes;
  14. @@ -78,6 +80,8 @@
  15. function getPopupMenu: TPopupMenu;
  16. function getSelectedRecord: TMemoryRecord;
  17. procedure setSelectedRecord(memrec: TMemoryrecord);
  18. + procedure setDragAndDropEnabled(enabled: boolean);
  19. + procedure setSortingEnabled(enabled: boolean);
  21. function CheatTableNodeHasOnlyAutoAssemblerScripts(CheatTable: TDOMNode): boolean; //helperfunction
  23. @@ -143,6 +147,8 @@
  24. property Count: Integer read GetCount;
  25. property SelCount: Integer read GetSelCount;
  26. property selectedRecord: TMemoryRecord read getSelectedRecord write setSelectedRecord;
  27. + property DragAndDropEnabled: boolean read bDragAndDropEnabled write setDragAndDropEnabled;
  28. + property SortingEnabled: boolean read bSortingEnabled write setSortingEnabled;
  29. end;
  31. implementation
  32. @@ -252,6 +258,32 @@
  33. memrecitems[i].isSelected:=false;
  34. end;
  36. +procedure TAddresslist.setDragAndDropEnabled(enabled: boolean);
  37. +begin
  38. + bDragAndDropEnabled:=enabled;
  39. + if enabled then
  40. + begin
  41. + treeview.OnDragOver:=DragOver;
  42. + treeview.OnDragDrop:=DragDrop;
  43. + treeview.OnEndDrag:=DragEnd;
  44. + end
  45. + else
  46. + begin
  47. + treeview.OnDragOver:=nil;
  48. + treeview.OnDragDrop:=nil;
  49. + treeview.OnEndDrag:=nil;
  50. + end;
  51. +end;
  52. +
  53. +procedure TAddresslist.setSortingEnabled(enabled: boolean);
  54. +begin
  55. + bSortingEnabled:=enabled;
  56. + if enabled then
  57. + header.OnSectionClick:=SectionClick
  58. + else
  59. + header.OnSectionClick:=nil;
  60. +end;
  61. +
  62. function TAddresslist.getSelectedRecord: TMemoryRecord;
  63. var i: integer;
  64. begin
  65. @@ -1696,6 +1728,9 @@
  67. treeview.parent:=self;
  69. + name:='AddressListTreeview';
  70. + bDragAndDropEnabled:=true;
  71. + bSortingEnabled:=true;
  74. header:=THeaderControl.Create(self);