mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-28 04:13:51 +02:00
5 lines
114 B
ObjectPascal
5 lines
114 B
ObjectPascal
|
|
procedure TForm1.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
ProgressBar1.Position := (TrackBar1.Position)*10
|
|
end; |