Delphi bug 32bit icons

				the resorce compiler BRCC32 in delphi does not compile 32bit icons (win xp+).it thinks they are 16bit.
 The result then is that any 32bit icons you build in your resorce over write the main icon and others the solution to this is as follows


Function Tform1.LoadIconFromrc(ResName:pchar):Ticon;

var

Stream: TResourceStream;

icon1:ticon;

begin

try

icon1:=ticon.create;

Stream := TResourceStream.Create(hInstance, ResName, 'Data');

icon1.LoadFromStream(Stream);

Result:=icon1; //remember free this at the end

finally

stream.Free;

end;

end;



simple eh a bit slower but more relyable the the api loadicon. all you need to put in the resorce before it is compled now is

 

IconName DATA "FileName"




vistit my site where there are a few free apps and a 32bit icon genorator :D if you like anything plz vote i dont often post here

mgazzasoft.150m.com

www.mgazzasoft.150m.com

 
sometimes only one works :D any one who know some of the delphi team plz fwd this artical on id like to see the ticon.savetofile function updated