Tstringgrid via ondrawcell [Résolu]

cs_creas 16 Messages postés samedi 14 mai 2005Date d'inscription 18 février 2010 Dernière intervention - 2 juin 2005 à 09:56 - Dernière réponse : cs_creas 16 Messages postés samedi 14 mai 2005Date d'inscription 18 février 2010 Dernière intervention
- 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
cs_Kenavo 759 Messages postés vendredi 21 mars 2003Date d'inscription 1 octobre 2009 Dernière intervention - 2 juin 2005 à 11:23
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 ]

Merci cs_Kenavo 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

Commenter la réponse de cs_Kenavo
cs_creas 16 Messages postés samedi 14 mai 2005Date d'inscription 18 février 2010 Dernière intervention - 3 juin 2005 à 08:39
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.