so, jetzt hab ich meine ListView in den VirtualMode umgestellt. Alles geht wieder, nur mit einem hab ich noch ein Problem.
Mein Drag N´Drop von früher geht ja jetzt auch nicht mehr und ich bin grad am grübeln wie ich das jetzt mit der VirtualMode
Listview mache.
Bisher machte ich es so...
Delphi-Quellcode:
procedure TfDLMain.ListViewDragDrop(Sender, Source: TObject; X, Y: Integer);
var
DragItem, DropItem, CurrentItem, NextItem: TListItem;
begin
if Sender = Source then
with TListView(Sender) do begin
DropItem := GetItemAt(X, Y);
CurrentItem := Selected;
while CurrentItem <> nil do begin
NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]);
if DropItem = nil then DragItem := Items.Add
else
DragItem := Items.Insert(DropItem.Index);
DragItem.Assign(CurrentItem);
CurrentItem.Free;
CurrentItem := NextItem;
end;
end;
end;
//**********************************************************************************************************************
procedure TfDLMain.ListViewDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender = ListView;
end;
jetzt frage ich mich wie ich das jetzt machen kann. Hat da jemand ne Idee?
Ich hab eine Values : TStringlist wie in dem Demo vom Marabu.
Gruß Ruben