Problème sur la méthode InvalidateRect

**PocoYote** · 26/06/2012, 22h11

Bonjour,

Voilà j'ai un problème avec la méthode InvalidateRect (je dessine sur le Canvas d'un TPanel). Pour redessiner mon graphique, j'utilise cette méthode :

Panel1->InvalidateRect(Panel1->BoundsRect);

Panel1 est bien redessiné, mais cette méthode semble "perturber" mon Panel2 (qui touche Panel1) : Panel2 appelle également sa méthode OnPaint... par contre le Canvas reste bloqué, Panel2 ne se met pas à jour...

Je ne sais pas si quelqu'un a déjà eu ce type de problème, où si quelque chose m'échappe dans Firemonkey...
Bref, toute aide sera appreciée.

**arkhamon** · 27/06/2012, 11h43

Bonjour,
je sais pas si ça va aider, masi ton panel2, il touche ou il recouvre même très partiellement ton panel1 ? Tu as essayé de les séparer d'au moins un pixel ?
Autre piste possible, tu n'aurais pas un controle mal défini ou à cheval sur les deux ?

**ShaiLeTroll** · 27/06/2012, 12h03

Le Panel est-il Transparent en FMX comme il l'est en VCL avec ParentBackGround ?

Si oui, si tu dessin Panel1 et qu'il y a un recouvrement (même d'un Pixel), il doit surement dessiner Panel2 pour avoir le Fond sous Panel1 puis dessiner ce dernier

Par contre, si il se touche sans recouvrement, étrange, peut-être que ton Rectangle en paramètre d'InvalidateRect est trop grand, qu'il affecte le Control en dessous et ceux à côté !

**PocoYote** · 27/06/2012, 13h19

Bonjour et merci pour vos réponses.

En fait, j'ai Panel1 aligné en alClient, et Panel2 aligné en alTop. Donc ils se touchent mais à priori ne se recouvrent pas.

Pour tester, je ne dessine plus rien dans Panel1, mais Panel1->InvalidateRect(...) déclenche toujours l’événement Panel2->OnPaint() !

Par contre, effectivement, si je mets une séparation d'au moins 2 pixels entre les 2 panels (padding), ils ne se "perturbent" plus... Franchement, je ne comprend pas, car j'ai testé sur une autre fenêtre, et je ne retrouve pas ce problème...

