Bonjour,
ne se compile pas sous qt, il y a plein d'erreur une fois fabriqué le .pro
cordialement

je te dis, tu peux te fier a foxi, tout ce qu'il dit pour argent comptant, je ne l'est jammais vu se tromper sur ce qu'il a posté.
Il est assez "pris" et dure a contacter, mais quand il dit quelque chose c'est que du bonheur....
attention, ce sont des pros, alors c'est a toi de comprendre toutes les astuces naturelles a la prog , car pour eux la base, tout le monde connait...
A bientôt

bonjour,
recompile ton composant
c'est l'ancien qui est tjrs present...
par contre FOXI, si tu as une alerte sur ce message. Explique moi svp pourquoi le delpacement de la trackbar avec la molette de la sourie n'est pas pris en compte.
merci d'avance..
autre question plus personnel, quel est ta profession car pour moi tu es quand même une sacrée reference. J'ai fait un tutorial, pour utiliser virtualtreeview et je sais que pour le mettre en place sur le site il me faut bau moins 3 heures de boulots... comment faites vous?
j'aimerais bien en faire profiter tout le monde...
et encore 100000000..... merci a toi, et bonne continuation

Bonsoir,
super cela m'a economisé quelques nuits de sommeil !!
juste deux fonctions supplèmentaires pour completer ton travail :

{-----------------< FUNCTION Cherche_ListBox_Suivant >-------------------}

function Cherche_ListBox_Suivant(Chaine : string ; ListBox : TListBox) : Integer;
var
  Index : integer;
  CurrentItem : string;

begin
  Result := -1;
  Chaine := UpperCase(Chaine);

  for Index := listbox.ItemIndex+1 to ListBox.Items.Count - 1 do
  begin
    CurrentItem := UpperCase(ListBox.Items.Strings[Index]);
    //AddError(IntToStr(Index)  + ' WinText : ' + Chaine + ' Nb Sous Chaine : ' + IntToStr(NbSousChaine(Chaine, CurrentItem)));
    //AddError(Chaine + ' - ' + CurrentItem);
    if NbSousChaine(Chaine, CurrentItem) > 0 then
    begin
      Result := Index;
      Exit;
    end;
  end;
end;
{----------------< FUNCTION Cherche_ListBox_Precedant >------------------}

function Cherche_ListBox_Precedant(Chaine : string ; ListBox : TListBox) : Integer;
var
  Index : integer;
  CurrentItem : string;

begin
  Result := -1;
  Chaine := UpperCase(Chaine);

  for Index := listbox.ItemIndex-1 downto 0 do
  begin
    CurrentItem := UpperCase(ListBox.Items.Strings[Index]);
    //AddError(IntToStr(Index)  + ' WinText : ' + Chaine + ' Nb Sous Chaine : ' + IntToStr(NbSousChaine(Chaine, CurrentItem)));
    //AddError(Chaine + ' - ' + CurrentItem);
    if NbSousChaine(Chaine, CurrentItem) > 0 then
    begin
      Result := Index;
      Exit;
    end;
  end;
end;
bonne prog, A+

Bonsoir,
=> bon dèja une petite formule de politesse sa ne fait pas de mal et notre société en a bien besoin...
=> cela dit, peut être qu'en nous presentant ton source a tester on pourrait essayer de comprendre ton problème, sinon comment voudrais tu que l'on t'aide?
=> Foxi, qui est un pro, lui, malheureusement est dur a contacter, moi je ne sais pas comment positionner le curseur a la position de la sourie sur un clic.

Cordialement

Bonjour,
en reponse a TSAINVET:
http://paul.glagla.free.fr
tout ce que tu veux savoir pour l'utiliser est là!
regarde aussi ma source : http://www.delphifr.com/codes/GESTIONS-FILMS-FICHES-MOVIECOVERS-AVEC-LECTEUR-MULTIMEDIAS_38962.aspx
bonne prog.
question a Foxi : ne serait il pas possible de positionner directement avec un click gauche de la souris ?
Merci d'avance pour la reponse

Bonjour,
désolé, j'ai essayé de modifier mon soft (enlever les ddp) trois fois dans la soirée et il me répond a chaques fois qu'il y a eu un problème.
j'essayerais demain.

A +

Pour être plus constructif; lesquels!?

Bonsoir,
Une version executable est maintenant disponible sur mon site.
Salutation

Bonjour,
je l'ais mis, mais je pense qu'il y a eu un probleme sur le site. j'avais mis aussi un aperçu. Je travaille, mais j'essayerais de nouveau ce soir.
cordialement