Codes sources Delphi344 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

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.

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

le programme Tree.pas permet affiche un Sapin de Noël avec lequel on peut créer des animations lumineuses et les tester, le but n'est pas d'afficher un beau Sapin graphique mais de créer une figure de 8 LED avec un ordre d'affichage et un temps d'allumage et de la tester avant de générer un fichier TXT de cette figure qui s'intègrera dans un programme fait pour un ATTiny13 (ou pour plus de mémoire un ATTiny45 ou 85) écrit pour le logiciel Arduino ou pour le logiciel Amtel Studio 6.2. [b][/b][b][/b]

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.

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);

CmdMax est une petite application Windows permettant de maximiser la fenêtre de l'interpréteur de commandes, afin que celle-ci occupe toute la hauteur et toute la largeur de l'écran. Il est également possible de passer des paramètres à l'application pour choisir la position de la fenêtre et ses dimensions (voir exemples dans les commentaires du code source).

CmdMax a originellement été écrit en C.

La compilation de CmdMax a été testée avec Delphi 7, Delphi XE2 et Free Pascal 2.6.4.

Ce programme montre une méthode basée sur le APIs pour obtenir la liste des icônes du bureau et éventuellement de modifier leur position.
Cette méthode explique la mise en place d'une zone mémoire accessible par l'application dont on veut lire/modifier des informations.

Jeu de mémoire de Mateusz Janda.

Version française par Roland Chastain.

Compilé avec Delphi 10.1 Berlin.

L'itinéraire du Cavalier.

Démonstration d'un algorithme pour trouver un chemin passant sur toutes les cases du damier, sans jamais passer deux fois sur la même case. Adapté d'un script Lua.

https://rosettacode.org/wiki/Knight%27s_tour#Lua

Exemple d'utilisation de la bibliothèque Cairo.

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.

Voici une fonction pour imprimer un TBitmap

Ce source montre comment arréter ou redémarrer Windows.

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

une horloge binaire sur votre bureau

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.

Ce programme permet de jouer au Taquin.

Une image est montrée à l'utilisateur puis elle est "mélangée" et l'utilisateur doit la reconstituer en déplaçant le "trou".

• Téléchargez l'exécutable.

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