Discussion :

[chekkal]

Bonjour à tous,

je voudrais intégrer des formes géométriques (rectangle, cercle,..) dans un Trichedit qui contient déjà des données, mais le dessin disparait instantanément et je ne sais comment faire pour qu'il reste affiché.
voici l'exemple que j'utilise

Code :

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

1
2
3
4
5
6
7
 
////canvas:Tcontrolcanvas;
 
canvas:=Tcontrolcanvas.create;
canvas.control:=lana2;
///exple
canvas.rectangle(1,1,100,300);

[tourlourou]

Il faut que tout se redessine sur le canevas lors de son OnPaint, sans quoi c'est perdu. Voilà où mettre le dessin de tes formes.

[Charly910]

Bonjour,
avec :

Code :

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

   fillrect(getdc(richedit1.Handle), Rect(20,20,100,100),canvas.Brush.handle);

(code d'un bouton par exemple)

le dessin ne disparait pas (mais il peut se déplacer si on écrit dans le RichEdit)

A+
Charly

[chekkal]

Bonjour,
@tourlourou
"Trichedit" ne possède pas d'événement "onpaint".

@charly910
ta fonction ne donne aucun résultat.

[Charly910]

Bonjour,
je l'ai pourtant testé dans le code OnClick d'un button ?
A+
Charly

[chekkal]

bonjour,
j'ai fait le test plusieurs fois et dés fois il apparait et il disparait instantanément et pourtant le Trichedit ne possède pas d'évènement "onpaint"

[Charly910]

Voici mon test
RichEdit.zip
A+
Charly

[Papy214]

Question: Pour quelle raison faire ça dans un TRichEdit ?

Si c'est pour écrire n'importe où au pixel près et dessiner des formes géométriques, autant faire ça directement sur un TPaintBox ou le TBitmap d'un TImage.

[tourlourou]

Quitte à faire un TRichEdit.PaintTo sur le PaintBox ou le Canvas, puisqu'il n'expose pas le sien ni n'a de OnPaint.

[chekkal]

Mon but est intégrer des graphes personnalisé correspondant aux données écrites. Le probléme c'est que Trichedit ne garde pas les formes déssinées

[Charly910]

Bonjour,
tu peux même écrire et dessiner directement dans le Canvas de la fenêtre :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm2.Button1Click(Sender: TObject);
Var
  PosX, PosY : Integer ;
begin
  Canvas.TextOut(10,10,'Ceci est un graphe personnalisé : carré rouge en dessous');
  PosX := 10;
  PosY := 30 ;
  Canvas.Brush.Color := ClRed ;
  Canvas.Rectangle(PosX,PosY,PosX+10,PosY+10);
end;

Mais bien sûr le texte n'est pas modifiable à l'exécution ...
A+
Charly

[Papy214]

Mon but est intégrer des graphes personnalisé correspondant aux données écrites. Le probléme c'est que Trichedit ne garde pas les formes déssinées

Encore une fois, dans quel but ? Édition par l'utilisateur ? Impression seulement ? Affichage écran uniquement ? Génération de PDF ? etc.
Tout dépend de ce que 'on veut faire.
Il faudrait préciser l'utilisation réelle de la chose pour mieux définir la façon de faire.

[chekkal]

je voudrais l'afficher sur écran et pouvoir l'imprimer.

[Papy214]

S'il n'y a aucune édition par l'utilisateur, il suffit de dessiner et/ou écrire sur un TMetafile pour affichage dans un TImage.

https://www.delphipower.xyz/graphics...metafiles.html

il y a plein d'autres exemples sur le net.
On peut l'envoyer sur un TImage, l'imprimer, l'enregistrer, etc.
Et ça permet de faire des choses au pixel près.
Mais ça demande bien sûr plus de précision pour le texte.

Sinon, FastReport ferait aussi très bien l'affaire, même dans sa version de base.

[Papy214]

autre avantage que j'ai oublié de mentionner, le résultat est vectoriel et supporte les réductions ou agrandissement sans déformation.


Meilleur exemple ici: https://stackoverflow.com/questions/...canvas-example

[anapurna]

salut

le TRicheEdit de delphi n'accepte pas l'insertion d'image (Pb de DLL windows)
il existe plein de librairie tiers qui le font très bien tel que le jvcl (de memoire ils ont repris de la rxlib)
ce composant fonctionne correctement et accepte l'insertion d'image

[Papy214]

Je ne parlais de faire une image à insérer dans le TRichEdit mais de créer le document entier , texte et graphique inclus

[chekkal]

merci pour vos réponses, je vai voir avec ces exples.

[chekkal]

j'ai réussi à dessiner sur le canvas du Trichedit et à pouvoir le maintenir affiché on utilisant le onpaint de la fiche. par contre à l'impression le graphe dessiné n'est pas imprimer sachant que j'utilise ravereport.

[SergioMaster]

Bonjour,

vu le code utilisé pour le ravereport c'est tout à fait logique. C'est le canvas qu'il faut utiliser et non les lignes du richedit

Pour moi c'est la logique de l'approche qui ne va pas. L'utilisation de métafiles proposée par Papy214 est très certainement préférable