Lazarus

Programming => LCL => Topic started by: Pe3s on September 30, 2022, 06:44:02 pm

Title: [SOLVED] ProgressBar mouse click
Post by: Pe3s on September 30, 2022, 06:44:02 pm

Hello, I am curious if I can write better progressbar control with the mouse ?

Code: Pascal  [Select][+][-]

1. procedure TForm1.JvSpecialProgress1MouseDown(Sender: TObject;
2.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
3. begin
4.   if Button = mbLeft then
5.     begin
6.       newPos := Round(X * JvSpecialProgress1.Maximum / JvSpecialProgress1.ClientWidth);
7.     JvSpecialProgress1.Position := newPos;
8. end;
9. end;
10.  
11.  

Title: Re: ProgressBar mouse click
Post by: ASerge on October 01, 2022, 02:45:19 am

Quote from: Pe3s on September 30, 2022, 06:44:02 pm

Hello, I am curious if I can write better progressbar control with the mouse ?

In the general case Min + Round(X * (Max - Min) / Width).

Title: Re: ProgressBar mouse click
Post by: Pe3s on October 01, 2022, 09:49:18 am

Thank you  :)