[fpc-pascal] FPReadIcon?

[silvioprog]

Hello,

How to load an ICON using FCL-Image? Something like:

program project1;

{$mode objfpc}{$H+}

uses
  FPimage, FPRead???;

var
  r: TFPReader???;
  i: TFPMemoryImage;
begin
  r := TFPReader???.Create;
  i := TFPMemoryImage.Create(16, 16);
  try
    i.LoadFromFile('lazarus16x16.ico', r);
  finally
    r.Free;
    i.Free;
  end;
end.

Thank you!

-- 
Silvio Clécio
My public projects - github.com/silvioprog
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20130713/4c2be7cb/attachment.html>