viendez voir çà !!!! - Archives / J'AI BESOIN D'AIDE !!!! :O, Delphi

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 11 09:18:25

EXPRESSION STUDIO 3 / SILVERLIGHT 3 par Matthieu MEZIL

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

QUESTION SUR FONCTION ASSIGNED() par solilog

AIDE par nori14

RE : CREER PAGE HTML par sawceno

CREER PAGE HTML par sawceno

THREAD par swadfish

+ de logiciels à télécharger

1 468 230 membres
67 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 112 codes, 1 305 091 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : viendez voir çà !!!! [ Archives / J'AI BESOIN D'AIDE !!!! :O ] (TheWhiteShadow)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Delphi / Archives / J'AI BESOIN D'AIDE !!!! :O / viendez voir çà !!!!
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

samedi 21 juin 2003 à 21:34:51 | viendez voir çà !!!!

TheWhiteShadow

Voici mon prb : Est-ce qu'on peut écire la mm chose en 5 lignes : ???

procedure TForm1.draw(x,y: integer; state : string);
begin
case truc_bidule of
01 : c01.Picture.Bitmap.LoadFromResourceName(hinstance,state);
02 : c02.Picture.Bitmap.LoadFromResourceName(hinstance,state);
03 : c03.Picture.Bitmap.LoadFromResourceName(hinstance,state);
04 : c04.Picture.Bitmap.LoadFromResourceName(hinstance,state);
05 : c05.Picture.Bitmap.LoadFromResourceName(hinstance,state);
06 : c06.Picture.Bitmap.LoadFromResourceName(hinstance,state);
07 : c07.Picture.Bitmap.LoadFromResourceName(hinstance,state);
08 : c08.Picture.Bitmap.LoadFromResourceName(hinstance,state);
09 : c09.Picture.Bitmap.LoadFromResourceName(hinstance,state);
10 : c10.Picture.Bitmap.LoadFromResourceName(hinstance,state);
11 : c11.Picture.Bitmap.LoadFromResourceName(hinstance,state);
12 : c12.Picture.Bitmap.LoadFromResourceName(hinstance,state);
13 : c13.Picture.Bitmap.LoadFromResourceName(hinstance,state);
14 : c14.Picture.Bitmap.LoadFromResourceName(hinstance,state);
15 : c15.Picture.Bitmap.LoadFromResourceName(hinstance,state);
16 : c16.Picture.Bitmap.LoadFromResourceName(hinstance,state);
17 : c17.Picture.Bitmap.LoadFromResourceName(hinstance,state);
18 : c18.Picture.Bitmap.LoadFromResourceName(hinstance,state);
19 : c19.Picture.Bitmap.LoadFromResourceName(hinstance,state);
20 : c20.Picture.Bitmap.LoadFromResourceName(hinstance,state);
21 : c21.Picture.Bitmap.LoadFromResourceName(hinstance,state);
22 : c22.Picture.Bitmap.LoadFromResourceName(hinstance,state);
...........
end;

lundi 23 juin 2003 à 11:19:56 | Re : viendez voir çà !!!!

Jean44

Salut,

Une autre façon d'écrire la même chose (mais moins efficace en terme d'exécution) :
(On suppose que les composants C01 à Cxx sont des TImage)

procedure TForm1.draw(x,y: integer; state : string);
var
i : integer;
Comp : TComponent;
begin
for i := 0 to ComponentCount - 1 do
begin
if (Comp.Name is TImage) then
begin
if Comp.Name = 'C' + IntToStr( truc_bidule) then
(Comp as TImage).Picture.Bitmap.LoadFromResourceName(hinstance,state);
end;
end;
end;

-------------------------------
Réponse au message :
-------------------------------

> Voici mon prb : Est-ce qu'on peut écire la mm chose en 5 lignes : ???
>
> procedure TForm1.draw(x,y: integer; state : string);
> begin
> case truc_bidule of
> 01 : c01.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 02 : c02.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 03 : c03.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 04 : c04.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 05 : c05.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 06 : c06.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 07 : c07.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 08 : c08.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 09 : c09.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 10 : c10.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 11 : c11.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 12 : c12.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 13 : c13.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 14 : c14.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 15 : c15.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 16 : c16.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 17 : c17.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 18 : c18.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 19 : c19.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 20 : c20.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 21 : c21.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> 22 : c22.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> ...........
> end;

lundi 23 juin 2003 à 11:22:27 | Re : viendez voir çà !!!!

Jean44

Petite erreur :
Remplacer
> if (Comp.Name is TImage) then
Par
> if (Comp is TImage) then

-------------------------------
Réponse au message :
-------------------------------

> Salut,
>
> Une autre façon d'écrire la même chose (mais moins efficace en terme d'exécution) :
> (On suppose que les composants C01 à Cxx sont des TImage)
>
>

