Discussion :

[cincap]

Bonjour à toutes et à tous,

Sur la même forme "FPrincipale", j'ai plusieurs TImage qui se nomment IVignette, GVignette etc...

Si je répète le with/do, cela fonctionne, ma question est t'il possible de ne pas répéter le with/do d'autant qu'il y a d'autres instructions à la suite ?

Code :

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

1
2
3
4
5
6
7
 
with FPrincipale do
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
//Instructions en plus
 
with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;

Merci de l'aide éventuelle.

@+,

Cincap

[Ph. B.]

Bonjour,

Il faut inclure les instructions dans un bloc begin ... end.

Code :

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

1
2
3
4
5
6
7
with FPrincipale do
begin
  TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
  TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage) ;
// autres instructions
//...
end;

[cincap]

@ Ph. B., merci de ta réponse mais j'avais testé avant mon post et je n'ai pas tous les résultats suivants concernant la même fiche !

@+,

Cincap

[Ph. B.]

@ Ph. B., merci de ta réponse mais j'avais testé avant mon post et je n'ai pas tous les résultats suivants concernant la même fiche !

Est ce que l'on peut voir le code incriminé ? que manque-t-il lors de l'exécution ?

[cincap]

@ Ph. B.

Ceci fonctionne correctement :

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
 
if ParCam[NumScreen].Vignette.Visible then //j'ai testé avec begin
 
   //Module Plans
   with FPrincipale do
   TImage(findcomponent('IVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
    ScanBitmap[NumScreen].Assign(CapturedImage);
   TMED(findcomponent('MED'+inttostr(NumScreen))).InsertNextBitmap(ScanBitmap[NumScreen]); 
 
   with FPrincipale do
   TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
   FPrincipale.pcam1.color := shape1.brush.color;
   FPrincipale.shape1.brush.color := shape1.brush.color;
   FPrincipale.Pcamera1.caption := name1.caption;
 
   FPrincipale.pcam2.color := shape2.brush.color;
   FPrincipale.shape2.brush.color := shape2.brush.color;
   FPrincipale.Pcamera2.caption := name2.caption;
 
   FPrincipale.pcam3.color := shape3.brush.color;
   FPrincipale.shape3.brush.color := shape3.brush.color;
   FPrincipale.Pcamera3.caption := name3.caption;
 
 
   FPrincipale.pcam4.color := shape4.brush.color;
   FPrincipale.shape4.brush.color := shape4.brush.color;
   FPrincipale.Pcamera4.caption := name4.caption;
 
   //Module Fzoom
  with Fzoom_1 do
  Fzoom_1.Zvignette1.Picture.assign(FPrincipale.IVignette1.picture);
  Fzoom_1.caption := cameras.name1.caption + ' - On est le  ' +     Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_1.pzoom_1.color := shape1.brush.color;
 
  with Fzoom_2 do
  Fzoom_2.Zvignette2.Picture.assign(FPrincipale.IVignette2.picture);
  Fzoom_2.caption := cameras.name2.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_2.pzoom_2.color := shape2.brush.color;
 
  with Fzoom_3 do
  Fzoom_3.Zvignette3.Picture.assign(FPrincipale.IVignette3.picture);
  Fzoom_3.caption := cameras.name3.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_3.pzoom_3.color := shape3.brush.color;
 
  with Fzoom_4 do
  Fzoom_4.Zvignette4.Picture.assign(FPrincipale.IVignette4.picture);
  Fzoom_4.caption := cameras.name4.caption + ' - On est le  ' + Formatdatetime('dddd d mmmm yyyy', now) ;
  Fzoom_4.pzoom_4.color := shape4.brush.color;
 
 
  //Module Programmateur
  with Fauto do
   TImage(findcomponent('PVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
 
 
  //Module Web
  with FServer do
  TImage(findcomponent('SVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
 
 
  //Module Mini Ecran
  with Fmonitor1 do
  Fmonitor1.vignette1.Picture.assign(FPrincipale.IVignette1.picture);
  Fmonitor1.panel1.color := shape1.brush.color;
  Fmonitor1.b1.caption := name1.caption;
 
  with Fmonitor2 do
  Fmonitor2.vignette2.Picture.assign(FPrincipale.IVignette2.picture);
  Fmonitor2.panel1.color := shape2.brush.color;
  Fmonitor2.b2.caption := name2.caption;
 
  with Fmonitor3 do
  Fmonitor3.vignette3.Picture.assign(FPrincipale.IVignette3.picture);
  Fmonitor3.panel1.color := shape3.brush.color;
  Fmonitor3.b3.caption := name3.caption;
 
  with Fmonitor4 do
  Fmonitor4.vignette4.Picture.assign(FPrincipale.IVignette4.picture);
  Fmonitor4.panel1.color := shape4.brush.color;
  Fmonitor4.b4.caption := name4.caption;
 
 
  //Dialog
  with Cameras do
  TButton(findcomponent('BDialog'+inttostr(NumScreen))).Visible:=true;
 
 
  with ParamZones do
  if (NumCam.Value=NumScreen)and(Showing) then
  MEDPar.InsertNextBitmap(ScanBitmap[NumScreen]);
 
 
  if ParCam[NumScreen].AutoSynchro then VideoCapture1.CaptureFrame;
  if Zoom[NumScreen]>1 then
  TImage(findcomponent('IZoom'+inttostr(NumScreen))).Picture.Bitmap:= ScanBitmap[NumScreen];
//end; testé  
except
beep;
end;
end;

@+,

Cincap

[Andnotor]

Avec Self, mais est-ce vraiment une simplification

Code :

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

1
2
3
4
5
6
7
8
with FPrincipale do
begin  
 TImage(findcomponent('GVignette'+inttostr(NumScreen))).Picture.Assign(CapturedImage);
  pcam1.color := Self.shape1.brush.color;
  shape1.brush.color := Self.shape1.brush.color;
  Pcamera1.caption := Self.name1.caption;
  ...
end;