Quote
if HasGlobalPal then
begin
for I := 0 to GlobalPalLength - 1 do
begin
GlobalPal.A := 255;
Read(Handle, @GlobalPal.R, SizeOf(GlobalPal.R));
Read(Handle, @GlobalPal.G, SizeOf(GlobalPal.G));
Read(Handle, @GlobalPal.B, SizeOf(GlobalPal.B));
end;
GlobalPal[Header.BackgroundColorIndex].A := 0;
end;
img := TSingleImage.Create;
img.Format := ifA8R8G8B8;
img.LoadFromFile(FileName);
Page created in 0.013 seconds with 19 queries.