Tstringgrid via ondrawcell [Résolu]

Messages postés
16
Date d'inscription
samedi 14 mai 2005
Dernière intervention
18 février 2010
- - Dernière réponse : cs_creas
Messages postés
16
Date d'inscription
samedi 14 mai 2005
Dernière intervention
18 février 2010
- 3 juin 2005 à 08:39
Bonjour à tous, je essai de colorier certaines case mais voila je n arrive pas à 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;
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
759
Date d'inscription
vendredi 21 mars 2003
Dernière intervention
1 octobre 2009
2
3
Merci
En ré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éfaut

for i: =0 to ColCount-1 do // Vérif dans la ligne

if (Uppercase(Cells[i, arow]) = 'DIMANCHE') or // Mé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 ]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 119 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Kenavo
Messages postés
16
Date d'inscription
samedi 14 mai 2005
Dernière intervention
18 février 2010
0
Merci
Merci t es génial
Commenter la réponse de cs_creas

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.