Benötige Icons bis 255x255 aus RES-Datei

[neo4a]

Zitat von Bummi:

Ich kann das Problem unter D2010 und XE nachvollziehen, woran es liegt kann ich nicht sagen.

Ich zumindest teilweise

Hier noch einmal der Code:

Delphi-Quellcode:

procedure TForm31.FormShow(Sender: TObject);
var
  aIcon : TIcon;
  aStream : TResourceStream;
begin
  aStream := TResourceStream.Create(HInstance, 'ICON1', 'BIN');
  try
     aIcon := TIcon.Create;
     try
       aIcon.LoadFromStream(aStream);
       Image1.Picture.Assign(aIcon);
     finally
       aIcon.Free;
     end;

  finally
    aStream.Free;
  end;

Und die .rc:

Code:

ICON1 BIN "Icon1.ico"

Liegt das Icon1.ico in mehreren Auflösungen vor, dann wird nur ein 32x32-Bild angezeigt. Speichere ich dagegen nur die 256x256-Auflösung, wird's groß.