Discussion :

[endemyon]

Comment charger des images png dans une imagelist?
J'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
ILButtons.Clear;
Button:=TImage.Create(self);
Button.Picture.LoadFromFile(SkinPath+'b_fn0_n.png');
ILButtons.Add(Button.Picture.Bitmap,nil);
Button.free;

mais j'ai une erreur dans le loadfromfile : extension du fichier image inconnue .png
Merci d'avance pour votre aide.

[Droïde Système7]

Tu peux t'inspirer de cet exemple, mais sans oublier d'ajouter vers la fin, la libération de l'objet !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.btn1Click(Sender: TObject);
var
  vPng: TPNGObject;
begin
  vPng := TPNGObject.Create;
  vPng.LoadFromFile('X:\www\Tests\test.png');
 
  img1.Picture.Graphic := vPng;
end;

@+

[endemyon]

J'ai essayé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
  ILButtons.Clear;
  ButtonPng:=TPNGObject.Create;
  ButtonPng.LoadFromFile(SkinPath+'b_number_n.png');
  Button:=TImage.Create(self);
  IlButtons.ColorDepth:=cd32Bit;
  IlButtons.BlendColor:=clNone;
  IlButtons.BkColor:=clnone;
  Button.Picture.Graphic:=ButtonPng;
  ILButtons.Add(Button.Picture.Bitmap,nil);
  Button.free;
  ButtonPng.Free;

mais j'ai l'erreur suivante :
Taille d'image incorrecte

si j'ajoute le ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

showmessage(inttostr(Button.Picture.Bitmap.Height));

il me renvoie 0

Si je teste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  ILButtons.Clear;
  ButtonPng:=TPNGObject.Create;
  ButtonPng.LoadFromFile(SkinPath+'b_number_n.png');
  Button:=TImage.Create(self);
  IlButtons.ColorDepth:=cd32Bit;
  IlButtons.BlendColor:=clNone;
  IlButtons.BkColor:=clnone;
  Button.Canvas.Draw(0, 0, ButtonPng);
  ILButtons.Add(Button.Picture.Bitmap,nil);
  Button.free;
  ImagePng.free;
  ButtonPng.Free;

les bords des boutons ne sont pas transparents et ne laissent pas voir la form qui est derrière mais blancs.

[Dr.Who]

personnellement, j'ai toujours eviter et detester TImageList du fait de son fonctionnement peu clair et pratique, et son manque de souplesse.


si tu as disons images PNG, crée un fichier RC comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
PNG0  RCDATA ".\res\png0.png"
PNG1  RCDATA ".\res\png1.png"
...
PNG9 RCDATA ".\res\png9.png";

ensuite tu ajoute ce fichier au projet.

il ne reste plus qu'a inclure la PNGLib ou PNGImage dans les uses,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
uses ..., PNGLib;
ou
uses ..., PNGImage;

declare un tableau de TPNGObject (compatible PNGLib/PNGImage)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var
  PNGS : array[0..9] of TPNGObject;

puis on recupere les PNGs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure GetPNGS;
var N : integer;
begin
  for N := 0 to high(PNGS) do
  begin
    PNGS[N] := TPNGObject.Create;
    PNGS[N].LoadFromResource(0, 'PNG'+IntToStr(N), RT_RCDATA); // a verifier
  end;
end;

et bien sur une procedure pour liberer le tableau a la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure FreePNGS;
var N : integer;
begin
  for N := high(PNGS) downto 0 do
    PNGS[N].Free;
end;

exemple d'utilisation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MonBitmap.Canvas.Draw(0,0, PNGS[0]);
MonBitmap.Canvas.Draw(10, 20, PNGS[1]);

[magicstar]

Bonsoir!
Je ne suis qu'une débutante donc pas de code pour les images png j'utilise sAlphaImageListe un composant de alphalite version free
Edit: voici le lien si jamais ça vous interesse alphaskins/

[Dr.Who]

Si tu ne comprend pas quelque chose n'hesite pas à demander, c'est la moindre des choses qu'on explique le code donné en exemple.

regle n°4 du FMOC) C'est en apprenant qu'on sort du statu de débutant.