Procedure TbsPngLayerIDAT. CopyInterlacedRGB8 (const Pass: Byte;
The Src, Dest, Trans, Extra: pChar);
Var
Col: Integer;
The begin
Col:=ColumnStart (Pass);
Dest:=pChar (Longint (Dest) + Col * 3);
Repeat
Byte (Dest ^) :=fOwner GammaTable [pByte (Longint (Src) + 2) ^]; Inc (Dest);//pass the
Byte (Dest ^) :=fOwner GammaTable [pByte (Longint (Src) + 1) ^]; Inc (Dest);//pass the
Byte (Dest ^) :=fOwner GammaTable [pByte (Longint (Src)) ^]; Inc (Dest);//pass the
Inc (Src, 3);
Inc (Dest, ColumnIncrement (Pass) * 3-3);
Inc (Col, ColumnIncrement (Pass));
Until Col & gt;=ImageWidth;
end;
Can't mean const assignment?
CodePudding user response:
PByte (Dest) ^ :=fOwner GammaTable [PByte (Longint (Src) + 2) ^];.
CodePudding user response:
Byte (Dest) ^ :=fOwner GammaTable [pByte (Longint (Src) + 2) ^];