VCL / Composants ordre de traitement

Version imprimable

20/01/2020, 14h45
Galet

VCL / Composants ordre de traitement

Bonjour à tous,

Sur une même fiche, 2 tPaintBox doivent partager les mêmes données, préalablement triées d'une liste.
Comment assurer le bon enchainement :
- Calcul des données
- Rafraichissement (OnPaint) des 2 tPaintBox ?

Autrement dit, peut-on connaitre ou forcer l'ordre d'exécution des évènements ? (Mon idée étant évidemment de placer le calcul dans le premier OnPaint traité)

Merci pour vos idées...

Un exemple. Les deux "onpaint" sont traité dans la même "procedure"

Code:

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
unit ex03a;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    PaintBox2: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
  private
    procedure Calcul ;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  cpt : integer ;
  v1: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Calcul;
begin
  v1 := Random(200) ;
  cpt := cpt + 1 ;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  aPaintBox: TPaintBox;
begin
  if cpt = 0 then
    calcul ;
  cpt := cpt + 1 ;
  aPaintBox := Sender As TPaintBox;
  aPaintBox.Canvas.Brush.Color := clGray;
  aPaintBox.Canvas.FillRect(aPaintBox.Canvas.ClipRect);
  If aPaintBox.Name = 'PaintBox1' then
    aPaintBox.Canvas.Brush.Color := clBlue
  else
    aPaintBox.Canvas.Brush.Color := clgreen;
  aPaintBox.Canvas.Ellipse(0, 0, v1, 50);
  if cpt>2 then
    cpt := 0 ;
end;
 
initialization
 
randomize;
 
end.

20/01/2020, 17h16
Paul TOTH
je ne sais pas si cela s'applique au contexte, mais à priori je dirais
Code:

1 2 3 4 5 6 7 procedure TForm1.MettreAJour(); begin Calculer(); PaintBox1.Invalidate(); PaintBox2.Invalidate(); end;
cela suppose que le calcul n'est pas lié à l’événement Paint des PaintBox mais qu'après ce calcul il convient d'actualiser les PaintBox
20/01/2020, 17h26
Galet

Merci Alweber,
Le passage par la même procédure ne m'apporte pas grand chose (peut-être en lisibilité).
J'avais bien pensé à mettre une bascule (ton nCpt) pour éviter le second calcul mais j'espérais qu'un système plus 'élégant' serait disponible :D
A défaut de grives...
Je vais donc mettre cette solution en place mais laisse le sujet ouvert encore quelques temps, au cas où.
Cordialement,

Paul,
Les calculs sont bien indépendants des OnPaint.
Pour le coup, je vais peut-être abandonner les merles...
Merci,
21/01/2020, 09h55
ALWEBER

Tout dépend de l'angle de vision que tu as sur ton application.
Du côté de Paul tu connais le moment du calcul et tu rafraichis en conséquance le contenu des paintboxs
Sur la méthode que je propose c'est au moment ou ton système demande un rafraichissement des paintboxs (quand tu réouvres la fenêtre iconisée par exemple et que le programme relance le calcul pour être sur du bon résultat).

Donc d'un côté c'est toi qui a l'initiative dans le second c'est le programme en fonction du contexte
21/01/2020, 10h52
anapurna

salut

par principe il est toujours conseillé de séparer le "process/calcul" de l'affichage
sinon tu risque de te retrouvais avec un affichage lents

je dirais donc que la solution de Paul me parais la plus cohérente

Je déclenche mon calcul et je met à jour mon affichage