解决了datatree的‘死节点’问题

//问题描述见 howto 一文，代码最终版本见下文

//标红色部分为解决问题的关键

//标蓝色部分为datatree所要求的，即前文提供的解决方案，但并不奏效

procedure TScriptProperty.DataTreeDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
pnode2: PAdminNode;
data: PInt;
Node2: PVirtualNode;
sql: string;

changeList: TStringList;
FocusNode: PVirtualNode;
TargetNode: PVirtualNode;
Temp:PVirtualNode;
i: Integer;
left,right,targe:Integer;
begin
Effect := DROPEFFECT_NONE;
if (Source is TBaseVirtualTree) then
begin
Node2 := (Source as TBaseVirtualTree).GetFirstSelected;
data := (Source as TBaseVirtualTree).GetNodeData(Node2);
pnode2 := Pointer(data^);

FocusNode := Sender.GetFirstSelected;
TargetNode := Sender.DropTargetNode;

left :=LeftBracketIndex(FocusNode);
right:=RightBracketIndex(FocusNode);
if TargetNode <> nil then
targe := TargetNode.Index
else
targe := -1;
if (Source as TBaseVirtualTree).Name = ''''DataTree'''' then
begin
if DataTree.DropTargetNode = nil then Exit;
if DataTree.DropTargetNode.Index = 0 then Exit;
changeList := TStringList.Create;

DataTree.BeginUpdate;

//块拖动问题

if (left<>0) and (right<>0)and (left<>LeftBracketIndex(TargetNode))and (right <>RightBracketIndex (TargetNode)) then //后两个条件解决了同一块类不能移动的问题
begin
if right< targe then
begin
if (LeftStr(stringlist.Strings[targe],5)=''''While'''') or (LeftStr(stringlist.Strings[targe],3)=''''for'''') then
Exit;
for i:=right 1 to targe do
changeList.Add(stringlist.Strings[i]);
for i:=left-1 to right do
changeList.Add(stringlist.Strings[i]);
for i:=left-1 to targe do
stringlist.Strings[i]:= changeList.Strings[i-left 1];
end;

if (left-1)> targe then
begin
if (stringlist.Strings[targe]=''''{'''') then
exit;
for i:=left-1 to right do
changeList.Add(stringlist.Strings[i]);
for i:=targe to left-2 do
changeList.Add(stringlist.Strings[i]);
for i:=targe to right do
stringlist.Strings[i]:= changeList.Strings[i-targe];
end;
end
else
begin
if FocusNode.Index > TargetNode.Index then
begin
if (stringlist.Strings[TargetNode.Index]=''''{'''') then
exit;
changeList.Add(stringlist.Strings[FocusNode.index]);
for i:=TargetNode.Index to FocusNode.Index-1 do
changeList.Add(stringlist.Strings[i]);
for i:=TargetNode.Index to FocusNode.Index do
stringlist.Strings[i]:= changeList.Strings[i-TargetNode.Index];
end;

//行拖动问题

if FocusNode.Index < TargetNode.Index then
begin
if (LeftStr(stringlist.Strings[TargetNode.Index],5)=''''While'''') or (LeftStr(stringlist.Strings[TargetNode.Index],3)=''''for'''') then
Exit;
for i:=FocusNode.Index 1 to targetnode.Index do
changeList.add(stringlist.Strings[i]);
changeList.Add(stringlist.Strings[FocusNode.index]);
for i:=FocusNode.Index to TargetNode.Index do
stringlist.Strings[i]:= changeList.Strings[i-FocusNode.Index];
end;
end;
changeList.Free;
DataTree.EndUpdate;
DataTree.Clear; //只加了这行代码就解决了！原理：重画了整个树，就不存在width cach的问题了
self.DataTree.RootNodeCount:=stringlist.Count;
DataTree.Refresh;
Exit;
end
else if pnode2.typename = ''''MobileUserAgent'''' then
begin
if targe > 0 then
stringlist.Insert(targe, CreateUserAgentCode(pnode2.data))
else
stringlist.Append(CreateUserAgentCode(pnode2.data));
self.DataTree.RootNodeCount:=stringlist.Count;
DataTree.Refresh;
Exit;
end

//脚本拖动问题
else
begin
if application.MessageBox(''''Are you sure to replace current script?'''', ''''Message'''', MB_OKCANCEL) = IDCancel then
exit;

sql := ''''Select texts from systemobjects where itemid='''''''''''' pnode2.id '''''''''''''''';
currentdatabase.ExeuteSQlQurey(pnode2, sql, @GetScriptFromDB);

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有