[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

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal