Source position: imglist.pp line 263
type TCustomImageListGetWidthForPPI = procedure(
Sender: TCustomImageList;
AImageWidth: Integer;
APPI: Integer;
var AResultWidth: Integer
) of object;