paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 21:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

one more problem in the same example

Browse Source 
git-svn-id: trunk@15619 -
This commit is contained in:
paul 2008-06-30 07:08:22 +00:00
parent 7a8b551fb9
commit 9b8ffbea8c
1 changed files with 1 additions and 1 deletions

2
examples/icons/unit1.pas
View File

@ -70,7 +70,7 @@ begin
if TrackBar1.Enabled then
begin
TrackBar1.Min := 0;
TrackBar1.Max := TCustomIcon(Image1.Picture.Graphic).Count;
TrackBar1.Max := TCustomIcon(Image1.Picture.Graphic).Count - 1;
TrackBar1.Position := TCustomIcon(Image1.Picture.Graphic).Current;
TrackBar1Change(TrackBar1);
end;