Discussion :

[kickoune]

Bonjour!!

je débute en delphi, j'ai cherché pas mal sur internet mais peu de gens utilise vraiment delphi en objet.

mon besoin:

J'ai une classe qui a une Paint box et ses attributs sur un certain nombres d'information sur le dessin.

Après j'ai juste un formulaire sans rien qui a sa création , créer l'objet de l'autre classe.

sa plante access violation sur PAintBox.top:=xx dans la classe extérieur.
formulaire:

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,CompteTours, ExtCtrls;
 
type
  TForm1 = class(TForm)
 
   procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    //procedure create();
  end;
 
var
  Form1: TForm1;
 
implementation
var
ct:TCompteTours;
{$R *.dfm}
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   ct:=TCompteTours.Create();
 end;
end.

classe extérieure:

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
 
unit CompteTours;
 
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls,Math;
type
  TCompteTours = class(TObject)
 
  private
    { Déclarations privées }
    AngleDebut:Integer;
    AngleFin:Integer;
    ToursMaxi:Integer;
    ToursActuel:Integer;
  public
       P:TPaintBox;
     constructor Create();
  end;
 
 
implementation
var
  Bmp, Bmp1: TBitmap;
 
const
R = 100;      // R = rayon du cadran du compte tours
RR = R * 2;
 
constructor TCompteTours.Create();
begin
AngleDebut:=240;
AngleFin:=300;
//P:=P.Create;
P.Top := 0; //PLANTE ICI!!!!!!!
P.Left := 0;
P.Width := RR;
P.Height := RR;
 
   //création du bitmap
Bmp := TBitmap.Create;
Bmp.Width := RR;
Bmp.Height := RR;
Bmp.canvas.brush.Color := clBtnFace;
Bmp1 := TBitmap.Create;
Bmp1.Width := RR;
Bmp1.Height := RR;
Bmp1.canvas.brush.Color := clBtnFace;
 
 With Bmp1 do begin
    Canvas.Pen.Color := clBlack;
    Canvas.brush.Color := clBtnFace;
   //Canvas.FillRect(ClientRect);
    Canvas.brush.Color := clYellow;
    Canvas.Ellipse(0, 0, RR, RR);
 end;
end;
end.

Voila j'ai essayé pas mal de truks.Est-ce possible déja? vu que physiquement la paintbox n'est pas le form.

merci de m'éclairer
sa me ferais plaisir


cordialement

[exoseven]

d'après ton code tu ne sembles pas pas créer ta PaintBox donc il est tout a fait logique que ça plante...

dans TCompteTours.Create il faut donc que tu es un truc du style

Code :

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

P := TPaintBox.create(nil);

il faudra que tu penses à le libérer, ou alors il faut lui passer autre chose que nil en construction, il te faudra aussi lui attribuer un parent, par exemple un panel de ta forme pour qu'il soit affiché

[anapurna]

salut

il y a un exemple de l'utilisation d'un paintox
ce n'est pas un compte tour mais tu t'appercevra que l'utilisation de ton bitmap n'a pas d'utilité pour ce que tu veut faire

regarde ici

@+ phil

[kickoune]

j'ai rajoute le TPAINTBOX.Create...sa passe la ligne qui planté mais quand je dessine mon dessin:

j'ai une exception:

"le controle n'a pas de fenêtre parente"

P.Canvas.Draw(0,0,Bmp1);

C'est la qui me faisait pensé que c'était peut être pas possible.

Comment faire pour que le dessin se dessine dans l'autre classe.

ce n'est pas un problème d'utilisation de la PaintBox, c'est juste d'objet et d'utilisation Delphi que je connais pas.

cordialement
merci à vous

[exoseven]

après avoir créé ta paintbox tu dois lui assigner un parent, ex

Code :

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

P.parent := MonPanel

Si tu veux dessiner, au lieu d'utiliser une TPaintBox utilise directement un TBitmap, tu fais ton dessin dessus et pour l'afficher tu utilises un TImage

