Discussion :

[Nadjib]

Bonjour tout le monde

J'ai ne rien compris le problème suivant :
J'ai une déclaration de la manière suivante :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
{Element de base}
TElement=calss(TPesistent)
Private
  ...
  X,Y:real
protected
  ...
  DessinerDans(Cnv:TCanvas);
  ...
public
  ...
end;
{La liste des elements à afficher}
TListElement=Class(TList)
Private
  ...
protected
  ..
public
...
end;
 
TSurface=Class(TCustomControl)
Private
 ... 
 fListElement:TListElement;
  ...
public
 ...
 procedure Paint; override;
 ...
end;
 
procedure TSurface.Paint;
var i:integer;
begin
   ...
   for i:=0 to fListElement.Count-1 do 
       TElement(fListElement).DessinerDans(Canvas);
   ....
end;

le problème que malgrè la procedure de dessin déroule normallement,
le dessin ne s'affiche plus; j'ai controler tous ce qui concerne la couleur du
brush, Pen, ... mais j'arrive pas à comprendre cette phénomère, je vous note mes collègues que si je prend le corp de la procedure "DessinerDans" de la classe TElement j'obtiens le resultat voulu, mais de cette manière le canvas de la surface et toujour vide...

Quelqu'un m'aide S.V.P et merci d'avance;
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir.]

[Graffito]

Bonjour,

Ne faudrait'il pas écrire :
TElement(fListElement[i]).DessinerDans(Canvas);

[Nadjib]

Bonjour,
C'est juste une erreur de frappe, si le [i] n'existe pas ça sera une erreur de compilation et l'operation ne sera pas continue, le [i] existe.
Merci

[Graffito]

Bonjour,

Juste une remarque qui ne résoud pas le problème.
Comme il y a un cast, ca ne génére pas d'erreur de compilation : on pourrait aussi bien écrire "TElement(myform).DessinerDansCanvas(..." sans erreur à la compil.