PaintScaling example for Delphi (ImageList Control)

procedure TForm1.Button1Click(Sender: TObject);
begin
{toggle through the paint scale modes}
   Case LEADImgList1.PaintScaling of
      psNormal:
      begin
             LEADImgList1.PaintScaling := psResample;
             Edit1.Text := 'Resample';
      end;
      psResample:
      begin
             LEADImgList1.PaintScaling := psBicubic;
             Edit1.Text := 'Bicubic' ;
      end;
      psBicubic:
      begin
         LEADImgList1.PaintScaling := psNormal;
         Edit1.Text := 'Normal';
      end;
   end;
end;