Pourquoi mes images ne s'affichent pas

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Pourquoi mes images ne s'affichent pas

endemyon

J'ai une Form avec une scroolbax et je veux y crée des images lors de l'execution avec ce code:

Code :

procedure TFCatEdit.FormShow(Sender: TObject);
var
Nombre_Icones: integer;
Nom_Icones: array of string;
Lien_Icones: array of string;
indice: integer;
image: array of TImage;
begin
//test
Nombre_Icones := 6; //on fera un chargement dans le fichier ini
for indice := 1 to Nombre_Icones do
begin
SetLength(image, Nombre_Icones);
SetLength(Nom_Icones, Nombre_Icones);
SetLength(Lien_Icones, Nombre_Icones);
Image[Nombre_Icones - 1] := TImage.Create(FCatEdit.scrollbox1);
Image[Nombre_Icones - 1].Left := 8;
Image[Nombre_Icones - 1].Top := 8 + Nombre_Icones * 10;
Image[Nombre_Icones - 1].Width := 32;
Image[Nombre_Icones - 1].Height := 32;
Image[Nombre_Icones - 1].Stretch := true;
Image[Nombre_Icones - 1].Picture.loadfromfile(ExtractFilePath(Application.ExeName) + 'Images/Catégorie/Users.bmp'); //pour l'exemple
Image[Nombre_Icones - 1].Visible := true;
end;
end;

Ca compile, ca tourne mais rien ne s'affiche. Ou est l'erreur?

---------------
Mes photos : http://500px.com/endemyon

Publicité

antp

Super Administrateur
Champion des excuses bidons

ajoute Image[Nombre_Icones - 1].Parent := Self;

parc contre y a un truc bizarre : tu devrais mettre Image[indice] plutôt que Image[Nombre_Icones - 1], non ?
(et faire indice de 0 à Nombre_Icones-1 évidemment)
Pense aussi à mettre un nom différent à tes images

Image[Nombre_Icones - 1].Name := Format('NouvelleImage%d', [indice]);

Message édité par antp le 19-04-2003 à 17:31:55

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

endemyon

Il faut bien sur mettre indice et pas Nombre_Icones :non:
J'ai ajouté la ligne :
Image[indice].Parent := Self;
mais j'ai une erreur à la compilation : incompatible type TWidgetControl and FCatEdit?

---------------
Mes photos : http://500px.com/endemyon

antp

Super Administrateur
Champion des excuses bidons

tu fais une application CLX ? Ou bien tu mélanges les deux (ça expliquerait pq ça marche pas )
TFCatEdit c'est bien une TForm ?

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

endemyon

Non, je ne fait pas une application clx (en fait je ne sait même pas ce que c'est). TFCatEdit est bien une TForm.

antp

Super Administrateur
Champion des excuses bidons

alors c'est ton TImage qui est du mauvais type... Donne la liste des "uses", il doit y avoir une mauvaise unit inclue

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

endemyon

Code :

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TFlatSpeedButtonUnit, StdCtrls, CorelButton, QExtCtrls, QGraphics;

endemyon

Tu avais raison (comme toujours) , j'utilisait bien un composant clx pour mon Timage. Comme quoi, on peut utiliser quelque chose dont on ignore l'existance. Merci pour ton aide.

antp

Super Administrateur
Champion des excuses bidons

ouais c'est à cause de QExtCtrls, QGraphics; que tu dois virer
(faut metre juste Graphics, les units dont le nom commence par Q c'est du CLX)

Message édité par antp le 22-04-2003 à 11:25:13

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

FORUM HardWare.fr

Programmation

Delphi/Pascal

Pourquoi mes images ne s'affichent pas

Sujets relatifs
Gérer en cm la taille de mes images sur l'écran client	Gérer en cm la taille de mes images sur l'écran client [relancé]
images miniatures	avec les images
Comment afficher mes images 3 par 3??	Novice cherche a dev site WEB avec base d'images ...
[C]Operation de test de pixel sur images.	[HTML] images avec legendes se plaçant automatiquement
Problème d'images défilantes	Les images ne s'affichent pas sur mon site !!
Plus de sujets relatifs à : Pourquoi mes images ne s'affichent pas

Page générée en 0.040 secondes