Discussion :

[isachat666]

Bonjour,

J'utilise les composant cxgrid et cxdbgrid (devexpress) et je suis confrontée au pb suivant:
dans ma grille j'ai une colonne avec la property checkbox (pour afficher une valeur booléenne gràce à une case à cocher)

Dans certains cas (sur certaines lignes), l'utilisateur ne doit pas pouvoir changer la valeur de la case à cocher, je voudrais donc griser la case dans ces cas là et je pensais utiliser l'évènement CustomDrawCell de la grille, mais je ne sais pas comment l'utiliser:

Code :

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

1
2
3
procedure TFrm.VTDBColumn_1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

Merci de votre aide

Isa

[anapurna]

Salut

cette methode ne sert qu'a dessinner la grille
en fait il te faut controler les donnée sous jaccente
pour effectuer l'operation voulue

@+ Phil

[aityahia]

tu peut faire un traitement dans l'évenement

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
 if <Condition> Then
  DbGrid1.Options := DbGrid1.Options-DgEditing
else
DbGrid1.Options := DbGrid1.Options+DgEditing
end;

[isachat666]

tu peut faire un traitement dans l'évenement

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
 if <Condition> Then
  DbGrid1.Options := DbGrid1.Options-DgEditing
else
DbGrid1.Options := DbGrid1.Options+DgEditing
end;

Cela permet bien d'empêcher la modification des données mais ne grise pas la case (pour indiquer à l'utilisateur que ces données sont non modifiables)

merci,
Isa

[aityahia]

je comprend votre probleme maintenant, je n'est pas utiliser ce composant alors je peut vous répondre mais avec un dbgrid classic en peut le faire.

pour les composant grille Tms TAdvGrid ou Grille si vous pouvez la procurer, j'ai pas trouvé mieu.

[isachat666]

Bonjour,
Merci d'avoir essayé de m'aider. J'ai trouvé la solution en consultant un forum russe, bien sûr je n'ai pas compris les explications qui allait avec mais le code correspond à ce que je veux faire.

Au cas où cela pourrait resservir à quelqu'un:
bloquer la saisie seulement sur certaines lignes

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
 
procedure TMaForm.MaGrilleFocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
//...
  if  MaCondition then
  begin    
    MaGrilleMaColonne.Options.Editing := false;
    MaGrilleMaColonne.Properties.ReadOnly := true;
  end
  else
  begin    
    MaGrilleMaColonne.ReadOnly := false;
    MaGrilleMaColonne.Options.Editing := true;
  end;
end;

redessiner la cellule (dans ce cas masque la case à cocher à défaut de la griser

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TMaForme.MaGrilleMaColonneCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
   if MaCondition then
  begin
    //ACanvas.Brush.Color := clGray; //éventuellement pour mettre une couleur de fond...
    ACanvas.Canvas.FillRect(AViewInfo.Bounds);
    ADone := True
  end else
    ADone := False;
end;

Isa