Einzelnen Beitrag anzeigen

Benutzerbild von Sunlight7
Sunlight7

Registriert seit: 17. Sep 2006
Ort: Sonnensystem, Zentral
1.522 Beiträge
 
Delphi 5 Standard
 
#3

Re: Fehler: Das Fenster hat keine Bildlaufleisten

  Alt 16. Jun 2007, 00:37
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.
Windows: Ja - Microsoft: Nein -> www.ReactOS.org
  Mit Zitat antworten Zitat