Discussion :

[seb_homme_parfait]

Bonjour

Je fais un petit chat et tout marche .
J'ai mi des émoticones dedans grace au composant RxrichEdit .
Mais je ne sais y mettre que des images bmp avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    uses Clipbrd;
  ----
   Clipboard.Assign(Image1.Picture);
   rxRichEdit1.PasteFromClipboard;

Et j'aurais aimé mettre des gif aussi mais ca ne veut pas marcher :'(
J'ai trouvé aucune info sur le net pour ce composant .
Donc si l'un d'entre vous aurait deja fais ca ...
(je suis debutant et je programme avec delphi 6 edition personnel)

merci

[Modération]
Merci d'utiliser les balises code ou quote, Laurent Dardenne
[/Modération]

[Droïde Système7]

Bonjour,

Puisque tu ne parles pas de gifs animés... tu peux toujours convertir tes gif en bmp

Avec le compo TRxRichEdit, lorsque tu auras ajouté une certaine quantité de code autour, si tu observes des comportements étranges, ce dernier est assez buggué ; enfin les dernières versions, je ne sais pas.

Dommage, super compo !

Bons chats !

[Sub0]

Salut!

J'avais commencé à faire l'interface d'un tchat avec le RxRichEdit, mais j'ai paumé les sources :
http://sub0.developpez.com/delphi/rxdiag.zip (demo)
En tous les cas, je suis arrivé à utiliser différents formats d'image en les transformant en bitmap.
Si tu as besoin du code pour convertir les formats, demande-moi.

Sinon, pour ajouter des gifs animés dans un projet Delphi avec les unités du RxGif :
http://sub0.developpez.com/delphi/opengif.zip (demo & sources)

Et pour insérer des images BMP dans un RxRichedit (RTF) :
http://sub0.developpez.com/delphi/rximage.zip (demo & sources)


Lien tout en bas à gauche de cette fenêtre

[seb_homme_parfait]

Salut et merci d'avoir repondu

Je n'ai peut etre pas été assez preci
C'est bien des gif animés que je veux utiliser donc on peut pas les transformer en bmp
Sinon le rxgif dans la demo j'ai l'impression que ca revient au meme qu'avec un Timage ,et je sais deja mettre un gif animé dans un Timage.
Sauf que là je voudrais que l'image soit integré au texte.
Exactement comme la demo du chat mais sans convertir le format.
Je sais pas si c'est possible avec le rxrichedit,et cété le seul composant semblabe au richedit ou j'ai reussi a integrer des images avec le texte.
Ca serrait comme meme surprenant que personne ait été confronté a ce probleme .
J'espere que quelqu'un a pu le resoudre mais ca a pas l'air evident

+++

[Sub0]

salut!

Non, ce n'est pas possible, j'ai déjà essayé d'obtenir cette fonctionalité pour mon tchat mais sans succès et c'est pas faute d'avoir essayer. Par contre, c'est possible avec d'autres composants, comme le RichView il me semble, à+

[Droïde Système7]

Bonsoir,

Un lien vers le compo dont Sub0 parle juste au dessus :

http://www.anshare.com/fiche.asp?I=11831

[seb_homme_parfait]

merci

J'vais essayer ce composant .
Mais c'est dommage qu'il ne soit pas gratuit
je suis pas pret a payer 189 € pour ca .

+++

[Sub0]

Je crois que je possède une version gratuite de ce compo. Elle ne possède peut-être pas toutes les fonctionalités de la version payante, mais peut-être que cela te suffira. Je chercherais ça ce soir et je te tiens au courant, à+

[seb_homme_parfait]

ok je te remerci d'avance

[Droïde Système7]

Bonjour,

Le fameux compo freeware, pas celui au bas de cette page ?
http://www.trichview.com/download/

[Sub0]

Le fameux compo freeware, pas celui au bas de cette page ?
http://www.trichview.com/download/

Dans ces archives, tu trouveras les dcu uniquement... De plus, à l'éxécution de ton programme, s'affichera un message en haut à gauche de l'écran : "TRichView Unregistred", sympa non ? Tandis que celui dont je parle fournit ces sources. Je crois qu'il s'agit du TRichView 1.7 si mes souvenirs sont bons, je vais voir si je le retrouve...

[Droïde Système7]

Bonsoir,

Oki, oki Sub0, si tu le retrouves ; je me place également sur les rangs

Merci !

[Sub0]

J'ai déjà trouvé ceci qui devrait vous intéresser je pense :
http://sourceforge.net/projects/xcommsn/

Ce projet Delphi est un tchat qui intègre les sources du TRichView (enfin je crois).
Je continu mes recherches...

[Sub0]

Je pense que je possède cette version :
http://telecharger.wedoo.com/fiche.php?t=2&r=8&l=331

Sinon, pas de souci, j'ai retrouvé les fichiers dans une veille sauvegarde...

[seb_homme_parfait]

merci pour tout ce que tu fais Sub0

arf je me dit que si t'as pas su faire ,moi étant que débutant j'ai peu de chance :'(
Mais je vais comme meme regarder ce que je peux faire avec ce que tu m'as donné .

(je suis pas pret de faire concurence a msn loooooooooool,enfin c'est pas le but non plus )

+++

[Droïde Système7]

Bonsoir,

Merci Sub0, beaucoup de choses à voir !

[Sub0]

Salut!

Je suis arrivé à insérer un gif animé dans le RichView (testé avec la version 1.8). Pour cela, j'utilise le composant gif de la RxLib :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Uses GifCtrl... ;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Var Gif: TRxGifAnimator;
Begin
  Gif := TRxGifAnimator.Create(RichViewEdit1);
  Gif.Parent := RichViewEdit1;
  Gif.Name := 'Gif1';
  Gif.Image.LoadFromFile(ExtractFilePath(Application.ExeName) + 'sub0.gif');
  Gif.Animate := True;
  Gif.Transparent := True;
  RichViewEdit1.AddControl(Gif, False);
End;
 
{----------------------------------------------------------------}
Initialization
  RegisterClasses([TButton, TEdit, TOleContainer, TRxGifAnimator]);
End.

J'ai tenté d'utiliser ce procédé avec le RxRichedit; L'animation est bien insérée, mais elle se retrouve toujours en haut à gauche du conteneur et l'édition devient apparemment impossible...

Si de votre côté, vous avez trouvé d'autres solutions, je suis preneur ! à+

[Droïde Système7]

Bonjour,

Super !

Merci Sub0, à suivre donc

[Sub0]

Je viens de trouver la solution idéale du TRichView pour insérer un gif animé tout en conservant la position du curseur texte après l'insertion, ainsi que le contenu du presse-papier et les fonctions undo et redo de l'édition, simplement en utilisant la méthode InsertControl. Il faudra par contre ajouter une variable de type Integer pour incrémenter le nom du control afin qu'il ne soit pas possible d'insérer 2 controls avec le même nom (à noter que cet index peut être remis à zéro lors d'un nouveau chargement de fichier RVF) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Const GifIndex: Integer = -1;
 
{----------------------------------------------------------------}
Function TForm1.InsertGif(fn: String): Boolean;
Var Gif: TRxGifAnimator;
Begin
  Result := False; 
  Try
    Gif := TRxGifAnimator.Create(RVE1);
    Gif.Parent := RVE1;
    GifIndex := GifIndex + 1;
    Gif.Name := 'gif' + IntToStr(GifIndex);
    Gif.Image.LoadFromFile(ExtractFilePath(Application.ExeName) + fn);
    Gif.Animate := True;
    Gif.Transparent := True;
    Gif.ShowHint := True;
    Gif.Hint := fn;
    RVE1.InsertControl(Gif.Name, Gif, rvvaBaseline);
    RVE1.Refresh;
    Result := True;
  Except End;
End;

à+

[Sub0]

Salut!

Voici une petite démo : Pour insérer des images, utiliser le raccourci Ctrl + I (format BMP, JPG, ICO, GIF et PNG). J'ai ajouté pas mal de code pour obtenir un peu toutes les fonctions d'édition standards... J'ai aussi voulu ajouter une fonction pour insérer des archives zip dans le message (exemple avec le raccourci Ctrl + L) et les ouvrir en cliquant dessus... Je vais continuer à le paufiner. Contacter moi pour plus de détails.

ps: Je me permets d'ajouter le tag résolu, à+