Benötige Icons bis 255x255 aus RES-Datei

[Bummi]

Ich kann das Problem unter D2010 und XE nachvollziehen, woran es liegt kann ich nicht sagen.
Gegf. kannst Du eine Imagelist verwenden, hier giebt es zumindest bei mir keine Problem.
Empfehlenswert wären aber IMHO PNG : http://www.torry.net/authorsmore.php?id=6929

[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ß.

[Bummi]

So ich habe jetzt etwas was funktioniert:
   aIcon.Handle :=LoadImage(HInstance, MakeIntResource('RESICON128X128'), IMAGE_ICON, 128, 128, LR_DEFAULTCOLOR);

[mz23]

Genial, vielen, vielen Dank.

Das mit der RC-Datei und BRCC32.exe wußte ich zwar - irgendwo
im Hinterkopf - habe es aber noch nicht ausprobiert.

@Bummi und @neo4b und @alle

ihr habt was bei mir gut - toll.

Schöne Grüße aus Nürnberg,
Manfred

[neo4a]

Zitat von mz23:

Genial

Selbst auf die Gefahr hin, von irgendeinem Kasper wieder angemault zu werden, weil ich auf mehr antworte, als Du gefragt hast, möchte ich Dich noch ganz unaufdringlich auf einen erweiterten Ansatz hinweisen. Das Handling mit umfangreichen Resourcen- Sammlungen kann nämlich schnell recht unübersichtlich werden.

Gruß,

neo4c

[mz23]

Zitat von neo4a:

Zitat von mz23:

Genial

Selbst auf die Gefahr hin, von irgendeinem Kasper wieder angemault (1) zu werden, weil ich auf mehr antworte, als Du gefragt hast, möchte ich Dich noch ganz unaufdringlich auf einen erweiterten Ansatz hinweisen. Das Handling mit umfangreichen Resourcen- Sammlungen kann nämlich schnell recht unübersichtlich werden.

Gruß,

neo4c

Darüber (1) würde ich mir keine Sorgen machen, wenn ich so viel wüßte
wie Du, Andreas.
Hilfe zu erhalten sind doch wie Geschenke, die man erhält - und die
man sich vorher noch aussuchen durfte.
Ich lerne gerne dazu und befasse mich ein lebenlang mit viel mehr
Dingen, die eigentlich nötig sind, um meinen Magen zu füllen.
Das macht mir Freude, gibt meinem Dasein einen Sinn, und die
kleinen Erkenntnisse hüte ich wie kostbare Diamanten.

Meine Oma hat immer zu mir gesagt, "...Was man im Kopf hat, kann
einen keiner mehr wegnehmen...".

In diesem Sinne, ich kopiere mir Deine Noch-Lösungen, Andreas und
sage schöne Grüße aus Nürnberg nach Ingolstadt.

Manfred

[mz23]

Zitat von Bummi:

So ich habe jetzt etwas was funktioniert:
   aIcon.Handle :=LoadImage(HInstance, MakeIntResource('RESICON128X128'), IMAGE_ICON, 128, 128, LR_DEFAULTCOLOR);

Danke Bummi,
und hier die Umsetzung in meinem kleinen Testprogramm.

Im Anhang
PIconSize-Test_2012_03_18.rar 303,467 Bytes

Schönen Sonntag Euch allen,
Manfred