Récupérer couleur / police dans une cellule de DBGrid

Bonjour a tous!

J'ai un petit problème pour récupérer la couleur et la police d'une cellule dans un DBGrid.

Je m'explique : pour rendre l'affichage plus agréable dans mon DBGrid je modifie la couleur et la police en fonction de la valeur d'un champ (via OnDrawColumnCell)

-------------------------------------------------------------------------
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If TDBGrid(Sender).DataSource.DataSet.FieldByName('MonChamp').AsInteger=1Then
    begin
//alorsonmetlacelluledelaligneàclRed et la police en clWhite
      TDBGrid(Sender).Canvas.Brush.Color := clRed;
      TDBGrid(Sender).Canvas.Font.Color  := clWhite;
    end else
    begin 
//SinononmetlacelluleàclWhite et la police en clBlack
      TDBGrid(Sender).Canvas.Brush.Color := clWhite;
      TDBGrid(Sender).Canvas.Font.Color  := clBlack;
    end;
//Onappliquelesmodifications.
  TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;
-------------------------------------------------------------------------

Jusque là pas de problème tout fonctionne!

Pour un export, je souhaite récupérer la valeur des champs (de ce coté la pas de problème, j'arrive a exporter le contenu de mon DBGrid) 
mais je souhaiterais récupérer également la couleur des cellules et la police!

J'ai essayé pas mal de truc, mais je n'arrive pas!

Avez vous une idée?

Merci d'avance!

salut,

comment parcours-tu les enregistrements pour l'export :

par un ?

while not Dataset.Eof do
begin
  fonction d'export du record;
  Next;
end;

dans ce cas, tu dois faire les mêmes test que dans l'évènement

DBGrid1DrawColumnCell

pour spécifier la couleur de la cellule et de la police.

Luc.


Merci de ta reponse! En effet ca aurait été la solution logique, mais ca ne va pas dans mon cas malheureusement.

Le but est de faire une fonction générique d'export pour un DBGrid :

procedure TForm1.ExportDBGrid( aGrid: TDBGrid );
begin
while not aGrid.DataSource.Dataset.Eof do
  begin
    //fonction d'export du record;
    Next;
  end;
end;

Donc je ne connait pas les critères de coloration du DBGrid et c'est bien là le problème! Il faudrait que je puisse les retrouver dynamiquement.

Si queluqu'un a une idée je suis preneur!

bonjour,
une idée comme ça..
pourquoi ne pas boucler sur les records du dbgrid lui même ?

cantador

je suis entrain de bosser la dessus, cantador:

procedure TFM_DOCFOU.ACT_OOExecute(Sender: TObject);
  procedure TestCells;
  var
    sl: TStringList;
    i_row, i_col: integer;
    f_colenter: TNotifyEvent;
  begin
    i_row := 0;
    i_col := 0;
    sl := TStringList.Create;
    try
      DGD_TRFDOC.DataSource.DataSet.First;
      f_colenter := DGD_TRFDOC.OnColEnter;
      DGD_TRFDOC.OnColEnter := DGD_TRFDOCColEnter;
      try
        while not DGD_TRFDOC.DataSource.DataSet.Eof do
        begin
          for i_col := 0 to DGD_TRFDOC.Columns.Count - 1 do
          begin
            DGD_TRFDOC.SelectedIndex := i_col;
            sl.Add(format('ligne %d colonne %d texte %s', [i_row, i_col, DGD_TRFDOC.SelectedField.AsString]));
            // je ne trouve pas de propriété ou de méthode renvoyant la cellule active, on trouve bien la colonne (selectedindex) mais pas la cellule
          end;
          DGD_TRFDOC.DataSource.DataSet.Next;
          Inc(i_row);
          i_col := 0;
        end;
      finally
        DGD_TRFDOC.OnColEnter := f_colenter;
      end;
      sl.SaveToFile('toto.txt');
    finally
      sl.Free;
    end;
  end;
begin
  SCB_TRI.ItemIndex := 3;
  SCB_TRIClick(Self);
  with DTB_TRFDOC do
  begin
      TestCells;
  end;
end;

j'ai regardé l'implémentation de TCustomGrid dans l'unité Grids.
Il n'y a pas de notion de cellule active dans les propriétés privées ou protégées.
Il faudrait réécrire un composant en y ajoutant cette notion, mais bonjour le boulot, et puis la routine de BernieNoel68 ne serait plus indépendante...

j'abandonne,
Luc.

et pourquoi pas un transtypage :

  TStringGrid(DBgrid1).Cells[ACol, ARow]

cantador

 				 						property 				 				 						Cells 				 [ACol, ARow: Integer]: string;

renvoie une chaîne de caractères et non pas une référence à une cellule 

luc

hé oui..le TDBGrid est trop pauvre en ce domaine...

avec Le TcxGrid on a en revanche :

procedure TFAffaire.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin

et
procedure TFAffaire.cxGrid1DBTableView1StylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin

cantador