Merci pour ta source

T'aurais pas la même chose en VB ?

Juste une question concernant les polices de caractères (pour le reste j'ai réussi à faire ce que je veux). J'ai remplacé le Helvetica par du Arial et sa fonctionne très bien. Par contre quand j'essaye de remplacer par du Lucida Console ca marche pas bien, et je suppose que ca vient du nom qu'on doit donner dans la classe.
Comment faire ?
Merci

Je commence mieux à comprendre maintenant mais une petite doc sur l'utilisation serait la bien venue, notemment sur ce qu'on peut écrire dans le mémo car en regardant le code je vois qu'on peut mettre pleins de chose à la place du "Text=" mais j'ai du mal à cerner totalement le fonctionnement.

Merci en tous cas :)

Salut

Je suis sûre que ton prog est très bien seulement quand j'utilise l'exe il me génère toujours un PDF avec "Mon Text Text Auto hfaklfsjljl jkl jklajasklj lksa jlk jasklj klsajlk js alkjvlksajlk jlkjsal jlsajkl jasklj klasjlk jklasjlkjaslj ljsakl lkasj lksajl jsakljsakljklsajklasjklajklajsklajkljsaklj skls jlaj lksajkl jlkajlkajlkjslka kljaljlaj slajlkajalklk"

Comme je ne comprends pas trop le code, pourrais-tu me dire ce qu'il faut faire pour que ca génère le PDF avec ce que j'ai écris dans la zone texte ?

Merci

Super source ! Merci !
J'aimerai savoir, à quoi sert le onChange="test()" dans la page html ?

Salut

Ta fonction me serait vraiment utile et j'aimerai créer une nouvelle fonction DIFFERENCE à partir de ton soundex. Mais je ne sais pas comment fonctionne la fonction difference d'origine. Je ne sais pas si tu peux m'éclairer...

Salut

Vu la date de ton message ABCD1234 tu ne dois plus en avoir besoin mais pour les autres, voici une procédure qui redimentionne toutes les colonnes de mon TDBGrid (par contre je ne tiens pas compte de la largeur du titre dedans).


procedure ResizeColumns();
var
J,MaxTextWidth, fieldwith : Integer;

begin

   // On fait toutes les colonnes du TDBGrid
   For J:=0 to Form1.GridFic.FieldCount-1 do
   begin
      // Initialisation
      MaxTextWidth := 0;

      // On recupere la longueur la plus grande contenu dans la colonne
      Form1.GridFic.DataSource.DataSet.First;

      while not form1.GridFic.DataSource.DataSet.Eof do
      begin
          fieldwith := Form1.GridFic.Canvas.TextWidth(form1.GridFic.datasource.DataSet.Fields.Fields[J].AsString);
          if (fieldwith > MaxTextWidth) then MaxTextWidth := fieldwith;
          Form1.GridFic.DataSource.DataSet.Next;
      end;
      // On applique la nouvelle taille a condition que la colonne n'était pas vide      
      If MaxTextWidth > 0 then form1.GridFic.Columns[J].Width := MaxTextWidth + 20;
   end;
end;

Le redimentionnement de ton tstringgrid  m'a beaucoup aidé pour l'adaptation à mon tdbgrid.