Codes sources Delphi353 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Afficher le nom des constantes de définition d'un type énuméré.NOTES : C'est un truc tout simple pour afficher les nom de constante utilisés dans un type énuméré. Il permet aussi de déterminer l'indice dans le type en ne connaissant que le nom.Par exemple si on définit un type enuméré du style TMonTypeEnum=(mtUN,mtDEUX,mtTROIS), Delphi traite les variables de ce type comme des variables de type ordinal. Il n'est pas directement possible d'en afficher le nom comme on affiche un entier avec IntToStr. Le plus souvent on utilise un Case Of pour donner les noms :

Var t:TmonTypeEnum;

...

Case t Of

mtUn:LeNom:='mtUN';

mtDeux:LeNom:='mtDEUX';

mtTrois:LeNom:='mtTROIS';

End; ... Voir la suite

Ce programme affiche la liste des moniteurs NOTES :

Attention : ne fonctionne pas avec Windows95.

Différencier les touches ENTER des pavés numériques et alphabétiques NOTES : Les évènements OnKeyDown et OnKeyup, ne permettent pas de faire cette différence. Seule l'interception des messages windows permet de faire la différence. Pour plus d'information il faut regarder l'aide en ligne sur le message WM_KEYDOWN.

Mettre une image en fond d'un TStringGridNOTES : Cet exemple montre l'utilisation de l'évènement OnDrawCell d'un TStringGrid pour en changer le dessin.

Une image est ajoutée en fond, elle suit les déplacements des cellules en fonction des scrollbars. C'est à dire qu'une cellule est toujours située sur la même partie de l'image.

De plus l'utilisation de la fonction API DrawText permet de centrer le texte des cellules à la fois horizontalement et verticalement.

Dégradé, fixe et animé, dans un StringGrid.

Dégradé entre deux couleurs.

Effet mosaïque en utilisant Scanline.

Voici une fonction qui permet de faire "beeper" le haut-parleur de votre unité centrale.

Je vous propose un petit tour en forêt autour d'un feu de camp. Le tout en 3D avec Firemonkey et avec moins de 90 lignes de codes !
Je n'utilise pas de moteur de particules pour gérer les flammes mais simplement des TPlane que je déplace, réduis et fais tourner pour donner une illusion de flamme.

Petit bonus, le trackbar en bas de a fenêtre permet de simuler la présence du vent plus ou moins fort sur l'axe X. Pour de plus amples informations, j'ai commenté le code source fourni.

A part la piteuse texture utilisée pour les flammes (je ne suis pas graphiste), les autres textures ne sont pas de moi : elles proviennent d'images libres trouvées sur internet.

Approximation de la valeur de pi par la méthode de Monte-Carlo.

Softice est un débogueur (pour détecter les bugs d'une application. Il permet d’exécuter une application (plus précisément Windows) pas à pas.

Cela permet de savoir précisément où l'erreur existe.
Il permet aussi de voir le contenue de la mémoire et des registres à un moment d’arrêt.
Il est utile de s'avoir si Softice est en route, pour éviter les abus sur votre création par exemple.

SoftIce n'est pas à mettre entre toutes les mains, novice s'abstenir.

Ce source complète ce code source. L'objet enregistré est ici un TFrame plutôt qu'un TPanel. Cette différence est importante car le TFrame contient le code des évènements. Il est ainsi possible de sauvegarder dans le fichier la liaison entre les évènements des composants et le code associé. Pour que ceci fonctionne, les codes des évènements doivent être déclarés dans la partie publiée du TFrame.
Notez aussi que les méthodes présentées ici sont WriteComponentRes et ReadComponentRes, elles permettent d'enregistrer directement dans un fichier sans passer par un flux. Si vous utilisez les méthodes décrites dans Voir la suite

Copie des propriétés publiées d'un composant.
A noter que cette méthode ne copie pas les évènements.
Seules les propriétés publiées ( section published ) sont enregistrées.

Voir ici pour une description complète de cette méthode : Utilisation des fichiers typés sous Delphi 8.

Comment détecter et appliquer les thèmes sombres ou foncés selon l'environnement de la cible.

Ce source a pour but de montrer comment modifier les droits d'un compte pour des fonctions particulières. Par exemple pour la sauvegarde d'une partie de la base de registre un compte doit avoir le droit SE_BACKUP_NAME.

L'utilsation de la fonction ci-dessous est simple :
- Pour activer un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',True);
- Pour desactiver un droit :
LoggedSetPrivilege(GetCurrentProcess,'SeBackUpPrivilege',False);

Sous Windows NT (NT4, 2000, XP, 2003, etc) il n'est pas possible de supprimer directement une clé qui n'est pas vide. Cette fonction se charge de réaliser la suppression récursive des éléments contenus dans la clé avant de la supprimer.

Exemple d'utilisation de l'objet TMatchCollectionEnumerator de l'unité RegularExpressions.

Version simplifiée d'un exemple trouvé dans la documentation de Delphi :

http://docwiki.embarcadero.com/CodeExamples/XE2/en/TMatchCollectionCount_(Delphi)

L'objet TMatchCollectionEnumerator permet de parcourir une collection de correspondances.

Compilation testée avec Delphi 10.1.

Ce programme permet à l'utilisateur de dessiner des rectangles et/ou des ellipses sur la fenêtre du programme. Ensuite il supprime l'intérieur des figures spécifiées et la fenêtre devient transparente à ces emplacements.

Ce source montre comment activer le mode veille.