Hello

Justement j'utilisais le composant cyResizer (source dispo sur delphiFR) mais le truc embetant c'est que pour déplacer le cyResizer ET le contrôle qu'il contient il fallait faire :

(exemple avec un TPanel)
cyResizer1.Control := nil;
Panel1.Left := Panel1.Left + 20;
cyResizer1.Control := Panel1;

Ton compo pourrait donc me satisfaire mais un petit détail m'embête un peu : quand on veut placer la souris sur les bords (pour le redimensionner) c'est pas facile : il n'y a qu'une épaisser de 1 pixel pour que le curseur de redimensionnement apparaisse. Une épaisseur de 5 pixels (1 pour la bordure, 2 à l'intérieur du composant, et 2 à l'extérieur) aurait été plus sympa :)

Et un peu détail supplémentaire (là je pousse un peu plus loin :p) aurait été de mettre des 'carrés' de sélection autour du composant (comme le cyResizer).

Sinon bon boulot, le composant se déplace et se redimensionne le plus simplement du monde :)

Hello

Je n'ai pas pour habitude de laisser des commentaires, mais là j'ai été tellement bluffé par le résultat que je n'ai pu résisté !

Superbe source, effet magnifique qui remplace avantageusement les <select> classiques.

Bravo !

Une seule chose à dire : MA-GNI-FIQUE !

Superbe source ! J'applaudis des 2 mains et des 2 pieds !

Bravo ! :)

Salut.

Bon alors chez moi rien ne fonctionne, le néant total sur ma page...
Pour info j'utilise FireFox 2.0.

Sous Internet Explorer 7.0, le lecteur apparaît mais il y a des erreurs JavaScript lié à AC_AX. Il sert à quoi ? Fonction ? Qu'est-ce qu'il fait là tout seul ?

Après correction j'espère qu'il sera utilisable parce que j'aimerais bien un petit lecteur multimédia sur mon site :)

Ha ok désolé
Ca vient juste du fait que j'ai pas lancé l'exe existant. J'ai lancé l'application depuis Delphi après compilation lol.

Sous Delphi 7 c'est comme sous le 9 apparemment : les numéros d'erreurs sont 42 et 53.

Sinon à corriger :
FRep  = 'Images\';
pas
FRep  = '..\Images\';

:)

Désolé j'avais pas vu le zip...

Je veux bien tester avec mon Delphi 7 mais heu... comment obtenir un JPEG corrompu ? ^^'

Petite source sympa. Toujours utiles aux débutants (j'aurais aimé en trouver à l'époque !).

Sinon perso j'aurais plutôt copié seulement le texte sélectionné dans le TEdit (et pas la totalité).

procedure TForm1.CopierClick(Sender: TObject);
begin
  if not assigned(FluxPrinc) then FluxPrinc := TMemoryStream.Create;
    case PopupMenu2.PopupComponent.Tag of
      1 : FluxerUnTruc('photo1',Img_1.Picture.Graphic); // tag de Img_1
      2 : FluxerUnTruc('photo2',Img_2.Picture.Graphic); // tag de Img_2
      3 : FluxerUnTruc('chaine',Edt_String.SelText);    // tag de Edt_String <=====
    end;
end;