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

[Alpha7]

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

PS Sorry za translit

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

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

[volvo]

Не знаю, правильно я тебя понял или нет:

var
  i: integer; b: boolean;
const
  f = 0.2; { это - твоя константа }
  count = trunc(1/f); { это будет число маленьких засечек ... }
  { ... которые будут отрисованы по обе стороны от засечки большой }

begin
  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);
    //*********************//
    with paintbox1.Canvas do
      for b := false to true do
        for i := 1 to count-1 do begin
          MoveTo(width div 2-(1 - 2*byte( B ))*i*(width div (2*count)), Height div 2 + Height div 4);
          LineTo(width div 2-(1 - 2*byte( B ))*i*(width div (2*count)), Height div 2);
        end;
  end
  else ...

Кстати, я не совсем понял условие

if ((tag=0) and (tag<>1)) then begin

если Tag = 0, он в любом случае <> 1