[SOLVED] Panel bar

[Pe3s]

Hello forum members, I wanted to create a custom bar from the TPanel component. I wrote the beginning, but I was concerned with the calculation of the position of the bar.

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

1. procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
2. var
3.   NewX, Max: Integer;
4. begin
5.   if not(ssLeft in Shift) then Exit;
6.   NewX := X + Panel2.Left;
7.   Max := Panel1.ClientWidth - Panel2.Width;
8.   if NewX < 0 then NewX := 0;
9.   if NewX > Max then NewX := Max;
10.   Panel2.Left := NewX;
11. end;
12.  

0. zero point
1st belt position
2.100%
Can I ask for help in finalizing?

[howardpc]

Do you mean something like the attached adapted project?

[Pe3s]

That's exactly what I wanted to do. Thank you very much. Greetings with a smile