Manual Initiation of Dragging Column?

VCL TMS VCL UI Pack
1

Hi Bruno,


Is there  a way to manually initiate the Column-Move capabilities?

Here's what I'd like to do. I'd like to be able to select multiple columns with the mouse by clicking on the fixed cells. This can be accomplished "out-of-the-box" using the "MouseOptions -> ColSelect" property. I'd also like to re-order the columns.  This can be accomplished using the "Options -> goColMoving" option. 

However, the two options don't working together. So what I'd like to do is to let the user select multiple columns by default. If the user has "Ctrl" pressed then the grid moves the column.  To do this I'll need to test for the "Ctrl" key (not a problem) when the user click on a fixed cell. I'll then need to manually initiate the Column move. My question is, how do I manually initiate the column move?

Thanks,

Steve
2

Steve, I just moved the post to grids, because it doesn't seem to be FlexCel related, and I don't really know much about AdvGrid.


Regards,
   Adrian.
3

Sorry Adrian - I thought I had put it in Grids, my mistake, thanks for moving!


Steve
4

The built-in column moving feature is column by column. There is unfortunately not a built-in option to move multiple columns in one operation.

5

Sorry Bruno, that's not what I'm wanting to do. Here's a quick video:


http://screencast.com/t/Fub9SMpSQU9

Is this possible?

Thanks,

Steve
6

You could implement OnColumnMove like:


procedure TForm5.AdvStringGrid1ColumnMove(Sender: TObject; ACol: Integer;
  var Allow: Boolean);
begin
  allow := getkeystate(VK_CONTROL) and $8000 = $8000;
end;

7

Thanks Bruno - 


That works, although I don't seem to be able to switch off the Column Select as the Column is moved.  I'll keep trying.

Thanks again,

Steve