FIX: Compiling for 64-bit.

This commit is contained in:
cobines 2009-12-16 10:58:29 +00:00
commit bf41c519ff

View file

@ -425,7 +425,7 @@ begin
for I:= Low(IconExtensionList) to High(IconExtensionList) do
if IconExtensionList[I] = FoundExt then
begin
DirList.Add(FoundName, TObject(I));
DirList.Add(FoundName, Pointer(PtrInt(I)));
break;
end;
end;