[exoseven]

j'ai l'impression que tu souhaites créer un composant graphique, je te conseille de lire ce tutorial avec les parties II et III tu auras la base minimale pour cela.

[kickoune]

MonPanel sa correspondant à quoi?

si je mets Unit1 en mettant Use Unit1 dans Comptetours.


il y a aussi CompteTours dans use dans Unit1, sa fait une référence circulaire..


tu peux en dire plus stp

[exoseven]

Monpanel c'est un TPanel que tu poses sur ta forme et ou va être positionné ton comptetour, mais je ne suis pas sur que ta façon de procéder soit très bonne, à mon avis il vaut mieux créer directement un composant graphique.

Donc au lieu de faire desscendre TCompteTours de TObject fais le descendre de TGraphicControl

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
 
type
  TCompteTours = class(TGraphicControl)
 protected
  procedure Paint; override;
  private
    { Déclarations privées }
    AngleDebut:Integer;
    AngleFin:Integer;
    ToursMaxi:Integer;
    ToursActuel:Integer;
  public
 
     constructor Create();
  end;

tu fais ton affichage dans Paint

Code :

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

1
2
3
4
5
6
7
procedure TCompteTours.Paint;
begin
  with Canvas do
  begin
    ....
  end;
end;

pour ton problème de référence circulaire il faudrait que tu déclares unit1 dans comptetours dans la partie implementation

Code :

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

1
2
3
4
5
implementation
uses unit1
var
  Bmp, Bmp1: TBitmap;
...

[kickoune]

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
unit CompteTours;
 
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls,Math;//,Unit1;
type
  TCompteTours = class(TGraphicControl)
 
  private
    { Déclarations privées }
    AngleDebut:Integer;
    AngleFin:Integer;
    ToursMaxi:Integer;
    ToursActuel:Integer;
  public
 
     constructor Create();
     procedure dessineCadran();
     procedure dessineAiguille(tours:integer);
  end;
 
 
implementation
 
uses Unit1;
 
var
  Bmp, Bmp1: TBitmap;
       P:TPaintBox;
const
R = 100;      // R = rayon du cadran du compte tours
RR = R * 2;
 
constructor TCompteTours.Create();
begin
AngleDebut:=240;
AngleFin:=300;
P:=TPaintBox.Create(nil);
P.Parent := Unit1;
P.Top := 0;
P.Left := 0;
P.Width := RR;
P.Height := RR;
 
   //création du bitmap
  Bmp := TBitmap.Create;
Bmp.Width := RR;
Bmp.Height := RR;
Bmp.canvas.brush.Color := clBtnFace;
  Bmp1 := TBitmap.Create;
  Bmp1.Width := RR;
  Bmp1.Height := RR;
  Bmp1.canvas.brush.Color := clBtnFace;
 
 
 
 With Bmp1 do begin
    Canvas.Pen.Color := clBlack;
    Canvas.brush.Color := clBtnFace;
   //Canvas.FillRect(ClientRect);
    Canvas.brush.Color := clYellow;
    Canvas.Ellipse(0, 0, RR, RR);
 end;
 
P.Canvas.Draw(0,0,Bmp1);
 
end;

j'ai modifié le uses et le parent, sa compile pas: " . attendu mais ; trouvé "


Je vais lire la doc sur les composants, mais je veux faire un object qui a une paintbox dans ses variables et qui puisse etre déssiné dans un autre form(sans qu'il y soit dessiner ou pointeur en paramètre).

obligé de passer par un composant?


merci de vos conseils

[ero-sennin]

Salut,

Pour l'erreur, c'est qu'il te manque le end. (n'oublies pas le point) à la fin...

A+

[exoseven]

tu peux très bien avoir un objet avec un paintbox, mais tu dois savoir que ton paintbox ne conserve pas les données au contraire d'un Timage donc tu devras le rafraichir.

Pour l'utiliser tu devras veiller à lui attribuer le parent du composant où il sera affiché