Discussion :

[JP.NUAGE]

Bonjour à tous

J'ai codifié ceci (le symbole //// représente des lignes de code sans problème)

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
   TDBMaGrile = class(TCustomDBGrid)
   private
   { Déclarations privées }
      ////
      ////
      procedure /////;
   protected
   { Déclarations protégées }
   public
   { Déclarations publiques }
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
   published
   { Déclarations publiées }
end;
 
type
  TDBGridMaGrid = class(TDBMaGrille)
  private
    { Déclarations privées }
    FClePrimaireInteger : TField;
  protected
    { Déclarations protégées }
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
      Column: TColumn; State: TGridDrawState); override;

Il y a du code après bien sûr, mais mon proiblème est sur le DrawColumnCell. Blocage à la compilation :

Ther is no method in an ancestor to be overridden

et je ne comprends pas pouquoi

[tourlourou]

Je ne vois pas dans l'aide en ligne des ancêtres invoqués TCustomDBGrid et TCustomGrid de procédure DrawColumnCell.

Je vois DrawCell ou DrawColumnText, par exemple.

Soit tu voulais dériver de l'une de celles-ci, soit c'est une nouvelle fonction, donc sans override.

[JP.NUAGE]

Tout à fait d'accord et pourtant, TDBGrid a bien une procedure DrawColumnCell. Il suffit de poser un DBGrid dans une forme pour voir le OndrawcolumnCell.
Au départ, j'avais codifié TDBGrid au lieu de TCustomDBGrid, mais pas mieux. C'est pour cela que je ne comprends pas. D'où vient le DrawColumnCell du DBGrid ?
J'ai même essayé de mettre un DrawColumCell dans TDBMagrille, mais comme tu le dis tourlourou, l'aide ne montre pas.

Pige pas ! On peut l'utiliser, mais cette procédure n'existe pas

[tourlourou]

C'est un gestionnaire d'événement associé au DrawCell qui permet d'effectuer une fonction (avec les paramètres adéquats) qu'on lui a passée chaque fois qu'il se déclenche :

Code :

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

1
2
3
4
5
6
7
8
9
TMyGrd.OnDrawCell := @MyOnDrawCell;
// avec MyOnDrawCell du type attendu :
type TDrawColumnCellEvent = procedure(
  Sender: TObject;
  const Rect: TRect;
  DataCol: Integer;
  Column: TColumn;
  State: TGridDrawState
) of object;

[JP.NUAGE]

Cela ne me rassure pas. Je patauge. Je ne vois pas comment je vais codifier pour que ma procédure prime !