Codes sources Delphi349 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Voici une fonction pour imprimer un TBitmap

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.

Manipulation simple de Liste.

Un truc tout simple pour créer des boutons et des labels sur plusieurs lignes au moment de la conception.

Voici la méthode à suivre :
- Faire un clic droit sur la fiche ;
- Choisir "Voir comme texte" ;
- Chercher le composant dont vous voulez modifier le caption ;
- Modifier la propriété Caption comme indiqué ci-dessous dans le code en ajoutant des #13 ( caractère retour chariot ) ;
- Faire de nouveau un clic droit ;
- Choisir "Voir comme fiche".

Cette méthode ne fonctionne pas avec TButton ou TEdit.

Ceci est pour corriger le problème de Delphi sur TRadioGroup.SetFocus, car dans ce cas le focus n'est pas placé sur un des boutons du composant. Le clavier n'est donc ensuite pas utilisable pour changer la valeur du RadioGroup.
Le code présenté ici permet de mettre le focus directement sur l'un des boutons du groupe.

Ce source présente une méthode simple pour enregistrer et lire des composants dans un fichier.

La description de la méthode employée est dans les commentaires du source.
Attention : dans le cas de sauvegarde de composants personnalisés, seules les propriétés ( au sens POO ) sont enregistrées.

Pour tester la méthode, il suffit de lancer l'application. De créer un panneau avec le bouton "créer". Puis de l'enregistrer dans un fichier avec le bouton "sauver...". Ensuite pour relire le fichier il suffit de détruire le panneau actuel, ou de fermer/relancer l'application. Le bouton "Charger" permet alors de lire une sauvegarde du panneau avec tous ses boutons.

Pour le défi Pascal 2012, il s'agit de réaliser un jeu librement inspiré d'un célèbre jeu de plateau créé par Max Kobbert : le Labyrinthe.
Il en existe plusieurs variantes mais rien ne vous empêche de créer la vôtre !

Le défi 2012 n'a aucune contrainte de plateforme ni de compilateur. Il est accessible tant aux débutants qu'aux développeurs confirmés : l'originalité et la créativité peuvent compenser le côté purement technique.

Règlement du défi
Téléchargez l'exécutable seul

Sprays de formes et de comportements divers.

Création d'un composant WinForm personnalisé dérivant du type System.Windows.Forms.UserControl. Ce composant est une horloge analogique avec ou sans l'aiguille des secondes.

La méthode proposée ici est l'adaptation à Delphi 8 de l'article de CGI : Création d'un contrôle WinForm pour .Net.

Associer une extension à son application.

Comment énumérer les clés et valeurs des registres.

Le but de ce logiciel est d'évaluer une expression booléenne à partir d'une combinaison de ses variables et d'en construire la table de vérité.
Il complète mon autre application QMCP disponible en téléchargement sur ce site.
BooleanEvaluator accepte jusqu'à 30 variables et reconnait les opérateurs AND, OR, NOT et XOR.
Le principe est de transformer une expression In-Fix en une expression Post-Fix plus facile à évaluer et qui supprime les parenthèses.

L'application est développée sous « DELPHI community edition v10.3 » qui est gratuite moyennant quelques conditions.
Les sources sont fournies, ainsi qu'un manuel au format PDF que je pense assez complet.

Pour installer l'application BooleanEvaluator : ... Voir la suite

Voici un programme sur une structure de données : les arbres n-aires.

Ce programme montre comment obtenir la liste des polices disponibles, plus quelques petits gadgets.

Bloquer le clavier et la souris.
Attention, il faut prévoir un déblocage dans le temps ! Sinon, il faut fermer l'application avec Alt-Ctrl-Sup.

Comment avoir un curseur personnalisé dans votre application.

Jeu d'échecs écrit par Marcel Poots, incluant un adversaire artificiel.

Le code source a été légèrement retouché, sans conséquence sur le fonctionnement du programme, pour être compilé avec Delphi 7.

Le jeu a une option "Internet" (non testée). Cette fonctionnalité est basée sur la bibliothèque Indy.

Petite démo pour montrer le principe d'utilisation de TBitMap.ScanLine.
Ce programme montre aussi un exemple simple de thread auxiliaire afin de rendre fluide une animation sans avoir recours à DoubleBuffered qui ralentit énormément les animations.
L'utilisation de GetTickCount permet d'avoir une vitesse d'animation à peu près constante suivant les PC.

Pour pallier au fait que les aperçus ne sont que des images fixes... Voici la version compilée du programme : source0069.exe.zip [200Ko].

Comment exécuter les fichiers CPL de votre système.

Pour créer ce lien il faut suivre les étapes suivantes :
1 - Ajouter un label sur une fiche ;
2 - Définir un police avec le style souligné ( Label1.Font.Style=[fsUnderline] ) ;
3 - Modifier le curseur du label ( Label1.Cursor=crHandPoint ) ;
4 - Ajouter un Hint sur le label ( Label1.ShowHint=True et Label1.Hint='Visitez mon site :' ) ;
5 - Sur le OnClick ajouter le code ci-dessous :

Procedure TForm1.Label1Click(Sender: TObject);
Begin
ShellExecute(Handle,'OPEN','http://nono40.fr.st',Nil,Nil,SW_SHOW);
End;

Il faut ajouter ShellApi dans le Uses pour que le code fonctionne.