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

Question

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!

beckerich · Answer

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.

BernieNoel68 · Answer

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!

cs_cantador · Answer

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

beckerich · Answer

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;

beckerich · Answer

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.

cs_cantador · Answer

et pourquoi pas un transtypage :

  TStringGrid(DBgrid1).Cells[ACol, ARow]

cantador

beckerich · Answer

property


Cells
 [ACol, ARow: Integer]: string;

renvoie une chaîne de caractères et non pas une référence à une cellule 

luc

cs_cantador · Answer

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

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

8 réponses

Votre réponse

Discussions similaires