AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 12:07:51
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 !

BARRE DE SÉLECTION GRAPHIQUE


Information sur la source

Catégorie :Trucs & Astuces Classé sous : sélection, graphique, combobox, menu, listbox Niveau : Débutant Date de création : 28/12/2005 Vu / téléchargé: 6 718 / 1 348
Auteur : asciidefond Ecrire un message privé
Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Exemples de barres de sélection graphique sur ComboBox/ListBox/StringGrid/Menu/PopupMenu
 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de cirec le 28/12/2005 12:06:53 administrateur CS

Salut,
Dans un premier temps l'effet est génial
Mais il y a trop de choses inutiles à mon avis :
1°)
Dans la clause Uses tu peux retirer ceci car inutilisé
XPStyleActnCtrls, ActnList, ActnMan,
  StdStyleActnCtrls, ToolWin, ActnCtrls,ActnColorMaps
  
2°)
Dans tous les évènements OnAdvencedDrawItem (dans l'inspecteur d'objets) tu peux mettre
la même procédure à savoir : Menuun1AdvancedDrawItem et du coup supprimer tous les autre procédure
...AdvancedDrawItem
    procedure goRowselect1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure goEditing1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure PopupMenu31AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure PopupMenu21AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure PopupMenu11AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure SMC1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure SMB1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure SMA1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure SousMenu1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure Quitter1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure Menutrois1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);
    procedure Menudeux1AdvancedDrawItem(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; State: TOwnerDrawState);


3°)
Dans l'évènement OnClick de goEditing1 tu peux mettre Button2Click
Dans l'évènement OnClick de goRowSelect1 tu peux mettre Button1Click
Et donc tu peux supprimer les deux évènements OnClick :
procedure goRowselect1Click(Sender: TObject);
procedure goEditing1Click(Sender: TObject);

Voilà c'est tout ce que j'ai remarqué pour l'instant

@+
Cirec

signaler à un administrateur
Commentaire de asciidefond le 28/12/2005 13:51:59

salut Cirec,
Dabord merci pour tes commentaires constructifs sur les clauses uses et les evènements, mais je ne comprend pas trop l'astuce pour les évènements OnClick des Button1 & Button2 (peut être une grosse fatigue de ma part?).
@+

signaler à un administrateur
Commentaire de cirec le 28/12/2005 16:04:10 administrateur CS

Pour les OnClick tu vas dans l'inspecteur d'objets onglet évènement et dans l'évènement OnClick tu remplaces goRowselect1Click par Button1Click en cliquant sur la dropDown list à droite l'évènement.

si toute fois ce n'était pas suffisamment claire je peut envoyer ton code modifier ce sera peut être plus simple à comprendre si oui tu m'envoies ton mail par message privé

@+
Cirec

signaler à un administrateur
Commentaire de asciidefond le 29/12/2005 03:03:22

Ce soir tout est limpide j'ai les yeux en face des trous(3h00 du matin), cette solution est toute aussi bien pratique et surtout économique en code que les précédentes. Merçi à toi Cirec et @+.

signaler à un administrateur
Commentaire de cruchacode le 08/01/2008 09:32:14

Ne serait-il pas judicieux de créer les objets bitmap et icon une seule fois... lors de l'initialisation (du pgm ou d'un composant encapsulant les fonctionnalités proposées) ?

La conception objet serait à creuser... un chouilla... C'est tout facile et tellement plus pratique pour la conception d'applis, les tests et la réutilisation...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Sélection d'une ListBox [ par Metrox ] 'lut all,j'ai un problème:Comment faire pr dire que l'élément 6 de la listbox soit sélectionné (pas récupérer le contenu ni rien, juste sélectionné, c Forcer la sélection d'un item de ListBox [ par Barth_taulier ] Bonjour, je vous explique ce que je voudrais faire: Je voudrais pouvoir sélectionner un item dans ma ListBox logiciellement et non manuellement ( listbox et combobox en delphi [ par romualdus ] bonjour a tous, voici mon probleme,j'ai un listbox qui contient 10 elements et je souhaiterais les affectes 1 a 1 dans 10 edit  differents(l'ordr sens de l'affichage du combobox [ par yannba ] J'ai un combobox tout au bas de mon application. Lorsque l'utilisteur clique sur la fleche, le menu déroulant est caché par la barre.Est-ce listbox media player [ par ced55957 ] bonsoir les developpeur!!!!Voila j'ai un petit souci!!!! j'ai créer un code qui importe mes musiques dans un listbox, je clique sur lecture la mu une petite question??? [ par ced55957 ] bonjours les delphinautesvoila j'a   i créer un lecteur mp3, j'importe 2 musiques dans le listbox je clique sur lecture et ça mar graphique tshape [ par feuerstein ] Bonjour,J'utilise un tshape pour faire un graphique et j'ai plusieur TForm.Comment faire pour que le graphique dans un Tshape ne soit pas effacé exemple de défilement de menu [ par liza06_1 ] simple exemple pour le défilement d'un menu de guache à droite et de haut en bas, soyez indulgent car je suis débutante et merci infiniment. Ajouter et extraire du text d'un combobox [ par Francky23012301 ] Salut à tous, J'ai deux question par rapport aux combobox : *Je souhaite insérer dans un item de ma combobox, le texte que je viens d'entrer dans ma Remplir une combobox (stdCtrls) [ par njulio ] Salut chers amis, je débute en delphi. Mon problème aujourd'hui est de savoir comment remplir une combobox à partir des enregistrements


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


Samsung CLX-3175FW Multifunction Laser Colour Printer Laser
Entre 389€ et 469€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo plage de nudistesPhoto plan seul

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
Temps d'éxécution de la page : 0,546 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.