Encore un overload refusé

:salut: Bonjour à tous

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

J'ai un composant créé ainsi :

Code:

---

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 :

Citation:

---

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

---

:aie:

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

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.

Citation:

---

Envoyé par 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.

---

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

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:

---

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

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 :mur:

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

Bonjour,

Ce n'est pas un TNotifyEvent mais un TDrawColumnCellEvent. Le principe me semble donc pouvoir être dupliqué au moins en théorie. Pour les raisons évoquées, je n'ai pas essayé.

Cordialement. Gilles

Je viens rapidement de vérifier. Le principe est jouable.
Je vous transmets un composant de test lzdbgrid comprenant également un projet de test avec une minibase SQLite3 sous Win 32. Appuyez une fois sur bouton1 : cela remplit une base SQLite en mémoire (ne cherchez pas le fichier ;)). Et une fois sur le bouton2 : cela remplit le lzdbGrid.

L'héritier du dbgrid colorie la dernière cellule en rouge pour les lignes impaires et vert pour les autres.
http://www.selzig.com/1312051700/vue.png
Donc à regarder de plus près : je crois que c'est jouable. Il faut faire les tests nécessaires avant d'adopter cette solution... Mais vraiment je n'ai pas le temps.

Cordialement. Gilles

Merci infiniment selzig. En effet c'est un TDrawColumnCellEvent. Je vais regarder ce que vous avez envoyé.

Il y a cependant une chose que je n'arrive pas à comprendre. Voilà ce que j'ai trouvé dans le code de DBGrids

Code:

---

1 2 3 4 5 6

TCustomDBGrid=class(TCustomGrid) private ..... ..... public procedure DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

---

et bien sûr, plus loin le code de cette procédure. Puis il y a la création de la classe TDBGrid

Code:

---

1 2 3 4

TDBGrid = class(TCustomDBGrid) public ..... .....

---

dans la rubrique public, j'ai ajouté

Code:

---

procedure DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); override;

---

et plus loin j'ai codifié

Code:

---

1 2 3 4 5 6

{TDBGrid} procedure TDBGrid.DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin inherited; end;

---

juste pour tester. Et bien j'ai un message me disant qu'il n'y a pas, dans un ancêtre, de procédure à surcharger ! Et là je ne pige plus. :aie:

Citation:

---

{TDBGrid}
procedure TDBGrid.DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
inherited; // il n'y en a effectivement pas !!!
end;

---

Code:

---

1 2 3 4 5

TMyDBGrid = class(TDBGrid) ... ; procedure TMyDBGrid.DefaultDrawColumnCell(const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin inherited; // il y a bien TDBGrid.DefaultDrawColumnCell end;

---