Привет всем!
Вот у меня такой вопрос!
Вычетал где-то здесь на форуме, что для того,
чтобы у грида вид курсора мыши был более или
менее похож на стрелочку надо поверх GRID-а
посодить объект SHAP.
Так вот вопрос: а как пробить клики, дбл-клики мышой
по этому шэйпу на сам GRID?

За любые соображения зараннее благодарен!

Shape.zorder(1)

Я немножко не так объяснил.
Вся суть в том, что SHAP-е должен находиться над гридом,
Имея настройку свойства BackStyle=0 (Transparent)
Shape становится прозрачным, через него виден грид!
И вид курсора мыши стал человеческим!
Но ессно все клики мыши через него не проходят,
а хотелось-бы.....

Простое, но кривовато работающее решение (для VFP6.0):
Изначально Shape.Visible=.T. и лежит он перед гридом (не покрываются только линейки прокрутки).

В Shape1.Click() пишешь:
*************
local nXCoord, nYCoord

nXCoord = MCOL(ThisForm.Name,3)
nYCoord = MROW(ThisForm.Name,3)

This.Visible = .F.
mouse click at nYCoord,nXCoord pixels window (ThisForm.Name)
*************

В Grid1.AfterRowColChange() пишешь:
*************
ThisForm.Shape1.Visible = .T.
*************

И все.

Недостатки:
Чтобы работало мышиное колесо на гриде, надо в Shape1.MouseWheel() нарисовать This.Visible=.F.
Но в этом случае курсор в черту превращается

То же самое будет, если щелкнуть два раза на одной и той же ячейке грида
(событие AfterRowColChange не срабатывает и Shape остается невидим до клика на другой ячейке.

Впрочем все это можно решить.
Может быть кто-то предложит более правильное решение.


Павел,
г.Тольятти

OK!
Павел! понял!
Буду терзать!
Спасиб!