tstringgrid via ondrawcellRésolu

Question

Bonjour &#224; tous, je essai de colorier certaines case mais voila je n arrive pas &#224; colorier celles que je voudrai.En fite j ai les jours et l heure come echelle et je voudrai mettre les samedi et dimanche d une autre couleur ainsi que toute la ligne qui leurs corespond.

source:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
 var


begin
 with (Sender as TStringGrid) do
  begin


    if (ACol 0) or (ARow 0) then
      Canvas.Brush.Color := clBtnFace;
      if stringgrid1.Cells[acol,arow] ='Dimanche' then
       begin
      canvas.Brush.Color:=clblue ;
      ligne:=arow; end


    else if stringgrid1.Cells[acol,arow] ='Samedi' then canvas.Brush.Color:=clblue
  else
      Canvas.Brush.Color :=clgreen;
      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
      Canvas.FrameRect(Rect);



  end;


end;

cs_Kenavo · Accepted Answer

En r&#233;organisant ton source :




procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

var

  i : Integer;

begin

  with (Sender as TStringGrid) do

  begin

    Canvas.Brush.Color :=  clgreen;            // couleur par d&#233;faut

     for  i: =0 to ColCount-1 do                 // V&#233;rif dans la ligne

    if (Uppercase(Cells[i, arow]) = 'DIMANCHE')  or   // M&#233;fions-nous des majuscules-minuscules

       (Uppercase(Cells[i, arow])  ='SAMEDI') then

      canvas.Brush.Color :=  clblue;           // si samedi ou dimanche dans la ligne -> bleu

     if  (ACol  0) or (ARow  0)  then           // Sauf le cadre

      Canvas.Brush.Color : = clBtnFace;

    Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);

    Canvas.FrameRect(Rect);

  end;

end;



Ca devrait mieux fonctionner !



Ken@vo
<hr size="2" width="100%">Code, Code, Codec !




http://www.pourflorenceethussein.org/

[%3C/body ]

cs_creas · Answer

Merci t es g&#233;nial

Tstringgrid via ondrawcell

2 réponses

Votre réponse

Discussions similaires