Compteur internet

sonnerie

Transparence 2000

Accueil
Nouveautés
Présentation
Captures d'écran
Téléchargement
Commander
Foire Aux Questions
Configuration (aide)
Revue de presse
Livre d'Or

Read Only Remover
Autres sharewares

Le compteur de vos connexions Internet !

Programmation sous Delphi

point_vide.gif (807 octets) point_vide.gif (807 octets)
point_vide.gif (807 octets)

  
Activation ou désactivation de l'économiseur d'écran
  
Forcer la mise en route de l'économiseur :
PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
Activer l'économiseur d'écran (configuration) :
SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_SENDWININICHANGE);
Désactiver l'économiseur d'écran (configuration) :
SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,SPIF_SENDWININICHANGE);
Etat de l'économiseur :
var etat : boolean;
begin
  SystemparametersInfo(SPI_GETSCREENSAVEACTIVE, 0,@etat, 0);
  if etat then label1.caption:='Economiseur Activé'
           else label1.caption:='Economiseur Désactivé';
end;

    

Delphi
Bannières
Liens

 

 

 

 

 

 

 

 

 

 

 

marge.gif (824 octets)

Personnaliser un Stringgrid
  

En utilisant l'événement OnDrawCell on peut modifier facilement la couleur de fond ou du texte pour chaque ligne et colonne.
  

Exemple Stringgrid.zip 5 Ko Delphi 2

 

Afficher des icônes dans un ListBox ou un ComboBox
  

Sur le même principe de fonctionnement que le StringGrid, un exemple montrant comment afficher des icônes dans un ListBox ou un ComboBox.
   

Exemple IcoList.zip 9 Ko Delphi 2

 

Afficher un dégradé
  

Deux exemples montrant comment réaliser un dégradé sur le fond d'une fiche.
Le premier, très simple montre le procédé mis en œuvre.
Le deuxième permet de choisir la couleur de départ et celle d'arrivée et obtenant un dégradé de bonne qualité.
Un grand merci à Noël Cuillandre pour son aide plus que précieuse !

Exemple 1 Degrad1.zip 4 Ko Delphi 2
Exemple 2 Degrad2.zip 7 Ko Delphi 2


Réaliser un bouton furtif (look 97) avec des composants standards
  
On peut réaliser ce genre de bouton en
utilisant un Panel recouvert par 1 ou 2
composants Image.
If faut modifier la propriété BevelOuter du Panel suivant la position du curseur
de la souris. Quand le curseur est au
dessus du bouton (événement
OnMouseMouve de l'image), modifiez BevelOuter à bvRaised .
Quand le curseur n'est plus au dessus (événement
OnMouseMouve de la fiche)
BevelOuter:=bvNone et lorsque l'on clique dessus (événement OnMouseDown
de l'image)
BevelOuter:=bvLowered.
Essayez l'exemple qui est plus parlant !
  
Exemple B_furtif.zip 6 Ko Delphi 2

 

Réaliser des boutons originaux
  

  
Sur le même principe que les boutons furtifs on peut
réaliser des boutons originaux. Le Panel peut être
supprimé si on ne veut pas de bordure.
Exemple b_custom.zip 13 Ko Delphi 2

 

Ecrire sur plusieurs lignes avec les Label, boîtes de messages et infos bulles  
   
Si l'on peut écrire sur plusieurs lignes avec un Label en activant WordWrap
à TRUE il y a plusieurs inconvénients:
- obtenir exactement ce que l'on veut n'est pas toujours facile !
- lorsque l'on modifie le texte à l'exécution le résultat est plutôt aléatoire

En utilisant le caractère ascii du retour à la ligne #13 on peut provoquer
le retour à la ligne là où on le souhaite.
(uniquement à l'exécution et AutoSize:=true pour les Label)

Ex: Label2.caption:='ligne 1' + #13 + 'ligne 2' + #13 + 'Ect.....';
Cela fonctionne également avec les boîtes de messages:
Ex :
MessageDlg('ligne 1'+ #13 +'ligne 2' ,mtConfirmation ,mbYesNoCancel , 0);
Idem avec les infos bulles:
Ex :
Panel2.hint:='ligne 1' + #13 + 'ligne 2' + #13 + 'Ect.....';

 

Position du curseur dans un Mémo
  
Une méthode pour récupérer le n° de ligne et de colonne du curseur :
Var line,col : integer;
Begin
line:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0);
col:=Memo1.SelStart - SendMessage(Memo1.Handle,EM_LineIndex,line,0);
end;
Exemple pos_cur.zip 4 Ko Delphi 2
       

 

            Vous aimez ce site... Merci de voter pour lui au Weborama !             Cliquez-ici pour voter ! Merci :-)

  

Tristan Tissot © 2001 Tous droits réservés - optimisé pour Internet Explorer en 1024X728 - 65000 couleurs