Срочно требуется разработка на Delphi

[Ilya]

Срочно требуется разработка на Delphi.  При DragDrop с ТreeView на StringGrid отсутствует скроллинг (прокрутка) к ячейкам, находящимся за пределами таблицы. Написать автоскроллинг, когда мышь находится вблизи края StringGrid. Оплата - 3200 руб.
e-mail: otd45@yandex.ru

[zubr]

Не совсем понятно задание. К каким ячейкам должен быть скроллинг? К примеру, у стринггрида 1000 строк, в области видимости компонента - 20 строк. К каким ячейкам в данном случае должен быть скроллинг?

[Ilya]

DragDrop проводится с ТreeView на столбец  StringGrid , находящийся за пределами видимой части таблицы.
В рамках видимых столбцов таблицы перенос проводится без проблем. Так же нормально проводится перенос значений
между столбцами самой таблицы (скроллинг работает). Проблема возникает при переносе с  ТreeView на столбец  StringGrid
находящийся за пределами видимой части (скроллинг не работает).

Добавлено через 16 минут и 54 секунды:
На мой взгляд, надо отследить перемещение мыши к границе области видимости  StringGrid, далее, осуществить переход на следующий столбец (ы), которые располагаются за пределами видимой части таблицы.
 

[Dimka]

zubr, плавно крутить под мышью, пока не покажутся нужные. Если строк много, предусмотреть 2 варианта скорости. Так в общем-то много где сделано: хоть в том же Excel.

[Ilya]

В том и дело, что при  приближении к границе таблицы автоскролл не проводится, т.е. автоматически не осуществляется скроллирование и
переход к новому столбцу, который находится за границей видимой части таблицы! Надо предварительно, до переноса,
 вручную передвигать ползунок для показа нужного столбца и только после этого осуществлять перенос.
Препод подсказал, что надо используя таймер, отследить перемещение мыши к концу таблицы и далее проводить переход на новый столбец.
DragDrop проводится с компонента TreeView на StringGrid. Прошу помочь за вознаграждение.






Добавлено через 11 минут:
Дополнительно:
В процедуре StringGrid1DragDrop:
StringGrid1.MouseToCell(x,y,Acol,Arow);
StringGrid1.Cells[Acol,1] := TreeView1.Selected.text;  //Значение TreeView1присваиваем ячейке столбца

В процедуре StringGrid1DragOver:
Accept := (Source = TreeView1 ) or (Source = StringGrid1)

[zubr]

Так?

[Ilya]

Уважаемый zubr, все правильно, именно так. Буду очень признателен за код и как вам передать вознаграждение за работу?

[zubr]

Отписал в личку.