Trucs & Astuces

Trucs & Astuces

Cette section du site contient des trucs et astuces que j'ai glan�s � divers endroits lors de mes p�r�grinations, que ce soit dans les "newsgroups", dans divers site Web ou dans des livres de r�f�rences. Un certain nombre de ces trucs et astuces proviennent aussi de mon exp�rience personnelle alors que j'ai d� r�soudre des probl�mes sans aucune aide.

J'esp�re que vous trouverez ici des solutions � des probl�mes.

Rubriques de cette page

	Perte de m�moire Windows
	Comment ex�cuter le fureteur par d�faut � partir de Delphi?
	Arri�re-plans en Delphi
	Conversion des fichiers image
	Comment compter les lignes de texte affich�es dans un composant texte multilignes?

Pertes de m�moire Windows

Si vous vous apercevez qu'apr�s chaque ex�cution d'une application que vous avez d�velopp�, vous avez une perte de ressources Windows, vous pouvez diagnostiquer votre probl�me en utilisant l'utilitaire Memproof fournis au site Web ce, si vous utilisez une version 32-bit de Delphi.

Retour en haut de la page

D�part du furereur par d�faut � partir de Delphi

Il y a une fa�on simple d'ex�cuter le fureteur par d�faut � partir d'une application Delphi. Il suffit d'utiliser la commande ShellExecute de la fa�on suivante:

ShellExecute(Handle , 'open', 'http://www.whatever.com',

 nil, nil, SW_MAXIMIZE);

In faut cependant s'�tre assur� d'avoir utilis�

uses ShellAPI;

Retour en haut de la page

Arri�re-plans en Delphi

Toutes les pages Web et les programmes multim�dia ont des arri�re-plans. Comment se fait-il que les fiches de Delphi n'en aient pas? Voici deux fa�ons d'obtenir le m�me effet en Delphi:

� la conception

Vous placez un objet TImage sur votre fiche et et y placer le bitmap de la fa�on habituelle. Vous changez sa propri�t� Alignment � la valeur alClient, ce qui �tent l'image � la dimension de son conteneur. Si le bitmap n'est pas assez grand pour couvrir tout le conteneur, il faut alors mettre sa propri�t� Stretch � true, ce qui agrandit la surface de l'image pour couvrir tout le conteneur.

C'est simple mais �a ne couvre pas toutes les possibilit�s. Si vous voulez changer l'arri�re-plan dynamiquement, il faut le faire � l'ex�cution, comme dans le cas qui suit.

� l'ex�cution

Vous pouvez effectuer la m�me chose � l'ex�cution en utilisant le code qui suit:

dans la section d�claration public, ajouter

bmpBackground: TBitmap;

Ajoutez le code d'initialisation du bitmap dans le gestionnaire d'�v�nement OnCreate

bmpBackground:= TBitmap.Create;
bmpBackground.LoadFromFile(FileName1)
o� FileName1 doit correspondre au chemin d'un fhchier bitmap; et

ajoutez au gestionnaire d'�v�nement OnPaint le code suivant:

Canvas.Draw(0, 0, bmpBackground);

Si le bitmap n'est pas assez grand pour couvrir le conteneur, il ne s'�tirera pas automatiquement pour le couvrir en utilisant la m�thode Draw du Canvas. Il faut alors utiliser l'alternative suivante:

Canvas.StretchDraw(Rect, bmpBackground);
o� Rect est un object TRect dont les coordonn�es correspondent aux dimensions du conteneur.

Retour en haut de page

Conversion de fichiers image

En Delphi, on peut convertir un fichier .jpg en fichier .bmp en utilisant le code suivant:

JPG:= TJPEGImage.Create;
BMP:= TBitmap.Create;
try

Retour en haut de page

Comment compter les lignes de texte affich�es dans un composant texte multilignes?

Composants Memos

On dit proc�der la la fa�on suivante:

var
  R: TRect;
  LastVisibleLine, LastLineIndex: Integer;
Begin
  Memo.Perform(EM_GETRECT, 0, longint(@R));
  LastLineIndex := Memo.Perform(EM_CHARFROMPOS, 0,
     MakeLParam(R.Left +1, R.Bottom -2));
  LastVisibleLine := Memo.Perform(EM_LINEFROMCHAR, LastLineIndex, 0);

Ce code retourne l'indice de la derni�re ligne partiellement visible.

Composants RichEdit

Si vous utilisez le code du truc valide pour les composants Memo � un composant RichEdit, vous obtenez une violation d'acc�s dans RICHEDIT.DLL. Pourquoi? Tout simplement parce que Microsoft utilise le m�me message pour les composants RichEdit mais utilise des param�tres diff�rents. Vous pouvez utiliser le code qui suit pour un composant RichEdit:

var 	
   R: TRect; 
   LastVisibleLine, 
   LastLineIndex: Integer; 
begin 
   Richedit.Perform(EM_GETRECT, 0, longint(@r)); 
   R.left := R.left + 1; 
   R.top := R.bottom - 2; 
   LastLineIndex := RichEdit.Perform(EM_CHARFROMPOS, 0, Integer(@R.topleft)); 
   LastVisibleLine := Richedit.Perform(EM_EXLINEFROMCHAR, 0, LastLineindex);