Alterner les couleurs dans DBGrid, erreur à la compil,mais pas tout le tempsRésolu

Question

Bonjour &#224; tous,

Voil&#224; sur plusieurs fiches, j'alterne les couleurs d'un DBGrid, ca fonctionne, mais maintenant quans je cr&#233;e une fiche et veux faire la m&#234;me chose, j'ai un message d'erreur du compilateur me disant soit que : ma variable dataset n'est pas d&#233;clar&#233;e ,et si le compilateur passe cette &#233;tape il bloque en me disant que "AternGrid" n'est pas d&#233;clar&#233;

Ce que je ne comprend pas c'est pourquoi cela fonctionne sur certaine fiches et maintenant ca bloque???

Ci apr&#232;s  ce que j'utilise,si quelqu'un a un d&#233;but d'explication ou une autre m&#233;thode je l'en remercie

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var dataset:Tdataset;


begin
      dataset:= (Sender as TDBGrid).DataSource.DataSet;
    with AlternGrid(Sender) do
    begin
         if (DataSet.RecNo mod 2 = 1 ) then
         Canvas.Brush.Color := $00E6D9C4//$00EBFEFB
         else
         Canvas.Brush.Color := $00EAF7FF;// $00E7ECCA
      if  DataLink.ActiveRecord = Row -1 then
                               begin
                               Canvas.Font.Color:= clWhite ;
                               Canvas.Brush.Color:=clBlack;
    end;                       end ;
     DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column, State);


Bonne prog &#224; tous

DGPat

DGPat · Accepted Answer

Oups !

Autant pour moi, utilisant des modules de donn&#233;es, je ne m'&#233;tais pas apercu que je n'avais pas d&#233;clar&#233; tout dans "uses"  ni Alterngrid

Merci a Aymenk qui est &#224; l'origine de cette source et &#224; tous ceux qui donne des id&#233;es qui d&#233;bloquent pas mal de situation

Ce n'est pas parce qu'on d&#233;bute que l'on est forcement idiot
DGPat

Alterner les couleurs dans DBGrid, erreur à la compil,mais pas tout le temps

1 réponse

Votre réponse

Discussions similaires