begin process at 2010 03 18 22:22:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

Delphi

 > 

Divers

 > 

Débutant(e)

 > 

simplifier


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

simplifier

samedi 28 février 2009 à 16:34:20 | simplifier

tartave
bonjour,
j'aimerai simplifier ces quelque ligne:

  BitBtn_S1.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S2.Glyph.LoadFromFile(MonChemin+'image\lave_linge_mouse_S.bmp');
  BitBtn_S3.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S4.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S5.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S6.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S7.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_S8.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné_S.bmp');
  BitBtn_M1.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');
  BitBtn_M2.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');
  BitBtn_M3.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');
  BitBtn_M4.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');
  BitBtn_M5.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');
  BitBtn_M6.Glyph.LoadFromFile(MonChemin+'image\lave_linge_deselctioné.bmp');

   comme vous pouvez le voir j'ai utiliser des BitBtn. et ces Bitbtn sont dans un panel.
je voudrai savoir si il est possible de faire quelque chose qui ressemble a:

with panel1
do ...

iut cachan
GEII
samedi 28 février 2009 à 16:47:12 | Re : simplifier

tartave

mercii pour vos réponse.
dimanche 1 mars 2009 à 00:21:42 | Re : simplifier

Caribensila

Membre Club
Salut,

Tu veux dire que tu voudrais avoir un code plus concis et plus difficile à lire en compliquant le boulot de l'exe..?

C'est ça? 


dimanche 1 mars 2009 à 01:52:28 | Re : simplifier

Nicolas___
Réponse acceptée !
Tu peux peut être penser à utiliser un TToolBar ...
tu pourras faires des choses du genre à ca :
const
  MON_IMAGE = '\MonImage.bmp';
procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  for i:=0 to ToolBar1.ButtonCount-1 do begin
    with ToolBar1.Buttons[i] do
    begin
      Caption := 'Boutton n'+IntToStr(i);
      // MON_IMAGE = chemin de ton Image ...
      ImageIndex := MON_IMAGE;
    end;
  end;
end;
dimanche 1 mars 2009 à 01:54:08 | Re : simplifier

Nicolas___
Pardon ,
tu dois bien sur utiliser un TImageList avec , petite erreur ,

donc ce n'est pas  ImageIndex := MON_IMAGE; mais
ImageIndex := IndexDansLeTImageListAUtiliser;

désolé , utilise l'aide pour plus d'infos
dimanche 1 mars 2009 à 04:17:56 | Re : simplifier

tartave
merci pour ta réponse Nicolas. tu vien de me faire penssé a utiliser la constante MON_IMAGE = '\MonImage.bmp';
cela simplifira deja mon code .
je regard le code que tu ma donné demain car je n'est jamais encore utilisé de ttoolbar.

Caribensila : mon but est de simplifier ces quelques lignes pour faciliter la lecture de mon code par un autre.

 


iut cachan
GEII
dimanche 1 mars 2009 à 12:41:24 | Re : simplifier

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
salut,

il y a plus simple ...

tu as deux images a afficher, d'après ton exemple, donc il suffit de donner une valeur au "Tag" des TBitBtn afin de pouvoir les différencier.

chez toi c'est très simple il n'y en a qu'un à changer
(par l'inspecteur d'objets):
BitBtn_S2.Tag := 1;
tous les autres étant à zéro par défaut.

procedure TForm1.Button4Click(Sender: TObject);
var I : Integer;
begin
  with panel1 do
    for I := 0 to ControlCount - 1 do
      if (controls[I] is TBitBtn) then
      with TBitBtn(Controls[I]) do
      case Tag of
        0 : Glyph.LoadFromFile('image\lave_linge_deselctioné.bmp');
        1 : Glyph.LoadFromFile('image\lave_linge_mouse_S.bmp');
      end;
end;

mais l'utilisation d'un TImageList reste fortement conseillé pour ton cas
 
@+
Cirec
dimanche 1 mars 2009 à 13:09:42 | Re : simplifier

