Bonjour
J 'ai recrée le post et non déterrer l ancien car j ai refait un petit programme alléger pour mieux explique mon cas.

Car le grand programme etait trop dur pour expliquer:

Mais le probleme est le meme:

Une table avec :
1 champs position
1 champ fin
1 champs debut

Le planning en question est grid modifier par TMS, quand on crée un items, il marque la position de l item donc de la colonne, puis le début de item( une cellule) et la fin une autre cellule et colorie en bleu les cellule entre.

il est impossible a mon niveau je précise de pouvoir recuper ca en heures début et fin car tans que ce n 'est pas valider ca plante..
d ou le fait de récupérer la position le debut et la fin de l item(du RDV en fait)

donc sur la touche insert on cree un RDv(item) celui-ci est enregistre dans ma table.

Je voudrais pouvoir tester sur insert l existance d un RDv existant dja dans le jour dit et le creneaux souhaité.

En gros moi je peux pas etre de 15h00 a 16h00 a brest et 15h20 a 17h00 a paris.

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
23
24
25
26
 
procedure TForm1.Planner1ItemInsert(Sender: TObject; Position, FromSel,
  FromSelPrecise, ToSel, ToSelPrecise: Integer);
begin
 
 
  Planner1.Items.BeginUpdate;
  with (Planner1.Items.Add) do
  begin
    Text.Add(edit1.Text);
    Text.Add('un text');
    Text.Add('at '+timetostr(now));
 
    Name := 'Test';
    ItemPos := Position;
    ItemEnd := ToSel;
    ItemBegin := FromSel;
 
   table1.Insert;
   table1.Fields[0].Asinteger:=ItemPos; //postion dans le planning
    table1.Fields[1].Asinteger:=ItemEnd ;   //fin du cours
    table1.Fields[2].AsInteger:= ItemBegin; // debut du cours
  table1.Post  ;
 
   Planner1.Items.EndUpdate;
  end;
J espere que mon code est un peux plus clair

voila

merci a vous

a+