Discussion :

[Laurent Dardenne]

Salut,
avant de me lancer dans l'analyse du code du composant TDrawGrid j'aimerais savoir si qq avait déjà réalisé les modifications suivante :

J'ai une grille de 14 lignes (jour) par 64 colonnes(heure), chaque colonne représentant un quart d'heure. J'aimerais afficher une ligne verticale sur 4(une heure pleine) tout en gardant la sélection active sur toutes les colonnes ?
Merci

[Pedro]

Salut
Il y a peut-être une solution simple:
- Enlever goVertLine aux Options
- Redessiner les cellules avec OnDrawCell et, si ACol est multiple de 4 (dans ton exemple), dessiner la ligne à droite de la cellule:

Code :

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

1
2
3
4
5
6
7
8
 
  //Dessiner la cellule normalement
  if (ACol mod 2)=0 then
  with DrawGrid1.Canvas do
  begin
    MoveTo(Rect.Right,Rect.Top);
    LineTo(Rect.Right,Rect.Bottom);
  end;

[TicTacToe]

Ou alors l'inverse,

dessiner seulement 16 colonnes
dessiner 3 lignes intérmédiaires ainsi que le texte dans les 4 zones de ta cellules dans le canvas.

La sélection colonne sera automatiquement pour 1 heure complete.

Tout dépend quel niveau d'indépendance a le 1/4 d'heure.

Ou alors, faire des titres multi-niveaux dans les colonnes (mais là je ne sais pas comment on fait, j'ai d'ailleurs posté la dessus il n'y a pas longtemps...)

[Graffito]

Bonjour,

J'ai déjà fait ça via le ondrawcell en dessinant un trait le long des bords de la cellule. Cela impose de redessiner par un textout du contenu des cellules, mais ca apporte de la souplesse pour le choix de la fonte et et de la couleur de fond.

[Laurent Dardenne]

La sélection colonne sera automatiquement pour 1 heure complete.

Non ce n'est pas possible car la grille permet de poser des rendez-vous au 1/4h près.
Quant à l'event onDrawCell je vais regarder ça.

J'ai trouvé sur Delphi Super Page le compo Egrid,
http://delphi.icm.edu.pl/ftp/d50free/EGrid.zip, qui semblait avoir ce comportement mais il ne répond pas vraiment à mes besoins.

Merci

[Laurent Dardenne]

Merci Pedro cela fonctionne, il faut juste ajuster le numéro de la colonne étant donné que le dessin de la cellule se fait à droite :

Code :

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

 if ((ACol+1) mod 4)=0 then

Effectivement c'est une solution simple, encore fallait-il la connaitre.