Discussion :

[Coudrak]

Bonjour,

J'utilise un TCalendar dont je souhaite notamment changer les textes dans les cases.

J'ai réussi pour les cases des jours, en me basant sur la doc de l'arbre de composants du TCalendar :
http://docwiki.embarcadero.com/RADSt...mponent_Design (en bas)

Code :

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

1
2
3
4
5
6
7
  // Jours
  lyt := TGridLayout(Calendar.Children.Items[0].Children.Items[0].Children.Items[1]);
  for I := 0 to lyt.Children.Count - 1 do
  begin
    lb := TLabel(lyt.Children.Items[I]);
    lb.Text := 'blabla';
  end;

Puisqu'il est dit "Left-most TGridLayout, initially invisible, sized for a single column. Six TLabel controls for week numbers, shown by the WeekNumbers property"


Par contre je ne sais pas comment avoir le label du mois.

Il est dit :

TPopupBox for the month using style "labelstyle", filled with strings for the months of the year, set to fill the remaining client area not occupied by those three buttons and...

Je ne comprends pas ce qui est appelé "strings" dans ce TPopupBox. Ce ne sont a priori pas des TLabel.
Comment les avoir ?

Voici mon début de code (incorrect) :

Code :

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

1
2
3
4
5
 
  top := TLayout(CalendarActions.Children.Items[0].Children.Items[0].Children.Items[0]);
  popupbox:= TPopupBox(top.Children.Items[3]);
 
  TText(popupbox.Items[0]).Text := 'blabla'; // plantage

C'est ardu, bravo si quelqu'un me répond

Merci !

[Coudrak]

Bon finalement j'ai fait mon propre calendrier de zéro (basé sur un TGridPanelLayout), ça offre plus de simplicité au final...