Problems on OLE Drag $ Drop on AdvColumnGrid

VCL TMS VCL UI Pack
1

Hello,


i want to rearrange rows using the Drag&Drop feature of AdvColumnGrid.

To archive this i set the following DragDropSettings:
  • OleDropSource := true;
  • OleDropTarget := true;
  • OleEntireRows := true;
  • OleInsertRows := true;
  • OleRemoveRows := true;
And set the goRowSelect in the Options to true. 

This works with the AdvStringString. But not with a ColumnGrid.
If i set the same settings on an AdvColumnGrid, it works once only, sometimes twice, sometimes not at all.
Drag&Drop won't work anymore after using it once or selecting a row, etc.
What do i need to do to archive the same in AdvColumnGrid as in AdvStringGrid?

Greetings


 
2

Was setup here with a default TAdvColumnGrid and with these settings this works fine here:


var
  i: integer;
begin
  advcolumngrid1.Linearfill;

  with advcolumngrid1.DragDropSettings do
  begin
    OleDropSource := true;
    OleDropTarget := true;
    OleEntireRows := true;
    OleInsertRows := true;
    OleRemoveRows := true;
  end;

  advcolumngrid1.Navigation.AllowClipboardAlways := true;

  advcolumngrid1.Options := advcolumngrid1.Options + [goRowSelect];

  for i := 0 to advcolumngrid1.ColCount - 1 do
    AdvColumnGrid1.Columns.ReadOnly := true;
end;