[SOLVED] ProgressBar mouse click
lazarus / 31-LCL

----------------------------------------------------------------------
Pe3s · 2022-09-30 16:44

Hello, I am curious if I can write better progressbar control with the
mouse ?
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TForm1.JvSpecialProgress1MouseDown(Sender: TObject;  Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);begin  if Button =
mbLeft then    begin      newPos := Round(X *
JvSpecialProgress1.Maximum / JvSpecialProgress1.ClientWidth);   
JvSpecialProgress1.Position := newPos;end;end;

----------------------------------------------------------------------
ASerge · 2022-10-01 00:45

Quote from: Pe3s on September 30, 2022, 06:44:02 pmHello, I am curious
if I can write better progressbar control with the mouse ?
In the general case Min + Round(X * (Max - Min) / Width).

----------------------------------------------------------------------
Pe3s · 2022-10-01 07:49

Thank you