> procedure TForm1.draw(x,y: integer; state : string);
> var
> i : integer;
> Comp : TComponent;
> begin
> for i := 0 to ComponentCount - 1 do
> begin
> if (Comp.Name is TImage) then
> begin
> if Comp.Name = 'C' + IntToStr( truc_bidule) then
> (Comp as TImage).Picture.Bitmap.LoadFromResourceName(hinstance,state);
> end;
> end;
> end;
>

>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Voici mon prb : Est-ce qu'on peut écire la mm chose en 5 lignes : ???
> >
> > procedure TForm1.draw(x,y: integer; state : string);
> > begin
> > case truc_bidule of
> > 01 : c01.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 02 : c02.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 03 : c03.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 04 : c04.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 05 : c05.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 06 : c06.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 07 : c07.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 08 : c08.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 09 : c09.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 10 : c10.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 11 : c11.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 12 : c12.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 13 : c13.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 14 : c14.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 15 : c15.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 16 : c16.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 17 : c17.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 18 : c18.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 19 : c19.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 20 : c20.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 21 : c21.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > 22 : c22.Picture.Bitmap.LoadFromResourceName(hinstance,state);
> > ...........
> > end;
>

lundi 23 juin 2003 à 11:24:06 | Re : viendez voir çà !!!!

TheWhiteShadow	Merci pour ta réponse, en fait vu que j'utilise un case of il suffit d'écrire procedure TForm1.draw(x,y: integer; state : string); begin TImage(FindComponant('c'+IntToStr(nb))).Picture.Bitmap.LoadFromResourceName(hinstance,state); end; et je pense pas qu'on en perd en temps machine comme ça si ? ++
	Rép. MP 27 msg 88 msg CS

lundi 23 juin 2003 à 11:30:07 | Re : viendez voir çà !!!!

Jean44

Heu, en fait FindComponent réalise exactement le même type de boucle for..to..
Mais dans l'écriture, t'as trouvé plus concis que moi (je connaissais pô FindComponent).

-------------------------------
Réponse au message :
-------------------------------

> Merci pour ta réponse,
>
> en fait vu que j'utilise un case of il suffit d'écrire
>
> procedure TForm1.draw(x,y: integer; state : string);
> begin
> TImage(FindComponant('c'+IntToStr(nb))).Picture.Bitmap.LoadFromResourceName(hinstance,state);
> end;
>
> et je pense pas qu'on en perd en temps machine comme ça si ?
>
> ++

Cette discussion est classé dans : state, picture, bitmap, hinstance, loadfromresourcename

Répondre à ce message

Sujets en rapport avec ce message

Donnee pixels ds1fichier txt -> image [ par Nicolas___ ] Tout d abbord BONJOUR,Bon le sujet n est peut etre pas bien expliquer donc je vous mets ce code :procedure TForm1.EnregisterClick(Sender: TObject);var TMemoryStream + JPEG [ par zymoplex ] Bonjour,Je n'arrive pas a utiliser TMemoryStream avec une image JPEG, en BITMAP ca fonctionne nickel .. Quelqu'un a une solution <img src=/imgs2/smil pb lors de la sauvegarde de grandes images [ par ericamiens ] salut à tous, mon problème est le suivant :lors de la création d'images JPG, j'ai l'erreur JPEG n° 36 lorsque les dimensions sont trop importantes (ex pb lors de la création de grandes images (JPG) [ par ericamiens ] bonjour,j'ai posté une question hier mais comme j'ai eu des erreurs lors de la validation et que je ne vois plus ma question, je la repose :voila, lor TCanvas et allocation de handle [ par Fandril ] Je crée pluseirs bitmap contenant des bitmap qui sont en fait des buffers de dessin.Ensuite j'utilise des API (stretchblt, transparentblt et bitblt) p dessin sur un bitmap [ par jlg75 ] J'ai commencé un petit prog de dessin pour mes débuts en DELPHI.Je dessine sur un bitmap (feuille blanche pour l'instant),chargé dans une TImage. J'ut Convertir un bitmap en icone [ par sebastienbro ] J'aimerai savoir comment convertir un bitmap, contenu dans une Timage, en icone Convetir une imag en Bitmap [ par sebastienbro ] Je veux convertirune image en ICO, mais il me met une erreur : Image icône incorrectAidez moi !!!!! Bitmap, tableau de stockage .... [ par dami ] Bonjour a tous. Pour les besoins d'OpenGL, j'ai besoin de transformer mon Jpeg en BMP puis de stocker le BMP sous forme de tableau. J'ai récupéré et a Timage [ par yvemoreau ] yvele problème: j'ai une image bitmap qui pèse 700k dans une Form j'ai encodé les Picture.Data dans un unit pour l