Mouse..., .. Опции

[Alpha7]

Podskazhite plz kakoj funkciej otslezhivat` dvizhenie mishi ?
zaranee sens.

PS Sorry za translit

Можно же и кнопкой Translit пользоваться...

Сообщение отредактировано: volvo - 7.07.2005 22:58

[Alpha7]

Код

procedure TScaleControl.PaintBox1Paint(Sender: TObject);
 begin
{Otrisovka po OX i po OY}
    PaintBox1.Canvas.Pen.Style:= psSolid;
    PaintBox1.Canvas.Pen.Color := clBlack;
if ((tag=0) and (tag<>1))then
begin
PaintBox1.Canvas.MoveTo(Width div 2, Height div 2);
PaintBox1.Canvas.LineTo(Width div 2, Height);
PaintBox1.Canvas.MoveTo(Width, Height div 2);
PaintBox1.Canvas.LineTo(-Width, Height div 2);
//*********************//
PaintBox1.Canvas.MoveTo(Width div 4, Height div 2 + Height div 4);
PaintBox1.Canvas.LineTo(Width div 4, Height div 2);
PaintBox1.Canvas.MoveTo(Width div 4 + Width div 2, Height div 2 + Height div 4);
PaintBox1.Canvas.LineTo(Width div 2 + Width div 4, Height div 2);
end
else
begin
PaintBox1.Canvas.MoveTo(Width div 2, Height div 2);
PaintBox1.Canvas.LineTo(Width, Height  div 2);
 PaintBox1.Canvas.MoveTo(Width div 2, Height);
PaintBox1.Canvas.LineTo(Width div 2, -Height);
//*********************//
PaintBox1.Canvas.MoveTo(Width div 2 + Width div 4 ,Height div 4);
PaintBox1.Canvas.LineTo(Width div 2, Height div 4);
PaintBox1.Canvas.MoveTo(Width div 4 + Width div 2, Height div 2 + Height div 4);
PaintBox1.Canvas.LineTo(Width div 2, Height div 2 + Height div 4);
 end;

end;

Это код для отрисовки Бара (я пишу компонент с "0") и "перевёртывания" с оси Х на ось У..
Мне нада в него впихнуть кусок отрисовывающий в зависивости от константы засечки на шкале.
Кабы сама ось енто [-1;1], а const дробное число. Скажем данный код рисует горизонтальную линию по середине высоты, линию из центра прямоугольника вниз. + Рисуются две побочные линии. Вот как раз они и соответствуют задаче при const=0,5.
Но они просто нарисованы вне нужного алгоритма...