mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-05 16:19:32 +01:00
5 lines
114 B
ObjectPascal
5 lines
114 B
ObjectPascal
|
|
procedure TForm1.TrackBar1Change(Sender: TObject);
|
|
begin
|
|
ProgressBar1.Position := (TrackBar1.Position)*10
|
|
end; |