begin process at 2013 05 26 05:00:34
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Composants

 > LISTBOX TRANSPARENTE CRÉÉE DYNAMIQUEMENT SUR UNE IMAGE

LISTBOX TRANSPARENTE CRÉÉE DYNAMIQUEMENT SUR UNE IMAGE


 Description

Cliquez pour voir la capture en taille normale
Ce composant créé par Walter Irion est bien utile. Je donne ici un exemple d'utilisation de ce composant créé dynamiquement sur une image de fond.

A noter que la propriété Parent de la ListBox créé ainsi dynamiquement doit utiliser un contrôle fenêtré (TWinControl). Ici c'est donc la fiche principale
qui est parent.

J'ai mis également un évènement OnClic pour le composant afin de vérifier son fonctionnement

Source

  • Ceux qui veulent installer le composant, l'unité d'origine est fournie. Mais l'exemple fourni utilise le composant par sa définition dans l'unité UTransparentListBox.Pas
Ceux qui veulent installer le composant, l'unité d'origine est fournie. Mais l'exemple fourni utilise le composant par sa définition dans l'unité UTransparentListBox.Pas


 Conclusion

C'est un code tout simple et le mérite en revient à Walter Irion.
Je trouve très pratique son unité et je voulais vous en faire profiter

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture LISTES ÉNUMÉRÉES : CONCATÉNATION ET UTILISATION DES FONCTION...
Source avec Zip Source avec une capture GESTION D'UN TYPE ENUMÉRÉ DANS TLISTBOX
Source avec Zip Source avec une capture SPLIT PARTIES D'UN FICHIER ET PRODUCTION DE NOMS DE FICHIERS
Source avec Zip Source avec une capture EXEMPLES DE THREADS
Source avec Zip Source avec une capture GESTION DE CASES À COCHER PERSONNALISÉES DANS UN STRINGGRID

 Sources de la même categorie

Source avec Zip CSV, CSVLIST, TSTRINGLIST par f0xi
Source avec Zip Source avec une capture COMPOSANT TCYBOOK - ALBUM PHOTO VIRTUEL par MAURICIO
Source avec Zip PANEL ET CHECKBOX par francoisbalsan
Source avec Zip COMPOSANT BOUTON 4 COTÉS ARRONDIS par francoisbalsan
Source avec Zip BOUTON DE COULEUR ESSAI SCANLINE par francoisbalsan

 Sources en rapport avec celle ci

Source avec Zip COMPOSANT BOUTON 4 COTÉS ARRONDIS par francoisbalsan
Source avec Zip BOUTON DE COULEUR ESSAI SCANLINE par francoisbalsan
Source avec Zip COMPOSANT TAIS_DECODEUR par jponselle
Source avec Zip Source avec une capture AUTOMATISER LES MISES À JOUR SUR BDD MYSQL par MAURICIO
Source avec Zip Source avec une capture UN COMPOSANT POUR LA TRANSPARENCE LORS DU DÉPLACEMENT DE LA ... par cirec

Commentaires et avis

Commentaire de cantador le 25/05/2012 10:27:50 administrateur CS

si tu ajoutes du texte faisant apparaître la barre de scroll vertical
et que tu fais défiler rapidement.
alors, il se produit un souci d'affichage (écran noir..)
il y a d'ailleurs un avertissement de l'auteur :
*  To break it short: TTransparentListBox is only suitable
*  for non-scrolling lists.

Commentaire de Jean_Jean le 25/05/2012 15:01:51

Salut Cantador,

Merci pour ta remarque.
Effectivement c'est pourri... J'ai publié ça rapidement, seul m'intéressait le problème de la transparence.
Maus tu as raison, sans une gestion de l'affichage correct, ça vaut pas le coup. Je perfectionnerai dès que je me repencherai dessus.

Par ailleurs, si on doit scroller sur une image, il vaut peut-être mieux trouver un autre mécanisme avec des bitmap et du textout sur canvas de bitmap... Surtout que je trouve horrible les scrollbars...

Donc à suivre

Commentaire de Jean_Jean le 25/05/2012 15:07:11

@ Yanb qui échangeait au sujet de LBT.Free sur le Forum!

