CHARGEZ VOS JPEG DEPUIS VOS RESSOURCES FACILEMENT

Commentaire de cirec le 24/10/2006 22:28:33 administrateur CS

Merci pour l'appréciation,

Non je ne savais pas ... je pensais que c'était obligatoire !
C’est donc uniquement si l’on utilise les noms longs ?

Par contre je n'ai pas de trace de LoadFromResource dans TGraphic !!!

Mais j'ai quand même une « proposition » à te soumettre :

procedure Tfrm_Main.Button1Click(Sender: TObject);
Var
  NewGraphic        : TGraphic;
  GraphicClass      : TGraphicClass;
begin
  GraphicClass := TJPEGImage;
  NewGraphic := GraphicClass.Create;
  Try
    TJPEGImage(NewGraphic).LoadFromResourceName(hInstance, 'Clouds');
    Image1.Picture.Graphic := NewGraphic;
  Finally
    NewGraphic.Free;
  End;
end;

Ça ne change pas grand chose ... c'est une variante, une autre méthode d'accès

Commentaire de Delphiprog le 29/10/2006 08:24:11 administrateur CS

Dis Cirec, ci-dessus au lieu de :
Image1.Picture.Graphic := NewGraphic;

ça ne serait pas plutôt :
Image1.Picture.Graphic.Assign(NewGraphic);

Parce que si Image1.Picture.Graphic pointe sur NewGraphic et que ce dernier est ensuite libéré...
Pourtant tu l'as bien utilisé dans ton code source.

Je ne sais toujours pas à quoi correspond cette fameuse erreur 41 vue que je ne l'ai jamais rencontrée. Mais, d'après toi, mieux vaut ne pas croiser cette terreur, lol.

Très bonne initiative en tous cas.