On 27.06.2017 00:22, Mattias Gaertner via Lazarus wrote:
it must be something you
are doing with the imagelist.
You must give some clues what you are doing otherwise no one can help.
I'm doing loading of png files [Imagelist size 16x] to it--
function UpdateImagelistWithIconFromFile(AImagelist: TCustomImagelist;
const AFilename: string): boolean;
var
bmp: TCustomBitmap;
begin
Result:= false;
if AImagelist=nil then exit;
if not FileExistsUtf8(AFilename) then exit;
if ExtractFileExt(AFilename)='.bmp' then
bmp:= TBitmap.Create
else
if ExtractFileExt(AFilename)='.png' then
bmp:= TPortableNetworkGraphic.Create
else
exit;
try
try
bmp.LoadFromFile(AFilename);
bmp.Transparent:= true;
AImagelist.Add(bmp, nil);
Result:= true;
finally
FreeAndNil(bmp);
end;
except
end;
end;
for many icons.
--
Regards,
Alexey
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus-ide.org/listinfo/lazarus
