Discussion :

[valoji]

Bonjour,

J'utilise un Cxgrid de la suite devexpress, qui est rattaché à un Datasource. Je peut créer, supprimer etc..

Cependant je voudrais que lorsque mon utilisateur fait une création ou une modification il ne puisse pas naviguer sur les autres enregistrements de mon Cxgrid, jusquà qu'il annule ou valide l'enregistrement en cours.

J'ai fais plusieurs tests, fait des recherches sur notre ami Google sans succés.

Merci de votre aide.
Valoji

[valoji]

Extrait de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFic_PlanFact.cxGrid_LstRubriqueNavigatorButtonsButtonClick(
  Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);
begin
  case AButtonIndex of
    NBDI_INSERT : Begin
                   Adone := True;
                   FlagEtatFonc := Creation;
                   Table_NoTru.Insert;
                   ActiverBoutons(True);
                   //cxGrid_LstRubrique..DataController
                  End;

[Rayek]

un simple

Code :

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

cxGrid.enabled := False

devrait être suffisant pour eviter que l'utilisateur balade avec la grid non ?

[Kaféine]

Salut,

la navigation dans la grid implique un post si le dataset est en edition.
il suffit donc de jouer avec le beforepost et un flag pour n'autoriser le post que depuis le bouton du navigateur de la grid.

[valoji]

Salut,

J'ai utilisé la méthode de Kaféine, j'obtiens le résultat voulu :
Code utilisé pour les personnes qui sont interressé :
Dans l'évenement NavigatorButtonsButonnClick, utilisé un flagcontrole :

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
procedure TFic_PlanFact.cxGrid_LstRubriqueNavigatorButtonsButtonClick(
  Sender: TObject; AButtonIndex: Integer; var ADone: Boolean);
begin
  case AButtonIndex of
    NBDI_INSERT : Begin
                   Adone := True;
                   FlagEtatFonc := Creation;
                   Table_NoTru.Append;
                   ActiverBoutons(False);
                   Flagcontrole := False;
                  End;
    NBDI_CANCEL : Begin
                   Adone := True;
                   FlagEtatFonc := Consultation;
                   Table_NoTru.Cancel;
                   Flagcontrole := True;
                   ActiverBoutons(True);
                  End;
    NBDI_POST   : Begin
                   Adone := True;
                   FlagEtatFonc := Consultation;
                   Table_NoTru.Post;
                   Flagcontrole := True;
                   ActiverBoutons(True);
                  End;

Puis dans l'évenement before post de ta table cancel, edit et post, etc. :

Code :

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

1
2
3
4
5
6
7
  procedure TFic_PlanFact.Table_NoTruBeforeCancel(DataSet: TDataSet);
begin
  if Flagcontrole = False then
  begin
    Abort;
  end;
end;

Cela oblige les utilisateurs a utilisé les boutons du navigateurs.

Pour un confort de visibilité dans mon cxgrid, je voudrais grisé toutes mes lignes sauf la ligne en cours de création ou de modification. Je débute avec ces composants et à vrai dire j'ai bien du mal à trouver de l'aide sur ces composants (A part dans les exemples fournis par la suite devexpress et sur leur site, en anglais bien sur.)

Merci pour vos réponse,
Valoji

[valoji]

petite erreur dans le code, dans les cas NBDI_CANCEL et NBDI_POST positionner le flagcontrole avant table_notru.cancel ou .post comme ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
NBDI_CANCEL : Begin
                   Adone := True;
                   FlagEtatFonc := Consultation;
                   Flagcontrole := True;
                   Table_NoTru.Cancel;
                   ActiverBoutons(True);
                  End;
    NBDI_POST   : Begin
                   Adone := True;
                   FlagEtatFonc := Consultation;
                   Flagcontrole := True;
                   Table_NoTru.Post;    
                   ActiverBoutons(True);
                  End;

Valoji.

[valoji]

J'ai trouvé la solution :

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
procedure TFic_PlanFact.cxGrid_LstRubriqueCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if FlagEtatFonc <> Consultation then
  begin
    if (AViewInfo.GridRecord.Selected) then
    begin
        ACanvas.Brush.Color := clWhite;
        ACanvas.Font.Color := clNavy;
    end
    else
    begin
      ACanvas.Brush.Color := clWhite;
      ACanvas.Font.Color := clGray;
    end;
 
  end;
end;

Merci pour votre aide
Valoji.