[DbGrid] Problème de positionnementRésolu

Question

Bonjour,

Dans une dbgrid, la ligne que je souhaite colorier n'est pas la bonne :
Il colorie la suivante

procedure TFPrincipale.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  With DbGrid1 do
  begin
    if TblCampListDepartement.AsString = CBListe.Text then
    begin
      Column.Color := clRed;
    end
    else
      Column.Color := clYellow;
  end;
end;

cs_Delphiprog · Accepted Answer

L'aide en ligne dit ceci : "Ecrivez un gestionnaire d'&#233;v&#233;nement OnDrawColumnCell pour r&#233;aliser un dessin personnalis&#233;des donn&#233;es des cellules de la grille.Le dessin des cellules se fait en utilisant les m&#233;thodes de la propri&#233;t&#233;Canvas."

C'est juste ce qu'il te manque.
Ainsi, ton code devient :

procedure TFPrincipale.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
With DbGrid1 do
begin
if TblCampListDepartement.AsString =  CBListe.Text then
//Column.Color := clRed;
      Canvas.Brush.Color := clRed;
    else
//Column.Color := clYellow;
      Canvas.Brush.Color := clYellow;

    DefaultDrawColumnCell(Rect, DataCol, Column, State);
   end ;

end;


<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

[DbGrid] Problème de positionnement

1 réponse

Votre réponse

Discussions similaires