Discussion :

[salut07]

Bonjour,

Je suis sur BCB 6.
Je veux utiliser la JVCL (JvTFDays1) mais je ne comprends pas tout.
Qui peut me donner un exemple de code pour utiliser le composant JvTFDays en BCB.

Je sais qu'il y un exemple fourni avec la JVCL mais c'est tout en Delphi.

Merci d'avance

[salut07]

Pour info j'ai essaye de commencer mais ca donne rien sur le JvTFDays :

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TJvTFAppt * Appt;
  bool NewAppt;
 
  JvTFScheduleManager1->RequestAppt("0", Appt, NewAppt);
  if (NewAppt)
  {
    Appt->SetStartEnd(EncodeDate(2008, 9, 23),
                       EncodeTime(8, 30, 0, 0),
                       EncodeDate(2008, 9, 23),
                       EncodeTime(12, 30, 0, 0));
    Appt->Description = "NLDelphi";
    Appt->AlarmEnabled = True;
    Appt->AlarmAdvance = 10;
    Appt->AddSchedule("Dees");
    Appt->Post();
  }
  JvTFScheduleManager1->RefreshAppts();
  JvTFDays1->Refresh();
}

[salut07]

Bonjour,

Personne ne m'a laisse de reponse alors autre question.
Je comprend le code delphi mais la ou je bloque c'est au niveau de la traduction en builder.
exemple delphi :

If Assigned(JvTFDays1.SelAppt) Then
Begin
ApptEdit.Appt := JvTFDays1.SelAppt;
ApptEdit.ShowModal;
End

J'ai essaye de mettre ca sous Builder

Form1->JvTFDays1->SelAppt->Assign()

Mais il me demande un TPersistent *source dans les parentheses.
Que dois je mettre ?

Merci

[pottiez]

A mon avis le Assigned de Delphi correspond à un test pour savoir si la propriété contient bien quelques choses, ce que confirmerais la ligne du dessous ou l'on met cette valeur dans la propriété Appt, je la traduirait donc plutôt par

Code :

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

1
2
3
4
5
if(Form1->JvTFDays1->SelAppt != NULL)
{
  ApptEdit->Appt = JvTFDays1->SelAppt;
        ApptEdit->ShowModal();
}

Mais je ne sais pas ce qu'est ApptEdit ni la propriété Appt, donc il y a surement des erreurs

[salut07]

merci pottiez

ca m'a l'air bien, autre point sur delphi la declaration est

public
{ Public declarations }
// the main form will set this var to the selected appt if the user
// wants to edit the appt OR the main form will set this var to nil
// if the user wants to add a new appointment.
Appt : TJvTFAppt;
end;

et en builder ca donne quoi ?
J'ai essaye ca mais ca ne marche pas:

public: // Déclarations de l'utilisateur
TJvTFAppt *Appt;

Erreur 23203 : Nom de type attendu

merci, ca avance petit a petit

[pottiez]

L'erreur nom de type attendu signifie qu'il ne connait pas le type TJvTFAppt, il doit surement manquer un include ou alors le type est mal orthographié