J'ai également un autre problème d'affichage (qui pourrait être lié) : Lorsque je dessine sur Panel1, parfois (lorsque j’interagis avec l'interface) l'affichage déborde sur certains composants environnants (Layout et Splitter en général). Dans Panel1, je dessine des lignes et les lignes ne sont pas forcement dans le rectangle client car j'applique un zoom et des rotations...

Bref, plusieurs petits problèmes désagréables.

**PocoYote** · 27/06/2012, 14h02

Finalement j'arrive à reproduire mon problème :
- Nouvelle fiche
- Panel1 aligné alTop
- Panel2 aligné alClient
- Timer1

Et voici le code de la fiche :

Code c++ :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 //---------------------------------------------------------------------------
#include <fmx.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
:TForm(Owner)
{
	Timer1->Interval = 25;
}
 
void __fastcall TForm1::Panel1Paint(TObject *Sender, TCanvas *Canvas, const TRectF &ARect)
{
	static int repaint = 0; repaint++;
	Canvas->Fill->Color = 0xFF000000;
	Canvas->Stroke->Color = 0xFF000000;
	Canvas->FillText(ARect, repaint, false, 1.0, TFillTextFlags(), TTextAlign::taCenter, TTextAlign::taCenter);
	Canvas->DrawLine(ARect.TopLeft(), TPointF(500.0, 1000.0), 1.0);
}
 
void __fastcall TForm1::Panel2Paint(TObject *Sender, TCanvas *Canvas, const TRectF &ARect)
{
	static int repaint = 0; repaint++;
	Canvas->Fill->Color = 0xFF000000;
	Canvas->Stroke->Color = 0xFF000000;
	Canvas->FillText(ARect, repaint, false, 1.0, TFillTextFlags(), TTextAlign::taCenter, TTextAlign::taCenter);
	Canvas->DrawLine(ARect.TopLeft(), ARect.BottomRight(), 1.0);
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	Panel1->InvalidateRect(Panel1->BoundsRect);
}

Lorsque l'on redimensionne la fiche, on voit que la méthode Panel2Paint a été appelée autant de fois que Panel1Paint (et pourtant l'affichage ne s'est pas mis à jour).

Par contre, si on met un Splitter entre les deux panels, il n'y a plus ce problème. Mais là mon autre problème apparait, le Splitter peut être "perturbé" par l'affichage de Panel1.

**ShaiLeTroll** · 27/06/2012, 15h00

Que vient faire le redimensionnement ?
Forcer un panel en Bottom va suivre la taille de la fenêtre donc être redessiné !

Cela se produit uniquement en présence du Timer ?
Est-ce que Timer nuit à l'affichage de Panel2 ou alors il corrige celui de Panel1 ?
TPointF(500.0, 1000.0) cela ne déborde-t-il pas sur le Canvas de la TForm ou même du Panel2 ?

On a eu sujet similaire sur un mauvais refresh en FMX
Faudrait voir si il ne serait pas plus propre de créer une Animation que d'utiliser un Timer ?

Cela me rappel en D4, un Panel Top + un Splitter Top avec une Color différente de clBtnFace pouvait "baver" sur la zone MDI

Canvas pointe bien sur le paramètre, pas de conflit avec un this->Canvas ?

PS : utilise [code=c++] pour mettre du c++ dans la section delphi qui par défaut utilise la coloration du pascal

**PocoYote** · 27/06/2012, 15h32

Désolé ShaiLeTroll, je ne suis peut être pas très clair.

Que vient faire le redimensionnement ?

Le redimensionnement met à jour l'affichage des composants. Donc Panel1->OnPaint et Panel2->OnPaint sont appelés.
On voit alors que la variable repaint dans Panel2->OnPaint a la même valeur que celle de Panel1->OnPaint !!!

Forcer un panel en Bottom va suivre la taille de la fenêtre donc être redessiné !

Je me suis trompé : alignement de Panel2 en alClient au lieu de alBottom. Le redessiner est le but recherché.

Cela se produit uniquement en présence du Timer ?
Est-ce que Timer nuit à l'affichage de Panel2 ou alors il corrige celui de Panel1 ?

Non on peut mettre un bouton au lieu de Timer : mêmes conséquences. Je ne pense pas que le Timer pose problème.

TPointF(500.0, 1000.0) cela ne déborde-t-il pas sur le Canvas de la TForm ou même du Panel2 ?

On peut le changer en ARect.BottomRight() : mêmes conséquences.

Canvas pointe bien sur le paramètre, pas de conflit avec un this->Canvas ?

J'ai vérifié : pas de problème de ce coté là.

Bref, je pense qu'il s'agit d'un bug de Firemonkey. La seule solution que je trouve pour l'instant : mettre un espace (un rectangle) entre les panels pour ne pas qu'ils se perturbent. Une autre solution est de réduire le TRect de 2 pixels dans la méthode InvalidateRect, mais l'affichage est alors coupé.

**ShaiLeTroll** · 27/06/2012, 15h53

As-tu une différence avec ClipRect ou LocalRect,
Compare les valeurs avec le paramètre ARect

Souvent dans la VCL, tu as ceci :

Code :

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

Panel1->InvalidateRect(InflateRect(Panel1->BoundsRect, -1, -1));

En FMX, les coordonnées sont en Single, me dit pas qu'il y a un effort de bord lié à l'arrondi !

Sinon, ce bug ne se produit qu'avec un appel manuel de InvalidateRect ?
Si tu laisse tes deux Panels se redimensionner tu n'as pas de problème ?

**Andnotor** · 27/06/2012, 17h27

InvalidateRect devrait logiquement être relatif à la zone cliente du contrôle. Donc, utiliser ClientRect plutôt que BoundsRect.

**ShaiLeTroll** · 27/06/2012, 18h11

ClientRect n'existe que pour TCommonCustomForm contrairement à la VCL où ClientRect apparait dès TControl

Là il c'est des FMX.TPanel donc pas de ClientRect !
De plus le Paramètre ARect vient du OnPaint donc fourni par FMX, on espérer qu'il soit correct à l'arrondi près !

**Andnotor** · 27/06/2012, 18h48

J'admets que mes connaissances en FMX sont nulles, mais c'est pas logique !
Par contre, Form1.InvalidateRect(Panel1.BoundsRect) oui !

Mais je ne vais pas vous saouler avec mon incompétence plus longtemps

(Même si l'aide dit qu'il y a une transposition. Un ClientToParent en VCL...)

**ShaiLeTroll** · 27/06/2012, 19h06

Mais tu nous saoule pas, surtout que j'ai la même incompétence que toi au niveau FMX puisque je n'ai que compiler les Démo et rien de plus

Et notes qu'avait proposé comme toi d'essayer toutes les variantes ARect, ClipRect ou LocalRect ...

C'est justement très intéressant de devoir se remettre en cause et de voir qu'il faut penser différemment en FMX qu'en VCL

Ma seule compétence est de savoir chercher dans l'aide et de fournir les liens et d'extrapoler par rapport à un survol des fichiers PAS de FMX
J'ai eu ÉNORMÉMENT de chance jusqu'à présent avec mes théories (qui ont été mises en pratique

)

Comme en FMX tout est du dessin, il n'y a pas de contrôle GDI comme en mode VCL, il n'y a pas de Handle et une vrai imbrication logique comme sous Windows !
Sinon faudrait que FMX gère les controles de chaque OS et leur limitation, on a vu ce que donnait CLX\QT

Donc, lorsque tu dessines, un Panel, en fait, cela doit en fait dessiner sur le "Top Parent" (la Form) donc effectuer des translations effectivement !
Si en séparant d'un Pixel, les deux panels, cela évite le problème, ça sent des erreurs d'arrondis !
Faudrait tester, en mettant différente taille au panel Top !

**Andnotor** · 27/06/2012, 19h20

Alors encore une p'tite pour la route

Sur le principe, je comprend très bien. J'avais d'ailleurs fait un FMX en GDI il n'y a pas si longtemps

**PocoYote** · 27/06/2012, 19h24

Effectivement, si on réduit BoundsRect de 2 pixels (et pas moins), ça permet d'éviter le problème. Pourquoi 2 pixels ? je n'en ai aucune idée. Par contre dans ce cas, les pixels au bord du Panel ne sont effectivement pas rafraîchis (gênant mais logique)...

Après c'est peut être cet appel manuel InvalidateRect qui pose problème. Je dois pouvoir tester ça... demain.

@Andnotor : si tu connais la réponse, ne te fais pas prier

Problème sur la méthode InvalidateRect

Composants FMX Delphi

Discussions similaires

Partager

Partager