Discussion :

[Lung]

Dans un TValueListEditor, comment modifier l'affichage d'une cellule ?

J'ai essayé d'utiliser l'évènement OnDrawCell, mais avec DefaultDrawing à True, ca ne fait rien (ça ne modifie pas l'affichage); Et avec DefaultDrawing à False, ça n'affiche plus rien.

Comment s'utilise cet évènement ?
Merci.

[Cl@udius]

Salut

ValueListEditor se comporte comme un StringGrid ou DrawGrid.

Un exemple bateau: alternance de la couleur de fond ligne paire/impaire:
Avec DefaultDrawing à True.

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
 
procedure TForm1.ValueListEditor1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  MyRect: TRect;
begin
  if [gdSelected, gdFixed] * State <> [] then Exit;
 
  MyRect := Classes.Rect(Rect.Left + 2, Rect.Top, Rect.Right, Rect.Bottom);
  with TValueListEditor(Sender) do
  begin
    if Odd(ARow) then
      Canvas.Brush.Color := clBtnFace
    else
      Canvas.Brush.Color := clWindow;
    Canvas.FillRect(Rect);
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, MyRect,
             DT_SINGLELINE or DT_VCENTER);
  end;
end;

@+ Claudius

[Lung]

Bon, je teste et je te redis ....

[Lung]

Ca marche !


Par contre, j'aimerai une petite exmplication sur la ligne :

Code :

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

 if [gdSelected, gdFixed] * State <> [] then Exit;

Je comprend en gros ce que ça fait, mais la syntaxe m'échappe ...

[Cl@udius]

Salut

Le signe * est l'opérateur d'intersection entre 2 ensembles.

Code :

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

1
2
 
  if [gdSelected, gdFixed] * State <> [] then Exit;

En gros, si l'ensemble définit par l'intersection de State et [gsSelected, gdFixed] n'est pas un ensemble vide, alors...


@+ Claudius

[Lung]

Ok.
Je connaissais pas.