L'instruction Free est logique dès que l'on créer un objet dynamiquement. Cependantje suis d'accord avec toi, il y a un problème que signalait d'ailleurs Walter avec les scrollBars.
Tu as raison, avec lbOwnerDrawFixed, il y a une erreur, mais pas avec lbStandard...

Bon il va falloir perfectionner ça...

A+

Commentaire de cantador le 25/05/2012 15:25:36 administrateur CS

pour la transparence, j'ai trouvé pas mal les composants de
dephicool (coolform et TTransparentMemo)

Très intéressant et soigné : TStainGlass

Commentaire de Jean_Jean le 25/05/2012 19:31:47

oui, je connaissais ces codes sauf TStainGlass que je ne trouve pas.
Ils sont très adaptés pour plein de cas... mais là dans ce code, ce qui m'intéressait c'était le composant et ses propriétés. il semble qu'il y ait quelques soucis...

Avec delphi 5, j'utilisai une classe de composants super class de chez Alpha Control. Je l'ai utilisé également avec D7 perso... Mais ça me fatigue de tout réinstaller à chaque fois : changement d'ordi, pb de licence etc...

C'est pour ça que je suis réticent à tout réinstaller et installer en particulier une foule de composants divers.... Il faudra que je regarde ceux de notre Mauricio préféré. Il a peut-être ce que je cherche...

A+

Commentaire de cantador le 25/05/2012 21:13:36 administrateur CS

Mauricio, vite tu as un client !

Commentaire de cantador le 25/05/2012 22:29:45 administrateur CS

en fait il s'agit du  TStainedGlass
qui est free et fourni avec une démo
je ne sais plus où j'ai trouvé ce truc là
mais si ça t'intéresse..

Commentaire de Jean_Jean le 26/05/2012 09:16:16

Ben oui ça m'intéresse! Soit tu m'envoie le compo pour que je l'étudie, soit tu le publie...

Commentaire de korgis le 26/05/2012 19:03:49

Salut,

on va éviter à Cantador des recherches longues, pénibles, et pas forcément fructueuses... à moins qu'il n'ait plus d'ordre que moi.
C'est ici: http://www.torry.net/vcl/forms/effects/stainedglass.zip

Commentaire de Jean_Jean le 27/05/2012 12:43:58

Merci Korgis,

  C'est un composant intéressant. Par contre il ne s'agit pas d'une ListBox. Il reste donc à tenter d'intégrer un objet TListBox qui serait dérivé de celui-ci. ça mérite d'y passer un peu de temps...

Commentaire de cantador le 28/05/2012 01:02:06 administrateur CS

on va éviter à Cantador des recherches longues, pénibles, et pas forcément fructueuses...
hummmmmmhhhhhhhhhh...

Commentaire de cantador le 28/05/2012 01:06:14 administrateur CS

@korgis :

qu'as-tu fait entre le le 17 mai 2003 à 04:07:44
et ton dernier signe de vie le 27 mai 2012 à 23:28:08 ?

ça fait des longues vacances quand même...

Commentaire de korgis le 28/05/2012 10:02:42

"@korgis : qu'as-tu fait entre le le 17 mai 2003 à 04:07:44
et ton dernier signe de vie le 27 mai 2012 à 23:28:08 ?"
Sur delphifr.com : 6 commentaires, 15 messages.
In real life ? houlala...
Mais ai-je bien compris la question ?

Commentaire de MAURICIO le 28/05/2012 10:52:12 administrateur CS

Salut à tous,

pour la transparence d' une TListBox, il faut repeindre tous les items à cause donc du scrolling.
J' ai fait la même chose sur ma TcyDBAdvGrid (Propriété FullRepaint qui doit être à true).

A+

Commentaire de Jean_Jean le 28/05/2012 12:10:50

Salut Mauricio,
  Je me suis douté qu'il fallait écrire du code...
  Chouette, un composant de plus à tester...
  Je voulais rester simple, au pire je renverrai vers ton code...
Merci

Commentaire de cirec le 28/05/2012 13:49:54 administrateur CS

Salut,

petite parenthèse "au sujet de LBT.Free sur le Forum!"

La règle de base veut que l'on libère tout objet ou mémoire alloué dynamiquement.
et il y a les composants ... ceux qui acceptent un paramètre "Owner" dans le constructeur

