Discussion :

[did85]

Je ne sais pas utiliser le Debugger.

Par contre je regarderai cela Lundi, pour ce Week-End impossible

A+

[Rickless]

Bien le bonjour did85

J'utilise un bout de code qui me permet d'avoir deux couleurs intercalé.

Tu dois ajouter la ligne suivante dans "implementation" "type" pour le bon fonctionnement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 AlternGrid = class(TCustomDBGrid);  //Alternance des couleurs

Tu colles le code sur l'évènement OnDrawColumn du DBGrid:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure Tform7.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);
 
end;

Cela fonctionne parfaitement dans mon programme.

Si ce la t'as été utile, signale le moi

Rickless

[Giovanny Temgoua]

Premier message Posté le: Mar Sep 14, 2004 17:49

Salut Rickless,

Je pense qu'il serait peut être préférable de mettre à la disposition de tous le code entier de ton composant comme cà on n'aura plus qu'à l'installer dans la palette

J'avais eu aussi l'idée de faire un pareil compo mais je ne l'ai jamais terminé (à force de vouloir le rendre parfait peut être ). Ceci dit, une idée que je te proposerai serai de créer une propriété publiée qui permettrait à chacun de choisir les couleurs de l'alternance, les coder en dur ne présente pas un très grand avantage à mon avis.

A+

[Rickless]

Oui, je suis complètement d'accord King

Mais tous cela dès que je serais capable d'insérer un compo et surtout d'en créer..... Alors j'apporterais beaucoup de petit "truc" de ce genre.



Rickless

[Giovanny Temgoua]

J'ai dit cà parce que j'avais vu cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

AlternGrid = class(TCustomDBGrid);  //Alternance des couleurs

j'ai pensé que tu créais alors ton propre composant...

[nn2009]

essaye ceci ça à marcher pour moi, j'ai juste enlevé le mot datamodule que je ne sais pas ce que c'est ! ?
mon Adoquery contient le text suivant: ' select * from ma_table '

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect; 
  DataCol: Integer; Column: TColumn; State: TGridDrawState); 
begin 
  with DBGrid.Canvas do 
  begin 
    if (DataModule.ADOQuery.RecNo mod 2) = 0  // pour alterner les couleur de lignes 
      then Brush.Color := clwhite 
      else Brush.Color := clred; 
 
    if (gdSelected in State) or (gdFocused in State) then // pour avoir la ligne selectionné ou qui a le focus dans une autre couleur 
      begin 
        Brush.Color := clBlue; 
        Font.Style := [fsBold]; 
        font.Color := clWindowText; 
      end; 
  end;  
 
  Column.Grid.DefaultDrawColumnCell(Rect, DataCol, Column, State); 
end;

[nn2009]

en fait le site auquel tu fait référence ne marche pas ,!!!
http://romuald.raffin.free.fr/composants.htm
peut tu nous le redonner stp
merci

[ShaiLeTroll]

Quel est intérêt de répondre à un sujet clos depuis 7 ans ?
Rickless est déjà intervenu à tort en 2005 dessus !

En plus, tu semble ne pas comprendre ta propre réponse !

Sinon un TDataModule, c'est un container invisible pour y déposer des composants comme les DataSet, souvent cela permet de partager les objets entre plusieurs TForm

en réalité la vraie bonne méthode serait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 with (Sender as TDBGrid), Canvas do 
  begin 
    if (DataSource.DataSet.RecNo mod 2) = 0  // pour alterner les couleur de lignes 
      ...

cela évite tout mauvaise dépendance avec un autre objet !

[nn2009]

vraiment désolé j'avais la tête ailleurs
pour le datamodule je sais se que c'est
je n'ai réalisé se que j'ai posté qu'après,
je pense que je dois me reposer un peut, mon application concernant la gestion d'un cabinet médical me fatigue trop...
et merci encore pour le code