Discussion :

[JP.NUAGE]

Bonjour à tous

Décidément, j'ai des surprises en passant de D7 à Lazarus.

J'ai un composant créé ainsi :

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
TMagrille : class(TDBGrids);
// ici ddes propriétés et des fonctions
.
.
.
TMaNouvelle_Grille : class(TMagrille);
  private
    { Déclarations privées }
    FAlternateColor : TColor;
    FSelectionColor : TColor;
    FSelection : TListInteger; 
    FClePrimaireInteger : TField;
    FCleSelection : TListInteger;
    FOnListeSelectionChange: TNotifyEvent;
  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;
    procedure ListeSelectionChange; dynamic;

et là, la procédure DrawColumnCell est refusée. Pourtant, il me semble que la Classe DBGrids à bien un évènement OnDrawColumnCell, alors j'ai du mal à comprendre pourquoi j'ai ce message :

Error: There is no method in an ancestor class to be overridden: "procedure DrawColumnCell(const RECT;LongInt;TColumn;TGridDrawState);"

[Jon Shannow]

onDraw et Draw, c'est pas pareil ...

[JP.NUAGE]

Certes, onDraw et Draw ce n'est pas pareil. Alors comment puis-je surcharger la procédure DrawColumnCell ? Je n'ai pas ce soucis en Delphi.

[Jon Shannow]

Certes, onDraw et Draw ce n'est pas pareil. Alors comment puis-je surcharger la procédure DrawColumnCell ? Je n'ai pas ce soucis en Delphi.

Il y a des différences entre Lazarus et Delphi dans pas mal de composants, alors, il se peut que DrawColumnCell n'existe pas dans Lazarus (pas le temps de chercher). Le mieux est de regarder dans le sources de dbgrids pour voir comment sont gèrer les évènements OnDraw....

Bon courage

JS

[Invité]

Bonjour,

Je commence un peu à décrocher en Lazarus... et je connais mal les dbGrids puisque j'utilisais mes propres dbStringGrids. Donc le propos suivant est peut être complètement erroné.

Il me semble que le DrawColumnCell est un évènement des dbGrids : "The OnDrawColumnCell event handler is called... "

En Lazarus, je ne sais pas si on peut "overrider" un évènement... Je n'y suis jamais arrivé... J'ai utilisé une méthode de contournement.

J'ai enlevé ce qui n'a pas d'utilité pour vous dans l'ancien code de mes lzBtitButton et laissé ce qui me permettait "d'overrider" l'évènement MouseUp. J'espère que cela pourra vous être utile. Par réplication, même si c'est un peu lourd, je pense que vous pouvez contourner votre problème de la même manière.

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
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons;
 
type
  TlzBitBtn = class(TBitBtn)
  private
  { Private declarations }
 
    // Modification des événements............................... [partie 1]
    FOnMouseUp   : TNotifyEvent;
 
    // Modification des évènements............................... [partie 1-bis]
    procedure SelfOnMouseUp (Sender: TObject; Button: TMouseButton;
              Shift: TShiftState; X, Y: Integer);    
 
  protected
    { Protected declarations }
 
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
 
  published
    { Published declarations }
 
    // Modification des évènements .................................. [partie 2]
    property OnMouseUp : TNotifyEvent read FOnMouseUp write FOnMouseUp;
end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  {$I lzbitbtn_icon.lrs}
  RegisterComponents('Additionlz',[TlzBitBtn]);
end;
 
constructor TlzBitBtn.Create(AOwner: TComponent);
begin
    Inherited Create(AOwner);
    // Modification de l'évènement OnMouseUp..................... [partie 3]
    Inherited OnMouseUp := @SelfOnMouseUp;
end;
 
destructor TlzBitBtn.Destroy;
begin
  inherited Destroy;
end;
 
 
procedure TlzBitBtn.SelfOnMouseUp(Sender: TObject;Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
begin
  {Mon code : ici placé avant ce qui serait le inherited d'un classique override}
  if Button <> mbLeft then
   inherited
  else begin
   if (X > 0) and (X < Self.Width) and (Y > 0) and (Y < Self.Height) then
    Self.Glyph := FBitmapOver
   else
    Self.Glyph := FBitmapOut;
 
  //Si code OnMouseUp alors l'exécuter
  if Assigned(FOnMouseUp) then FOnMouseUp(Sender);
  //Cette dernière ligne est à éliminer s'il s'agit d'un code de remplacement et
  //non d'un code complémentaire précédant ou suivant le code de l'utilisateur.
 
  end;
end;

En conclusion, le principe du contournement est simple même s'il est un peu long à écrire. De prime abord je peux supposer qu'il est réplicable mais sans certitude car je n'ai plus de Lazarus installé.... histoire de ne pas me laisser tenter et surtout de ne pas interférer avec mon apprentissage de QT/C++... Je crois d'ailleurs que son maintien lors d'une tentative récente a été -sans être prédominante- une des causes de mon rejet de FMX.

Bonne continuation.
Cordialement. Gilles

[JP.NUAGE]

Merci selzig pour cette approche, hélas, elle ne fonctionne pas. Je pense que OnDrawColumnCell n'est pas un NotifyEvent et le chainage n'est pas accepté par le compilateur et donc

Ce qui me surprend est que j'arrive sur l'ordre Repaint, et que celui-ci n'appelle pas du tout la procedure DrawColumnCell