Svenska ElektronikForumet

Kod: Markera allt

buggig kod bortagen

Kod: Markera allt

const
  WHEEL_LEFT    = 70;
  WHEEL_TOP     = 40;
  WHEEL_RIGHT   = 90;
  WHEEL_BOTTOM  = 120;
  WHEEL_ENC_MIN = 0;
  WHEEL_ENC_MAX = 1000;

var
 wheelEncPos    : integer = 500;
 wheelEncPosOld : integer = 500;
 wheelPos       : integer;
 mouseStartPosY : integer = 0;
 mouseOverWheel : boolean = false;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X > WHEEL_LEFT) and (Y > WHEEL_TOP) and (X < WHEEL_RIGHT) and (Y < WHEEL_BOTTOM) then
  begin
    if mouseOverWheel = false then
    begin
      mouseOverWheel := true;
      mouseStartPosY := Y;
    end;
    wheelEncPos := wheelEncPosOld - (mouseStartPosY - Y);
    if wheelEncPos < WHEEL_ENC_MIN then wheelEncPos := WHEEL_ENC_MIN
    else if wheelEncPos > WHEEL_ENC_MAX then wheelEncPos := WHEEL_ENC_MAX;
  end
  else
  begin
    mouseOverWheel := false;
    wheelEncPosOld := wheelEncPos;
  end;
  wheelPos := wheelEncPos div 10;

  Label1.Caption := 'wheel ' + IntToStr(wheelPos);
end;