Caribensila

Membre Club
Moi, je ne trouve pas ça plus simple ni plus facile à lire. Au contraire.
Et question perf' on perd bcp.
J'dis pas, si y'avait 150 TBitBtn...
Ca fait plus pro, c'est sûr. Mais une fois compilé, ça ne sera pas plus simple non plus. 

Quant au TImageList, si on ne veut pas donner la possibilité à l'utilisateur de changer les Bitmaps, c'est le bon choix. 
dimanche 1 mars 2009 à 13:18:57 | Re : simplifier

tartave
merci pour ta solution cirec.

caribensila : pour mon cas j ai 15 TBitBtn ... mais dans un futur il pourai y en avoir jusqu'a 25.



iut cachan
GEII
dimanche 1 mars 2009 à 13:30:12 | Re : simplifier

cirec

Membre Club Administrateur CodeS-SourceS
quand je dis plus simple c'est en comparaison avec l'utilisation d'une ToolBar (pas de composants à ajouter à la fiche)

ensuite en matière de perfs ... je dis ...attention ... ce n'est pas un FindComponent !!!
on ne parse que les Contrôles contenu dans Panel1 !!!!

FindComponent rajoute une couche puisqu'il effectue encore un contrôle de concordance du nom de l'objet recherché.

et pour finir lire ce genre de code ne pose pas plus de problème que le code d'exemple fournit par tartave

 
@+
Cirec

1 2

Cette discussion est classée dans : image, loadfromfile, glyph, monchemin, bitbtn

Répondre à ce message

Sujets en rapport avec ce message

Pb de glyph disabled invisible dans un speedbutton [ par gillig ] Jamais vu ça avant. J'ai un speedbutton tout con, avec un glyph tout con composé d'une seule image toute conne. Quand je fais speedButton.enabled := f Glscene retrecir [ par Nicolas___ ] Salut , bon y a t-il moyen de diminuer ce code pu*** tremplin2.Material.Texture.Image.LoadFromFile('tremplin.bmp');tremplin3.Material.Texture.Image.Lo Image de BitBtn-Button est tres petite !!! [ par Delphiturbo ] Salutcoment faire L'Image de mon Button "BitBtn" grand ?J' ai etulisee Icons 32x32 et 64x64 mais le Resulat est la meme !ImageList1.GetBitmap(<span cl sauvegarde d'image dans une bdd SQL server (ou dans un dossier) [ par Adjax ] slt! suis un nouveau developpeur en delphi/SQL server. je voudrais enregistrer une personne avec sa photo. Est-ce possible, et aussi comment enregistr mettre une image de fond type jpeg [ par med93100 ] Desolé pour le double poste j'ai appuyer sur entrer par mégar donc est ce que c'est possible que dans mon programme que je puisse metre une image de Problme avec une région à déplacer [ par ender27 ] Bonjour,J'aimerais savoir si quelqu'un sait déplacer ou copier une région préalablement définie sur une image ?????En gros, j'aimerais copier (dans un Delphi/Directx : Plus d'image en grande résolution [ par Centauriel ] Bonjour,  Moi et mes collègues développons un petit jeu 3D avec directx. Le jeu fonctionne parfaitement en basse résolution. Quand la résolution dépas Comment connaitre la position d'un clic dans un Image ? [ par vieuxpere ] Bonjour,Je souhaiterais obtenir les ordonnées et abcisses de mon clic dans un composant Image.En fait je veux obtenir la position horizontale d'un com comment ajout une image a une base de donnée [ par hengued ] salut tous le monde ,je cherche comment ajouté un enssembles des images a une base de donnée ,et comment l'enrestire cet image dans ma application;voi Clic dans une image pour obtenir position --> "Transtypage de classe incorrect" [ par vieuxpere ] Bonjour, je souhaite qu'en cliquant sur mon bouton (boutton1) j'ai la position (x, y) de la souris à l'instant T sur mon image (image1), à noter que m


Nos sponsors


Sondage...

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

  
  

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)