Effacer la dernière image dessinée [Résolu]
cs_Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
A voir également:
- Delphi ellipse
- Delphi invalidate - Meilleures réponses
- Ellipse delphi - Meilleures réponses
- Effacer les fichiers images ( .png ), d'un répertoire temps vieux de plus d'un certain temps (à déf - Codes sources - PHP (Fichier / Disque)
- Comment allé a la dérniére image d'une animation ? ✓ - Forum - Flash
- Effacer la derniere lettre dune etiquette ✓ - Forum - Visual Basic
- Effacer fichier/dossiers en fonction de leur derniere date de modification. - Codes sources - Visual Basic / VB.NET (VBScript)
- Effacer une image insérée dans mon répertoire ✓ - Forum - Delphi / Pascal
13 réponses
Meilleure réponse
- Messages postés
- 3869
- Date d'inscription
- samedi 22 décembre 2007
- Dernière intervention
- 3 juin 2016
Salut,
moi j'aurai fait un :
Ca aurait rempli le rectangle de l'étiquette de blanc, te laissant libre de dessiner une forme quelconque par-dessus sans imperfections. On peut obtenir le même résultat avec une couleur de fond différent et jouant avec Canvas.Rectangle et Pen. J'aurai mis ça avant tous les Appels à Ellipse. Peux-tu préciser ton problème un peu plus ?
Cordialement, Bacterius !
moi j'aurai fait un :
BitBlt(Canvas.Handle, // coordonnées x, // coordonnées y,
// largeur étiquette, // hauteur étiquette,
0, 0, 0, WHITENESS);
Ca aurait rempli le rectangle de l'étiquette de blanc, te laissant libre de dessiner une forme quelconque par-dessus sans imperfections. On peut obtenir le même résultat avec une couleur de fond différent et jouant avec Canvas.Rectangle et Pen. J'aurai mis ça avant tous les Appels à Ellipse. Peux-tu préciser ton problème un peu plus ?
Cordialement, Bacterius !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
Salut,
1°) il serait intéressant de nous dire de quel composant tu dérive ton "TTreeShape" ?
puisqu'en fonction du composant ancêtre choisi tu peux surcharger la méthode "Paint" qui est prévue pour ça.
donc dans ce cas l'effacement interviendrait au début de cette méthode et suivrait le code de "PaintTree" ce qui ressemblerait un peu à ça:
et tpour finir tu peux alors "Invalidate" partout à la place de "Paint" comme dans "SetEtiquette"
"Invalidate" est plus performant que "Paint"
[hr]@+Cirec
[hr]
1°) il serait intéressant de nous dire de quel composant tu dérive ton "TTreeShape" ?
puisqu'en fonction du composant ancêtre choisi tu peux surcharger la méthode "Paint" qui est prévue pour ça.
donc dans ce cas l'effacement interviendrait au début de cette méthode et suivrait le code de "PaintTree" ce qui ressemblerait un peu à ça:
with inherited Canvas do
begin
Brush.Color := FBrush.Color;
Pen.Color := FPen.Color;
// <--- ICI on efface
FillRect(ClipRect);
case FEtiquette of
teCircle : DrawEtiqCircle;
teEllipse : DrawEtiqEllipse;
end;
end;
et tpour finir tu peux alors "Invalidate" partout à la place de "Paint" comme dans "SetEtiquette"
"Invalidate" est plus performant que "Paint"
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3869
- Date d'inscription
- samedi 22 décembre 2007
- Dernière intervention
- 3 juin 2016
Invalidate dit à Windows que la totalité de la représentation graphique du composant a été changée, et qu'il faut mettre à jour le plus tôt possible. Windows envoie alors un message WM_PAINT au composant qui le traite et appelle Paint en conséquence. En appellant Paint, tu forces un peu la main
Cordialement, Bacterius !
Cordialement, Bacterius !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4229
- Date d'inscription
- vendredi 23 juillet 2004
- Dernière intervention
- 3 août 2018
ouai c'est presque ça
[quote=Aide Delphi]Description
Utilisez Invalidate quand la totalité du contrôle doit être dessinée. Si plusieurs zones d'un contrôle doivent être redessinées, Invalidate provoque le réaffichage de toute la fenêtre en une seule passe, pour éviter les instabilités provoquées par les redessins redondants. Les performances ne sont pas dégradées par plusieurs appels d'Invalidate avant que le contrôle ne soit effectivement redessiné.
/quote
[hr]@+Cirec
[hr]
[quote=Aide Delphi]Description
Utilisez Invalidate quand la totalité du contrôle doit être dessinée. Si plusieurs zones d'un contrôle doivent être redessinées, Invalidate provoque le réaffichage de toute la fenêtre en une seule passe, pour éviter les instabilités provoquées par les redessins redondants. Les performances ne sont pas dégradées par plusieurs appels d'Invalidate avant que le contrôle ne soit effectivement redessiné.
/quote
[hr]@+Cirec
[hr]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
Salut à tous!
Arg, j' arrive trop tard sur ce topic !!!
Pour résumer, Invalidate donne l' ordre de redessinner (ne sera executé que lorsque cela sera possible) et Paint execute l' ordre.
Donc, si tu faits :
Invalidate;
x := x + 1;
Invalidate;
Ça va repeindre une seule fois ton compo.
Et, si tu faits :
Paint;
x := x + 1;
Paint;
Ça va repeindre deux fois ton compo.
et pour finir, si tu faits :
Invalidate;
Application.ProcessMessages;
x := x + 1;
Invalidate;
Ça va repeindre deux fois ton compo.
Mais bon, tu avais déjà compris ...
A+
A+
Arg, j' arrive trop tard sur ce topic !!!
Pour résumer, Invalidate donne l' ordre de redessinner (ne sera executé que lorsque cela sera possible) et Paint execute l' ordre.
Donc, si tu faits :
Invalidate;
x := x + 1;
Invalidate;
Ça va repeindre une seule fois ton compo.
Et, si tu faits :
Paint;
x := x + 1;
Paint;
Ça va repeindre deux fois ton compo.
et pour finir, si tu faits :
Invalidate;
Application.ProcessMessages;
x := x + 1;
Invalidate;
Ça va repeindre deux fois ton compo.
Mais bon, tu avais déjà compris ...
A+
A+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
Resalut Jean-Jean,
il me semble que l' on peut "invalider" une partie d' un compo avec InvalidateRect.
Par exemple, le TDBGrid utilise cela pour éviter de repeindre toute la grille lorsque l' on passe par exemple d' un colonne à l' autre: on ne met à jour que les cellules concernnées (sauf si on provoque un scroll horizontal lors du changement de colonnes).
Pour ma part, j' ai opté pratiquement tout le temps pour le Invalidate dans mes compos, qui sont bien entendu plus simple que le TDBGrid (à l' exeption de mes DBGrids héritant du TDBGrid et possède donc cette fonctionnalité "héritée").
La seule exception, c' est mon TcyColorMatrix qui permet de mettre à jour (graphiqument donc ...) que partiellement un bitmap utilisé pour sauvegarder tout le graphique du compo. Dans le OnPaint, je fais juste canvas.DrawBitmap(monBitmap).
C' est à dire que lorsque je change une zone de mon compo, je mets à jour cette zone dans le Bitmap puis j' appelle Invalidate (qui va donc appeler l' événement Paint), on pourrait aussi peindre directement sur le canvas simplement la zone modifiée.
En fait, il y a 2 critères à prendre en compte:
- la lenteur à redessinner le compo: teste combien de TonCompo.Update tu arrives à faire par seconde pour voir s' il est necessaire d' optimiser ton compo (utilise la fonction GetTickCount).
- déterminer avec quelle fréquence le compo est susceptible de faire un paint: le cas de la DBGrid est un bon exemple: si j' appuis sur la toucha clavier "bas", je vais parcourir tous les enregistremnts jusqu' à la fin du fichier. Il faut donc que la mise à jour soit rapide pour une bonne fluidité du compo.
A+
il me semble que l' on peut "invalider" une partie d' un compo avec InvalidateRect.
Par exemple, le TDBGrid utilise cela pour éviter de repeindre toute la grille lorsque l' on passe par exemple d' un colonne à l' autre: on ne met à jour que les cellules concernnées (sauf si on provoque un scroll horizontal lors du changement de colonnes).
Pour ma part, j' ai opté pratiquement tout le temps pour le Invalidate dans mes compos, qui sont bien entendu plus simple que le TDBGrid (à l' exeption de mes DBGrids héritant du TDBGrid et possède donc cette fonctionnalité "héritée").
La seule exception, c' est mon TcyColorMatrix qui permet de mettre à jour (graphiqument donc ...) que partiellement un bitmap utilisé pour sauvegarder tout le graphique du compo. Dans le OnPaint, je fais juste canvas.DrawBitmap(monBitmap).
C' est à dire que lorsque je change une zone de mon compo, je mets à jour cette zone dans le Bitmap puis j' appelle Invalidate (qui va donc appeler l' événement Paint), on pourrait aussi peindre directement sur le canvas simplement la zone modifiée.
En fait, il y a 2 critères à prendre en compte:
- la lenteur à redessinner le compo: teste combien de TonCompo.Update tu arrives à faire par seconde pour voir s' il est necessaire d' optimiser ton compo (utilise la fonction GetTickCount).
- déterminer avec quelle fréquence le compo est susceptible de faire un paint: le cas de la DBGrid est un bon exemple: si j' appuis sur la toucha clavier "bas", je vais parcourir tous les enregistremnts jusqu' à la fin du fichier. Il faut donc que la mise à jour soit rapide pour une bonne fluidité du compo.
A+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
96 internautes nous ont dit merci ce mois-ci
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
Chers amis,
Merci pour vos réponses... Le soleil ne vous tape pas sur les neurones, quel bonheur!!!
Mon composant dérive de :
TTreeShape = class(TGraphicControl)
private
Rect : TRect;
MemDC : HDC;
Bitmap : HBitmap;
FBrush : TBrush;
FPen : TPen;
FShadow : Boolean;
FShadowOffset : Cardinal;
FShadowColor : TColor;
FEtiquette : TTypeEtiquet;
...
@Cirec, oui je pense à priori comme toi, j'ai surchargé paint pour définir la mémoire dont j'ai besoin et dessiner les différents éléments du graphique...D'ailleurs, c'est en construction car je vais devoir dessiner les étiquettes, les ombres, les liens et les données... => dessin dans un bitmap global, c'est plus logique.
voici ma méthode paint (non définitive et en test) :
@Bactérius
Oui, cette instruction BitBlt est utile, je l'avais oubliée. Mais je suis dans une réflexion plus large et méthodologique car j'ai les étiquettes, mais aussi le reste. Ce qui voudrait dire qu'il me faut peut-être tout redessiner ou presque et pas seulement les étiquettes...
La seule constante est la dimension de l'arbre. Si elle est modifiée, je redessine tout...
Mais peut-être qu'en voulant économiser de la complexité de programmation, je ne vais pas beaucoup gagner en temps d'exécution. Le mieux serait alors de tout redessiner!
Jean_Jean
Merci pour vos réponses... Le soleil ne vous tape pas sur les neurones, quel bonheur!!!
Mon composant dérive de :
TTreeShape = class(TGraphicControl)
private
Rect : TRect;
MemDC : HDC;
Bitmap : HBitmap;
FBrush : TBrush;
FPen : TPen;
FShadow : Boolean;
FShadowOffset : Cardinal;
FShadowColor : TColor;
FEtiquette : TTypeEtiquet;
...
@Cirec, oui je pense à priori comme toi, j'ai surchargé paint pour définir la mémoire dont j'ai besoin et dessiner les différents éléments du graphique...D'ailleurs, c'est en construction car je vais devoir dessiner les étiquettes, les ombres, les liens et les données... => dessin dans un bitmap global, c'est plus logique.
protected
procedure Paint; override;
procedure PaintShadow; virtual;
procedure PaintTree; virtual;
voici ma méthode paint (non définitive et en test) :
procedure TTreeShape.Paint;
var
rc: bool;
oldBmp: HBitmap;
oldThumb: TRect;
begin
inherited Paint;
with Canvas do
begin
Brush.Color := FBrush.Color;
// FillRect(Canvas.ClipRect);
// Pen.Mode := pmblack;//pmxor;
{Création mémoire pour lasauvegarde du bitmap}
if MemDC = 0 then MemDC := CreateCompatibleDC(Canvas.Handle);
{Create image arbre}
if Bitmap = 0 then
Bitmap := CreateCompatibleBitmap(Canvas.Handle, Width, Height);
Rect.top := 0;
Rect.bottom := Height;
Rect.left := (Width - 10) div 2;
Rect.Right := Rect.Left + 10;
SelectObject(MemDC, OldBmp);
end;
if Shadow then PaintShadow;
PaintTree;
end;
@Bactérius
Oui, cette instruction BitBlt est utile, je l'avais oubliée. Mais je suis dans une réflexion plus large et méthodologique car j'ai les étiquettes, mais aussi le reste. Ce qui voudrait dire qu'il me faut peut-être tout redessiner ou presque et pas seulement les étiquettes...
La seule constante est la dimension de l'arbre. Si elle est modifiée, je redessine tout...
Mais peut-être qu'en voulant économiser de la complexité de programmation, je ne vais pas beaucoup gagner en temps d'exécution. Le mieux serait alors de tout redessiner!
Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
@ Cirec
C'est bon pour l'effacement.
Par contre je ne comprends pas ta phrase: "et pour finir tu peux appeler? alors "Invalidate" partout à la place de "Paint" comme dans "SetEtiquette"
"Invalidate" est plus performant que "Paint"
Invalidate? qu'est-ce que c'est en fait? Une méthode qui oblige à redessiner?
Cordialement
Jean_Jean
C'est bon pour l'effacement.
Par contre je ne comprends pas ta phrase: "et pour finir tu peux appeler? alors "Invalidate" partout à la place de "Paint" comme dans "SetEtiquette"
"Invalidate" est plus performant que "Paint"
Invalidate? qu'est-ce que c'est en fait? Une méthode qui oblige à redessiner?
Cordialement
Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
Merci Mauricio pour ces précisions!
Oui, les paint répétitifs, c'est un problème!
Invalidate = à retenir!
j'en profite pour vous redemander un conseil pour les dessins.
J'ai un graphique assez compliqué (B-arbre) à redessiner chaque fois qu'un paramètre change :
noeud, couleur, forme étiquette, forme des liens...
Bref des multitudes de détails.
a votre avis, est-il plus performant de tout redessiner ou de ne redessiner que la zone pixel à modifier en faisant des sortes de couches (bitmap) qu'il faut ensuite superposer?
Il me semble Mauricio que tu avais opté pour cette solution (dans un de tes codes) de sous-couches (calques) que l'on superpose!!!??
- Si je redessine tout, je dessine selon les options dans la méthode PaintTree :
C'est dans les procédures Draw que je réalise les différents graphiques qui vont composer le Bitmap final.
Cordialement
Jean_Jean
Oui, les paint répétitifs, c'est un problème!
Invalidate = à retenir!
j'en profite pour vous redemander un conseil pour les dessins.
J'ai un graphique assez compliqué (B-arbre) à redessiner chaque fois qu'un paramètre change :
noeud, couleur, forme étiquette, forme des liens...
Bref des multitudes de détails.
a votre avis, est-il plus performant de tout redessiner ou de ne redessiner que la zone pixel à modifier en faisant des sortes de couches (bitmap) qu'il faut ensuite superposer?
Il me semble Mauricio que tu avais opté pour cette solution (dans un de tes codes) de sous-couches (calques) que l'on superpose!!!??
- Si je redessine tout, je dessine selon les options dans la méthode PaintTree :
procedure TTreeShape.PaintTree;
begin
With Canvas do
begin
Canvas.Brush.Color := FBrush.Color;
Canvas.Pen.Color := FPen.Color;
Case FEtiquette of
teCircle : DrawEtiqCircle;
teEllipse : DrawEtiqEllipse;
...
end;
Case FConnexion of
tcSolid : DrawConnectSolid;
tcShortDodded: DrawConnectShortDodded;
...
end;
...
end;
end;
C'est dans les procédures Draw que je réalise les différents graphiques qui vont composer le Bitmap final.
Cordialement
Jean_Jean
- Messages postés
- 641
- Date d'inscription
- dimanche 13 août 2006
- Dernière intervention
- 13 décembre 2018
- Messages postés
- 2233
- Date d'inscription
- mardi 10 décembre 2002
- Dernière intervention
- 15 décembre 2014
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.