Jest taki problem
procedure TfmNagrania.pbPercentMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
newPosition: Int64;
begin
inherited;
newPosition := Round(x * pbPercent.Max / pbPercent.ClientWidth);
imePlay.IO.DShowParams.Position := newPosition;
end;
X = 237
pbPercent.Max = 253130000
pbPercent.ClientWidth = 952
Z matematycznego punktu widzenia newPosition powinna posiadać wartość: 63016607
Natomiast w delphi zmienna newPosition przybiera wartość: -144677
Przez co pozycja wraca na 0 przy każdym kliknięciu w progressbara. Czy możecie coś podpowiedzieć?