paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 19:24:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32, wince imagelist: fix bug in Move (issue #0011054)

Browse Source 
git-svn-id: trunk@14694 -
This commit is contained in:
paul 2008-03-31 01:09:12 +00:00
parent f58a2b84d9
commit 1a4f957576
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/win32/win32wsimglist.pp
View File

@ -382,7 +382,7 @@ begin
ImageList_Copy(Handle, n + 1, Handle, n, ILCF_SWAP);
end
else begin
for n := ACurIndex downto ANewIndex - 1 do
for n := ACurIndex downto ANewIndex + 1 do
ImageList_Copy(Handle, n - 1, Handle, n, ILCF_SWAP);
end;
end;

2
lcl/interfaces/wince/wincewsimglist.pp
View File

@ -302,7 +302,7 @@ begin
ImageList_Copy(Handle, n + 1, Handle, n, ILCF_SWAP);
end
else begin
for n := ACurIndex downto ANewIndex - 1 do
for n := ACurIndex downto ANewIndex + 1 do
ImageList_Copy(Handle, n - 1, Handle, n, ILCF_SWAP);
end;
end;