IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

Tous les téléchargements de Nono40

Expert éminent sénior

    Associer une icône à une extension

    0
    0
    Associer une icône à une extension afin d'ouvrir votre application directement en double-cliquant sur le document.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 3,2 Ko - Auteur : Nono40 +

    Exemple d'utilisation de l'objet TList

    0
    0
    Exemple d'utilisation de l'objet TList.
    Ce source présente un exemple d'utilisation d'un objet TList associé à un Record. Cet objet permet de gérer facilement des listes d'objets, son utilisation est beaucoup plus simple qu'il n'y parait. L'exemple donné dans le source présente les fonctions de base de gestion d'un TList avec la gestion de reservation/libération de la mémoire en fonction de la création/destruction des éléments de la liste.

    Licence : Non renseignée - Publié le 08/02/2013 - Taille 4 Ko - Auteur : Nono40 +

    Lire numéro de version exécutable

    0
    0
    Lecture du numéro de version de l'exécutable tel qu'il apparait dans les options du projet.
    NOTES : Pour que votre application contienne un numéro de version standard il faut suivre les opérations suivante :

    - Menu Projet->Options...

    - Onglet "Numéro de version"

    - Cocher la case "Inclure les informations de version dans le projet"
    Ce numéro apparait aussi dans l'explorateur lors d'un click droit sur le fichier .exe.

    Ce source corrige celui donné en exemple dans l'aide de Delphi sur la lecture du numéro de version

    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2,6 Ko - Auteur : Nono40 +

    Dessiner dans le systray

    0
    0
    Dessin direct d'une icône affichée dans le systray.
    NOTES : Ce programme affiche des barres de couleurs défilantes dans le systray. C'est un exemple de création dynamique d'icône afin de dessiner dans le systray.

    Pour plus d'onformation sur l'utilisation des icones dans le systray, regardez le source 0027.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 3,3 Ko - Auteur : Nono40 +

    Mise à l'heure PC

    0
    0
    Ce source présente une fonction simple de mise à l'heure du PC à partir d'une application Delphi. Elle utilise la fonction API SetSystemTime, l'heure passée en paramètre de cette fonction doit être celle de Greenwich. Elle est donc corrigée à l'aide de la fonction API GetTimeZoneInformation afin de déterminer le décalage horaire dû au fuseau, et le décalage dû à la période été/hiver.

    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2,5 Ko - Auteur : Nono40 +

    Dll ne contenant que des icônes

    0
    0
    Pour stocker vos icônes dans une dll, rien de plus simple.
    Licence : Non renseignée - Publié le 08/02/2013 - Auteur : Nono40 +

    Synchroniser deux TListBox

    0
    0
    Synchroniser deux ListBox afin que le premier élément affiché soit le même. NOTES : La synchronisation est assurée aussi pour avec l'utilisation de la roulette.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2,1 Ko - Auteur : Nono40 +

    Tester si fichier déjà ouvert

    0
    0
    Tester si un fichier est déjà ouvert par une autre application.NOTES : Le principe de détection est basé sur un essai d'ouverture et le test du code d'erreur 32 indiquant une violation de partage.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 1,8 Ko - Auteur : Nono40 +

    Supprimer scintillement avec DoubleBuffered

    0
    0
    Supprimer le scintillement des rafraichissements d'un fenêtre. NOTES : C'est un truc tout simple, et je ne sais plus ou je l'ai vu la première fois...

    Ce source est aussi un exemple d'utilisation de la propriété ScanLine du TBitMap pour effectuer un dessin très rapide. Pour soucis de rapidité, le dessin du BitMap est réalisé en assembleur, c'est un des moments ou l'assembleur est le plus utile.

    Le code présenté ici montre une fenêtre de sélection de couleur un peu comme celle de Windows. Activez ou non le double-buffer et déplacez rapidement le curseur de sélection de la couleur. Vour verez ainsi la différence de mise à jour.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 4,9 Ko - Auteur : Nono40 +

    Trier TStringGrid

    1
    0
    Trier un TStringGrid suivant la première colone saisie. NOTES : Un truc tout simple pour ceux qui cherchaient...

    Attention, c'est un tri à bulles. Il peut être lent si la taille de la grille est importante.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 1,7 Ko - Auteur : Nono40 +

    Utilisation de ReadDirectoryChangesW

    0
    0
    Programme d'exemple de l'utilisation de la fonction ReadDirectoryChangesW. NOTES : Ce programme montre l'utilisation de la fonction de sureveillance d'un répertoire de Windows NT.

    C'est utile pour suivre les modifications apportées aux fichiers dans un répertoire.

    Par exemple si vous affichez la liste de certains fichiers dans une ListBox ou un TreeView, il est possible de mettre la liste à jour seulement quand un fichier est ajouté et/ou supprimé. La surveillance est effectuée dans un autre Thread afin de ne pas bloquer l'application principale.Attention, ce programme ne fonctionne que sous Windows NT4, Windows 2000 et Windows XP et supérieurs
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 4 Ko - Auteur : Nono40 +

    Réserver de la mémoire physique

    1
    0
    Réserver une partie de la mémoire en mémoire physique et non virtuelle. NOTES : ATTENTION : Se source ne fonctionne qu'avec Windows 2000 Pro et Windows XP Pro. D'autre part si vous êtes débutant ne l'utilisez pas, car des erreurs dans l'utilisation des fonctione AWE peut avoir des conséquences graves.Cet exemple est la traduction de celui de MSDN situé ici :

    http://msdn.microsoft.com/en-us/library/Aa366531Pour que la réservation fonctionne, il faut que l'utilisateur est le droit de verrouiller des pages en mémoire. Ce n'est jamais le cas par défaut même pour les sessions administrateurs. Pour ajouter ce droit, il faut procéder comme suit ( Windows 2000 ... Voir la suite
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 3,2 Ko - Auteur : Nono40 +

    FindFirst FindNext en récursif

    0
    0
    Utiliser FindFirst en récursif pour scruter les sous-répertoires PRÉSENTATION : Utiliser FindFirst en récursif pour scruter les sous-répertoires

    ZIP : Téléchargez le zip : miroir 1 , miroir 2 APERÇUS : NOTES : Cette exemple montre l'utilisation des procédures FindFirst, FindNext et Find close de manière recursive pour compter les fichiers d'un répertoire.

    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2,2 Ko - Auteur : Nono40 +

    Utilisation de la fonction AnimateWindow

    0
    0
    Présentation de la fonction API d'affichage d'une fenêtre avec animation
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 3,8 Ko - Auteur : Nono40 +

    Images en fond de TStringGrid

    0
    0
    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.

    Licence : Non renseignée - Publié le 08/02/2013 - Auteur : Nono40 +

    Différencier les touches ENTER

    0
    0
    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.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 1,9 Ko - Auteur : Nono40 +

    Lister les moniteurs

    0
    0
    Ce programme affiche la liste des moniteurs NOTES :

    Attention : ne fonctionne pas avec Windows95.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2 Ko - Auteur : Nono40 +

    Hint par cellule de TStringGrid

    0
    0
    Méthode pour associer une bulle d'aide différente par cellule d'un TStringGrid.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 1,8 Ko - Auteur : Nono40 +

    Nom des types énumérés

    0
    0
    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
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2 Ko - Auteur : Nono40 +

    Utilisation de curseurs personnalisés

    0
    0
    Utilisation dans une application de curseurs stockés sous forme de fichier ou de ressource. NOTES : Cette méthode est décrite dans l'aide en ligne de Delphi sur la propriété TScreen.Cursors.

    Ce programme n'est qu'une démonstration de la méthode.Les curseurs ajoutés peuvent être créés à partir de l'éditeur d'image de Delphi. Ce programme propose deux méthode de stockage des curseurs :

    - La méthode à partir d'un fichier de ressource est préférable si les curseurs utilisés n'ont pas besoin de changer après l'écriture de l'application. Car le .RES étant intégré dans le fichier .EXE, il n'est pas necéssaire de garder les fichiers de curseurs pour la diffusion de l'application.

    - La méthode à partir d'un fichier . ... Voir la suite
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 2,5 Ko - Auteur : Nono40 +