"Owner" ou "propriétaire" qu'il ne faut pas confondre avec le Parent (les deux peuvent avoir la même valeur)
c'est lui qui se chargera de libérer le composant à la fin (sauf si il vaut "nil")

MonCompo := TMonCompo.Create(Self);
c'est Self (qui dépend du contexte) qui se chargera de libérer MonCompo.

MonCompo := TMonCompo.Create(Form1);
c'est Form1 qui se chargera de libérer MonCompo.

MonCompo := TMonCompo.Create(nil);
c'est le programmeur qui se chargera de libérer MonCompo.

Commentaire de Jean_Jean le 28/05/2012 19:52:12

Merci Cirec pour cette précision.
A noter absoluement au rouge dans nos antisèches
J'en tiendrai compte dans mes MAJ  

Commentaire de aymenk le 15/06/2012 12:13:23

Salut Jean_Jean:
Apropos de Reinstaller les composants ...
<<...Avec delphi 5, j'utilisai une classe de composants super class de chez Alpha Control. Je l'ai utilisé également avec D7 perso... Mais ça me fatigue de tout réinstaller à chaque fois : changement d'ordi, pb de licence etc...>>

avant de chager de PC j Exporte les deux lien de la base de registre :

HKEY_CURRENT_USER\Software\Borland
HKEY_LOCAL_MACHINE\SOFTWARE\Borland
Apres réinstallation de delphi je double clic sur les deux fichier exporté a condition que je garde la même arborescence des mes composants.
par exemple je garde ma VCL dan E:\maVCL\...

Commentaire de Jean_Jean le 19/06/2012 07:26:53

Salut Aymenk,

    Merci pour ce conseil, cette astuce que je ne connaissais pas... La procédure d'installation de alpha control n'est pas très compliqué mais c'est comme toujours, il faut se souvenir de telle procedure telle autre, et de telles dizaines d'autres...
La même arborescence est une technique que j'avais déjà mis en place, ça permet au moins de retrouver ses petits...
Je vais noter ton astuce quelque part!

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Pb : Le composant internet de delphi [ par infohelp ] Bonjour je cherche le composant similaire d'acces a internet de visual basic (winsock) mais le meme avec les meme fonctions et qui prenent les proxy c Utiliser TIdMappedPortTCP """Composant Indyserver""" [ par PsyckoHia ] SaLuT je cherche a utiliser TIdMappedPortTCP qui se trouve dans Indy seveur , Est ce que qq'un peux me donner un exemple simple,à part celui qui est Composant clientsocket [ par MeuhMeuh ] Bonjour,Je voudrais savoir s'il est possible de positionner des FLAGS (RST,FIN,OOB...) quand on envoie des données avec le composant Client Socket, si Programme console et composant database [ par VTCFMAN ] Peut-on utiliser les composants Database dans un programme console avec ou sans module de données ?. Si non existe-t-il des des librairies permettant URGENT : problème d'installation de composant [ par Henri ] problème d'installationBonjour,Je vous remercie de résoudre le problème suivant :Je voudrais installer un composant téléchargé sans son fichier *.pas composant webbrowser [ par vib ] Bonjour, Je débute en Delphi.Je désire récupéré le contenu d'une page Html à partir du composant Webbrowser.J'ai utilisé ce composant avec VB, proprié TNMPOP3 composant [ par Steph ] j'ai essayé d'utiliser le composant TNMPOP3 (FastNet) pour afficher le nombre de messages reçus (non lus ?) dans ma boite aux lettres Outlook.Pour cel Création dynamique de composant [ par Amadeus ] Comment créer dynamique des contrôle TImage ?Je voudrais créer sur une Form autant de TImage que d'image se trouvant dans un répertoire donné. Comment composant de l'explorateur [ par vib ] Bonjour,Quelqu'un pourrit il me dire ou trouver le composant qui liste les fichiers dans l'explorateur et qui permet d'un simple clic sur l'entête de propriété d'un composant à partir de 'components' [ par vib ] Je désire modifier les propriétés de n'importe quel composant sur une feuille.Je me suis servi de la propriété 'components'de la feuille avec l'index


Nos sponsors


Sondage...

CalendriCode

Mai 2013
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Photothèque

A découvrir



 
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 : 1,061 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales