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

LCL: Prevent a rare range error in ImageListResolution

Browse Source 
git-svn-id: branches/fixes_2_0@60174 -
This commit is contained in:
mattias 2019-01-24 09:41:49 +00:00
parent f001cc32ec
commit b69c815f04
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/imglist.inc
View File

@ -333,7 +333,7 @@ end;
procedure TCustomImageListResolution.CheckIndex(AIndex: Integer;
AForInsert: Boolean);
// aviod exceptionframe generation
// avoid exceptionframe generation
procedure Error;
begin
raise EInvalidOperation.Create(SInvalidIndex);
@ -364,10 +364,9 @@ begin
Clear;
Exit;
end;
CheckIndex(AIndex);
InternalMove(AIndex, FCount - 1, True);
if AIndex < FCount-1 then
InternalMove(AIndex, FCount-1, True);
Dec(FCount);
if HandleAllocated
then TWSCustomImageListResolutionClass(WidgetSetClass).Delete(Self, AIndex);
@ -641,8 +640,8 @@ end;
Moves an image from the CurIndex'th location to NewIndex'th location
without notifying the widgetset
------------------------------------------------------------------------------}
procedure TCustomImageListResolution.InternalMove(ACurIndex,
ANewIndex: Cardinal; AIgnoreCurrent: Boolean);
procedure TCustomImageListResolution.InternalMove(ACurIndex, ANewIndex: Cardinal;
AIgnoreCurrent: Boolean);
var
ImgSize, DataSize: Cardinal;
p: Pointer;