Fehler: Das Fenster hat keine Bildlaufleisten

[Tiuri]

Delphi-Quellcode:

Hi,
ich versuche gerade, Icons, die ich mit Ressourcendatein in das Programm einbinde, auch im Programm zu benutzen.
Die RC-Datei icons.rc sieht so aus:
[code:1:6625f5b5d7]R01 ICON "Symbol1.ico"
R02 ICON "Symbol2.ico"[/code:1:6625f5b5d7]
Mit dem Programm BRCC32.EXE erzeuge ich dann die icons.RES
Der Porjektquelltext ist so:
program TehCrypt;

uses
  Forms,
  Classes,
  Windows,
  uMainForm in 'uMainForm.pas' {MainForm},
  uLanguage in 'uLanguage.pas',
  uPropertys in 'uPropertys.pas';

{$R lang.RES}
{$R icons.RES} //-> hier wird die Ressourcendatei eingebunden

var
 Ressource: TResourceStream;

begin
  Application.Initialize;
  Application.Title := 'TehCrypt v1.0';
  Application.CreateForm(TMainForm, MainForm);
  Ressource := TResourceStream.Create(hInstance,'R02',RT_GROUP_ICON); //-> Hier lade ich die Ressource
  Application.Icon.LoadFromStream(Ressource); //-> Hier versuche ich, sie zu benutzen
  Application.Run;
end.

Das Compilieren klappt wunderbar, aber wenn ich das Programm starte, kommt folgender Fehler:

Code:

Exception EOutOfResources im Modul TehCrypt.exe bei 0001264C.
Das Fenster hat keine Bildlaufleisten.
.

Das Programm startet anschließend nicht mehr.
Was mache ich falsch?

[CCRDude]

Tpplication ist so ein merkwürdiges Ding: das ist zwar ein "Fenster", aber ein unsichtbares.
Dem ein Icon zuzuweisen bringt auch nicht viel, weil das Icon von TApplication imho eigentlich nur jenes ist, das der Explorer für die Datei anzeigt.

Du willst das wahrscheinlich zuweisen, weil Delphi das Applikations-Icon automatisch in den Forms anwendet, wenn dort keines gesetzt ist. Allerdings dürfte das - mal geraten - wenn dann in CreateForm stattfinden, d.h. Dein Code wäre so oder so zu spät.

Versuch doch mal, das Icon an FormMain.Icon zu weisen (drauf achten, ob das überhaupt <> nil ist...).

[Sunlight7]

Moin!

Application.Icon kannst Du setzen wann Du willst, das spielt keine Rolle, das Problem ist hier, das die Ressource nicht richtig geladen wird.
Prüfst Du die Größe des Streams nach dem laden, so zeigt dieser 20 Bytes an - ein Icon is größer.

Warum das net richtig geladen wird is mir ein Rätsel

Alternativ kannst Du einfach die API verwenden.

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Icon.Handle:=LoadImage(HInstance, 'R02', IMAGE_ICON, 0, 0, LR_LOADREALSIZE);
  Application.Run;
end.

[CCRDude]

20 Bytes? Aaah, da hätte ich aber auch drauf kommen sollen! Das ist kein Rätsel Die RT_GROUP_ICON-Einträge sind eigentlich nur Verwaltungsstrukturen, die auf jeweils für eine bestimmte Auflösung/Farbe gedachte RT_ICON-Einträge verweisen.
TResourceStream ist nun aber nicht mehr, als der Name schon sagt - ein Stream für Einzelresourcen. Die "Icon-Logik", die der Resourcenkompiler beim Auseinanderpflücken und Verteilen in mehrere Resourcen beinhaltet, ist dort nicht enthalten. Da wird also nur die Methode von Sunlight7 funktionieren.

[marabu]

Hallo,

bevor Verwirrung entsteht: Das option flag LR_LOADREALSIZE hat Microsoft vor etwa 10 Jahren abgeschafft. Der Bitwert ($80) wird seitdem von LR_VGACOLOR belegt.

Freundliche Grüße

[Tiuri]

Hallo,

danke für die vielen Antworten! Ich habe das Problem jetzt mit LoadIcon gelöst:

Delphi-Quellcode:

program TehCrypt;

uses
  Forms,
  Windows,
  uMainForm in 'uMainForm.pas' {MainForm},
  uLanguage in 'uLanguage.pas',
  uPropertys in 'uPropertys.pas';

{$R lang.RES lang.rc}
{$R icons.RES icons.rc}

begin
  Application.Initialize;
  Application.Title := 'TehCrypt v1.0';
  Application.CreateForm(TMainForm, MainForm);
  MainForm.Icon.Handle := LoadIcon(HInstance,'R02_FormIcon');
  Application.Icon.Handle := MainForm.Icon.Handle;
  Application.Run;
end.