Discussion :

[SERGE92]

Salut

J'ai un problème avec mon compilateur et je suis passé de forum en forum. Pour résoudre le problème, certaines personnes me parlent du pare-feu de mon antivirus, mais jusqu'à présent rien. S'il vous plaît, aidez-moi.

Voici le message d'erreur :

le projet manasse a levé une classe d'exception "External : SIDSEGV" dans le fichier "include\control.inc" à la ligne 3271: GetTextMethod:=TMethod(@Self.GetTextBuf);

Merci d'avance pour l'aide.

[BeanzMaster]

Salut

Il semblerait qu'un pointeur ou un composant ne soit pas correctement initialisé. Il faudrait nous en dire un peu plus et un petit bout de code serait le bienvenu pour t'aider.

[anapurna]

Salut

Effectivement, il semblerait que tu essaies d'accéder à une propriété d'un composant non initialisé.

[hlmhv]

Bonjour à tou(te)s!

Il semble bien que ce message d'erreur enquiquine pas mal de monde, et tant sur les fora anglophones que francophones!
J'ai en ce moment le même problème, mais pas en phase de "destruction" des objets: un simple TPaintbox correctement créé (me semble-t'il car j'ai accès à ses variables) me donne cette erreur dés que j'essaie de faire appel à une bête instruction graphique (Rectangle pour ne pas le citer, ce qui n'est tout de même pas le Pérou!).

Je vous cède l'unité en cause, la méthode en cause en rouge, ne me les perdez pas!

OS:Windows 10
PC Acer i7 1.8 à 4 GHZ, RAM 8 Go

Merci d'avance!

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
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
unit UPanels;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls;

Type
  TTYpe = (tyUndefined, tyBMP, tyCircle, tyPaint, tyCP);
  TPanelImage = class(TPanel)
    BMP: TBitMap;
    PB: TPaintBox;
    Constructor Create(IOwner: TComponent);
    Destructor Done;
    Procedure  SetCadre(IX1, IY1, IX2, IY2: integer);
    Procedure  SetColours(IColF, IColA, IcolG: TColor);
    Procedure  SetValues(Imin, Imax, Ival: integer);
    Procedure  SetTYpe(IType: TType);
    Procedure  SetParams(IX1, IY1, IX2, IY2: integer;
                         IColF, IColA, IcolG: TColor;
                         Imin, Imax, Ival: integer;
                         ITYpe: TType);
    Procedure  Draw;

    private
    X1, Y1, X2, Y2: integer;
    Subtitle: String;
    ColFond, ColAiguille, ColGraduation: TColor;
    Min, Max, Valeur: Integer;
    TypeDessin: TType;
    Procedure TraceCircle;
    Procedure PanelPaint;
  end;

implementation

Constructor TPanelImage.Create(IOwner: TComponent);
Begin
  inherited create(IOwner);
  BMP:=TBitMap.Create;
  PB:=TPaintBox.Create(self);
  PB.Align:=alClient;
  TypeDessin:=tyundefined;
end;

Destructor TPanelImage.Done;
Begin
  BMP.Free;
  PB.Free;
end;

Procedure  TPanelImage.SetCadre(IX1, IY1, IX2, IY2: integer);
Begin
  X1:=IX1;  X2:=IX2;  Y1:=IY1;  Y2:=IY2;
  Left:=X1; Top:=Y1;
  Width:=X2-Left;
  Height:=Y2-Top;
end;

Procedure  TPanelImage.SetColours(IColF, IColA, IcolG: TColor);
Begin
  ColFond:=IColF;   ColAiguille:=IColA;   ColGraduation:=IColG;
end;

Procedure  TPanelImage.SetValues(Imin, Imax, Ival: integer);
Begin
  Min:=IMin;    Max:=IMax;    Valeur:=IVal;
end;

Procedure  TPanelImage.SetTYpe(IType: TType);
Begin
  TYpeDessin:=ITYpe;
end;

Procedure  TPanelImage.SetParams(IX1, IY1, IX2, IY2: integer;
                                 IColF, IColA, IcolG: TColor;
                                 Imin, Imax, Ival: integer;
                                 ITYpe: TType);
Begin
  SetCadre(Ix1, Iy1, Ix2, Iy2);
  SetColours(IColF, IColA, IColG);
  SetValues(IMin, IMax, IVal);
  SetType(IType);
end;

Procedure TPanelImage.TraceCircle;
Begin
  With PB.Canvas Do Begin
    Pen.Color:=ColAiguille;
    Brush.Color:=ColFond;
      Rectangle(55, 55, Width-5, Height-5);
    end;
End;

Procedure TPanelImage.PanelPaint;
Begin
  With PB Do Begin
    Color:=ColFond;
    RePaint;
    end;
end;

Procedure  TPanelImage.Draw;
Begin
  Case TypeDessin of
    tyCircle: TraceCircle;
    tyPaint:  PanelPaint;
    tyCP:     Begin
      PanelPaint;
      Tracecircle;
        end;
    end;
end;

end.

[Jipété]

Je vous cède l'unité en cause, la méthode en cause en rouge, ne me les perdez pas !

T'inquiètes pas, on va même pas le lire : du code (surtout une grosse tartine) sans aucune indentation et sans la balise "CODE" de l'éditeur d'ici (bouton # au cas où tu voudrais [tu dois !] le remettre en forme), c'est juste imbuvable.

Alors suggestion :
d'abord cliquer sur "Modifier le message" en bas du message, puis mettre tout le code entre des balises CODE elles-mêmes encadrées par le bouton SPOILER (faut utiliser le bouton avec un S barré et rajouter "poiler"), et le code en rouge rajouté tout seul entre un nouveau jeu de CODE /CODE.

[anapurna]

salut

si tu crée ton TPaintBox comme ceux-ci le probleme persiste ?
pour moi le proprio

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
Constructor TPanelImage.Create(IOwner: TComponent);
Begin
  inherited create(IOwner);
  BMP:=TBitMap.Create;
  PB := TPaintBox.Create(self );
  PB.Parent := TWinControl(IOwner);
  PB.Align:=alClient;
  PB.OnPaint := PanelBoxPaint;
  TypeDessin:=tyundefined;
end;
Procedure TPanelImage.PanelBoxPaint(Sender: TObject);
begin
  PB.Canvas.Brush.color := ColFond    ;
  PB.Canvas.FillRect(PB.Canvas.ClipRect );
end;

[hlmhv]

salut

si tu crée ton TPaintBox comme ceux-ci le probleme persiste ?
pour moi le proprio

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
Constructor TPanelImage.Create(IOwner: TComponent);
Begin
  inherited create(IOwner);
  BMP:=TBitMap.Create;
  PB := TPaintBox.Create(self );
  PB.Parent := TWinControl(IOwner);
  PB.Align:=alClient;
  PB.OnPaint := PanelBoxPaint;
  TypeDessin:=tyundefined;
end;
Procedure TPanelImage.PanelBoxPaint(Sender: TObject);
begin
  PB.Canvas.Brush.color := ColFond    ;
  PB.Canvas.FillRect(PB.Canvas.ClipRect );
end;

Merci pour ta réponse malgré le mauvais format utilisé!
Alors si j'ajoute la ligne en rouge, plus de message d'erreur..
Par contre la ligne "PB.OnPaint:=PanelBoxPaint" est refusée: il semble que je ne puis assigner PanelBoxPaint à OnPaint..

[mm_71]

Par contre la ligne "PB.OnPaint:=PanelBoxPaint" est refusée: il semble que je ne puis assigner PanelBoxPaint à OnPaint..

J'ai jeté un bref coup d’œil encore endormi mais il me semble que:

Code :

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

PB.OnPaint := PanelBoxPaint;

Veut assigner une procédure à un évènement, si c'est bien le cas la bonne syntaxe est:

Code :

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

PB.OnPaint := @PanelBoxPaint;

[hlmhv]

J'ai jeté un bref coup d’œil encore endormi mais il me semble que:

Code :

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

PB.OnPaint := PanelBoxPaint;

Veut assigner une procédure à un évènement, si c'est bien le cas la bonne syntaxe est:

Code :

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

PB.OnPaint := @PanelBoxPaint;

Merci pour la précision: je comprends mieux, mais j'ignorais qu'un événement était considéré comme un pointeur..
Cela fait 30 ans que je programme en Pascal (en tant qu'amateur il est vrai) mais c'est une chose que j'apprends grâce à toi..

Mon but ultime est de créer un objet graphique susceptible d'être manipulé aisément, mais j'avoue ne pas m'être attendu à des complications..

A plus!