sorte de double "OnDrawColumnCell"

**jbat** · 25/08/2006, 15h29

Bonjour,

J'ai crée un composant dérivé de TCustomDBGrid. Le principal comportement surchargé est le dessin de la grille (pour simplifier, couleur légèrement plus foncée une ligne sur deux).

Lorsque je pose le composant sur une fiche, tout fonctionne bien.

Mais là où je me perds, c'est quand dans une application qui utilise ce composant, je souhaite surcharger le dessin de la grille (les couleurs principalement) en fonction des données contenues...

Sachant que j'ai une unité qui me permet de réaliser des mélanges de couleurs, j'aurai souhaité que les deux "customisations" se superposent par semi-transparence, mais je n'y parviens pas et plus j'essaye, plus je m'embrouille... J'ai l'impression qu'il n'y a de place que pour une des deux customisation, soit celle du composant, soit celle de l'application qui l'utilise.

Avez-vous des pistes ou un pseudo-code pour m'aider à clarifier tout ça ? quelle portion de code doit être réalisé dans l'application, dans le composant ?...

Jbat.

**Pedro** · 25/08/2006, 19h00

Salut

A la limite, tu peux faire un truc:
Dessine ton composant tel qu'il doit être normalement. A la fin du Paint, ajoute un évènement OnAfterPaint.
Dans le prog, utilise cet évènement pour dessiner par dessus ce qu'il y a déjà mais en transparence

Sinon, pourquoi tu ne peux pas tout dessiner dans le Paint du compo?

**jbat** · 28/08/2006, 16h09

après un bon week-end de sommeil, j'ai trouvé...

Au cas où ça intéresserai d'autres, voici ce que j'ai fait...

Dans mon composant, j'ai trois choses à faire :

1°) Recoder "DefaultDrawColumnCell" en écrasant la méthode de la calsse mère. Dans mon "DefaultDrawColumnCell", j'altère légèrement et au dernier moment la couleur demandée pour tenir compte de la parité de la ligne.

2°) Recoder également "DrawColumnCell"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TDbGridXt.DrawColumnCell(const Rect: TRect; DataCol: Integer;
  Column: TColumn; State: TGridDrawState);
    begin
        if Assigned(OnDrawColumnCell) then
        begin
            OnDrawColumnCell(Self, Rect, DataCol, Column, State);
        end
        else
        begin
            MyInnerDrawColumnCell(Self, Rect, DataCol, Column, State);
        end;
    end;

3°) Coder MyInnerDrawColumnCell comme suit :

Code :

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

1
2
3
4
5
6
procedure TDbGridXt.MyInnerDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
    begin
        DefaultDrawColumnCell(rect,datacol,column,state);
    end;