изменение указателя мыши

  • Автор темы sappho
  • Дата начала
S

sappho

#1
Как можно изменить вид указателя формы в зависимости от его положения на форме: если укуазатель выше диагонали (из верхнего правого угла к нижнему левому) он имеет одну форму, если выше - другую.
Как-то надо найти координаты прямой (диагонали). Но как?
По ур-нию прямой у=кх? Там коефициет к=Form1.Height / Form1.Width. Но как это и куда правильно применить?
Вот что придумалось
Код:
Private SUB Form_MouseMove(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
IF Y > (Form1.Height / Form1.WIDTH) * X THEN Form1.MousePointer = 15
IF Y < (Form1.Height / Form1.WIDTH) * X THEN Form1.MousePointer = 11
END SUB
Но с мышкой творятся ужасные вещи - она не меняется правильно.
Что возможно вставить в условие?