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

Tous les téléchargements de Nono40

Expert éminent sénior

    RegSaveKey du TRegistry sous NT/2000/XP

    0
    0
    L'utilisation de cette fonction nécessite des droits supplémentaires. La fonction donnée dans le source sur la modification des droits d'un compte permet d'ajouter le droit SE_BACKUP_NAME au compte en cours avant d'effectuer la sauvegarde.
    Licence : Non renseignée - Publié le 13/02/2013 - Taille 2,5 Ko - Auteur : Nono40 +

    Lecture d'une valeur de type REG_MULTI_SZ

    0
    0
    Ce n'est possible qu'en lecture car le TRegistry ne peut créer de valeur REG_MULTI_SZ. Mais c'est peut-être suffisant pour certains.
    Je n'ai essayé que sous XP, (W95 W98 et WMe n'ont pas de valeurs de type REG_MULTI_SZ ) mais je pense que le fonctionnement est le même avec W2000.
    Licence : Non renseignée - Publié le 13/02/2013 - Auteur : Nono40 +

    Modifier les droits d'un compte

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

    Réalisation d'une animation "effet tunnel"

    0
    0
    Cet exemple montre la mise en place d'un thread simple pour la gestion d'une animation simple.
    C'est une base de départ pour la réalisation de dessins sans utiliser DirectX ni OpenGL, ce qui est suffisant pour ce type d'animation.
    Code source - Licence : Non renseignée - Publié le 11/02/2013 - Taille 2,7 Ko - Auteur : Nono40 +

    Conserver un TImage lors de son redimensionnement

    0
    0
    Quand une application dispose d'un TImage servant de base de dessin avec align = alClent. Le Timage est redimensionné quand la fiche change de taille. Or le Bitmap conservé dans le TImage ne change pas de taille. Le programme donné ici permet de recréer le bitmap en conservant la partie d'image déjà créée.
    Code source - Licence : Non renseignée - Publié le 11/02/2013 - Taille 2 Ko - Auteur : Nono40 +

    Redimensionner une image JPG

    0
    0
    Changer les dimensions d'un fichier .JPG en gardant les proportions.
    Licence : Non renseignée - Publié le 11/02/2013 - Taille 2,2 Ko - Auteur : Nono40 +

    Utilisation de WriteComponentRes/ReadComponentRes

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

    Utilisation de WriteComponent/ReadComponent

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

    Copie des propriétés publiées d'un composant

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

    Lecture/écriture des fichiers typés avec Delphi pour .NET

    0
    0
    Voir ici pour une description complète de cette méthode : Utilisation des fichiers typés sous Delphi 8.
    Licence : Non renseignée - Publié le 09/02/2013 - Taille 5,8 Ko - Auteur : Nono40 +

    Classe NotifyIcon avec Winform

    0
    0
    Voir ici pour une description complète de cette méthode : Utilisation de la classe NotifyIcon.
    Licence : Non renseignée - Publié le 09/02/2013 - Auteur : Nono40 +

    Classe NotifyIcon avec VCLforms

    0
    0
    Voir ici pour une description complète de cette méthode : Utilisation de la classe NotifyIcon.
    Licence : Non renseignée - Publié le 09/02/2013 - Taille 4,7 Ko - Auteur : Nono40 +

    Appeler une méthode d'objet via son nom à l'exécution

    0
    0
    Cette méthode permet d'appeler que des méthodes publiées (section published), mais elle est trés pratique pour changer le traitement d'un programme en fonction des choix utilisateur.
    Licence : Non renseignée - Publié le 09/02/2013 - Taille 2,2 Ko - Auteur : Nono40 +

    Utilisation de l'alignement automatique

    0
    0
    Tous les alignements, déplacements et modifications de tailles sont effectués sans l'écriture d'une seule ligne de code. Tout est basé sur les propriétés suivantes diponibles sur tous les composants visuels :
    - Anchors : permet de fixer indépendamment les quatre cotés d'un composant sur le bord correspondant de la fiche. Tous les cotés fixés conservent leur distance par rapport au coté correspondant de la fiche. Par défaut les cotés haut et gauche sont fixés, ainsi le composant reste toujours à la même distance du coin haut-gauche de la fiche. En ne fixant que deux cotés formant un angle, le contrôle garde sa taille mais se déplace afin de conserver les distances par rapport à l'angle équivalent de la fiche. Si deux cotés opposés sont ... Voir la suite
    Licence : Non renseignée - Publié le 09/02/2013 - Taille 2,8 Ko - Auteur : Nono40 +

    Fonction DayOfTheYear pour Delphi 1 à 5

    0
    0
    Fonction DayOfTheYear pour Delphi 1 à 5.
    C'est pour ceux qui n'ont pas Delphi 6-7. Car à partir de cette version, cette fonction, comme beaucoup d'autres, est contenue dans l'unité DateUtils.
    Licence : Non renseignée - Publié le 09/02/2013 - Auteur : Nono40 +

    SetFocus sur un bouton d'un RadioGroup

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

    Utilisation d'un caret personnalisé

    0
    0
    Le Caret est le petit curseur clignotant situé dans les composants EDIT de windows. Ce curseur indique la position d'insertion des caractères saisis au clavier. Il est possible de modifier ce curseur.
    Licence : Non renseignée - Publié le 09/02/2013 - Taille 2,9 Ko - Auteur : Nono40 +

    Label vers un site internet

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

    Labels et boutons multilignes

    0
    0
    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.
    Licence : Non renseignée - Publié le 09/02/2013 - Auteur : Nono40 +

    Obtenir la position d'une fenêtre

    0
    0
    L'exemple donné ici montre comment obtenir et modifier la position d'une fenêtre, même si celle-ci est agrandie ou réduite. Il est ainsi possible de donner la position que doit avoir la fenêtre dans son état "normal" même si celle-ci est agrandie ou réduite. De même dans le cas d'une fenêtre réduite ( hors fenêtre principale ), il est possible d'obtenir et de modifier la position de cette fenêtre réduite.
    Licence : Non renseignée - Publié le 08/02/2013 - Taille 3,4 Ko - Auteur : Nono40 +