Discussion :

[ouiouioui]

Bonjour ,

Je débute avec Livebinding, J'utilise une Tobjectlist<TObject>

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
  TPath = Class
  Private
    FPathType, FOS, FDirectory: String;
    Procedure SetPathType(Const Value: String);
    Procedure SetOS(Const Value: String);
    procedure SetDirectory(const Value: String);
  Public
    Constructor Create(APathType, AOS, ADirectory: String);
    Property PathType: String Read FPathType Write SetPathType;
    Property OS: String Read FOS Write SetOS;
    Property Directory: String Read FDirectory write SetDirectory;
  End;
 
  TPathList = Class(TObjectList<TPath>)
    Procedure LoadFromFile(AFileName: String);
    Procedure SaveToFile(AFileName: String);
    Constructor Create;
    Destructor Destroy; Override;
  End;

dans TPrototypeBindSource.OnCreateAdaptater j'ai

Code :

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

1
2
 
  ABindSourceAdapter := TListBindSourceAdapter<TPath>.Create(self, PathList, False);

Ensuite j'ai relié visuellement une TStringGrid, TBindNavigator et 3 TEdit. À l'exécution ça fonctionne tout est relié lorsque j'ai sélectionne une ligne dans la TSringGrid les TEdit Affiche les données correspondantes Je peux les changer et dans le navigateur j'ai plus qu'à valider la modification.

Problème si dans le code je change le contenu d'un TEdit

Code :

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

1
2
 
      eModelPathDirectory.Text := FileOpenDialog1.FileName;

Le TBindNavigator Ne change pas d'état je ne peux pas valider la modification, Quelle est la bonne méthode ? J'ai trouvé une pseudo parade après l'affectation je fait

Code :

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

1
2
 
      TLinkObservers.ControlChanged(eModelPathDirectory);

mais sa valide directement le changement, Je voudrais plutôt Le fonctionnement normal comme quand on change le texte dans le TEdit à la main

Merci par avance pour votre aide

[ShaiLeTroll]

Cela semble multi-OS donc FMX ?

Je voudrais plutôt Le fonctionnement normal comme quand on change le texte dans le TEdit à la main

Tu pourrais expliquer ce que pense être le fonctionnement normal ?

Ton cas me fait penser au tutoriel Introduction au LiveBindings avec Delphi - LiveBindings avec TObject et TObjectList
Faudrait regarder si il ne te manque pas un objet à créer par code


J'aurais tendance à dire que modifier l'Edit directement n'est pas une bonne chose, si l'on compare le LiveBinding avec l'approche DataSet, si cela est comparable en terme de philosophie View <-> Data ?
Est-ce-que l'on doit modifier par code c'est la source de données donc l'instance de l'objet TPath en cours et non l'Edit ?


Il arrive souvent que la modification par code ne déclenche pas certains évènements que la modification par UI, en tout cas en VCL c'est le cas, il n'y a pas de cas bien clair, certains c'est même gênant que par code cela déclenche un event.

[ouiouioui]

Merci pour ta réponse, Lorsqu'on modifie les données dans le TEdit Le composant navigateur active le bouton pour valider les modifications celui avec la flèche verte, on peut donc valider les modifications ou abandonner. Avec mon code actuel ça valide directement les changements du TEdit

En fait à côté du TEdit J'ai mis un bouton qui permet d'ouvrir la boîte de dialogue pour sélectionner un dossier et j'assigne la nouvelle valeur au TEdit

J'ai trouvé il faut mettre

Code :

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

TPrototypeBindSource.AutoPoste := False;

[SergioMaster]

Bonjour, je commence à être rouillé côté Livebindings

Cela semble multi-OS donc FMX ?

Non, tu peux très bien utiliser Livebindings avec VCL

Ton cas me fait penser au tutoriel Introduction au LiveBindings

je ne l'ai jamais aimé celui-ci c'est même pour cela que j'en avais "pondu" un certains nombre dont celui-ci qui semble correspondre, a peu près, au cas posé.



Cependant, j'avoue que changer le contenu par code, je ne pense pas que cela m'ait effeure l'esprit

eModelPathDirectory : ok, cela doit être le dit TEdit, lié au prototypebindsource, colonne 'Directory' même si j'eusse plutôt vu ExtractFilePath(FileOpenDialog1.FileName) ou alors, ce n'est pas vraiment le bon nom de propriété

Reste que les liaisons, j'aurais aimé les voir.

J'aurais plus écrit quelque chose comme

Code :

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

1
2
3
4
5
6
7
8
aPathObject : TPath;
begin
aPathObject:=PathList[x];
if FileOPenDialog1.execute then
begin
  aPathObject.Directory:=ExtractFilePath(FileOpenDialog1.FileName);
  .....  
end;

AH, en écrivant ce code sans passer par EDI, je viens de voir ce qui me choquait !!!! Le nom de la classe. Il va y avoir une sacré confusion si tu utilises system.IOUtils ou, en FMX, FMX.Objects.TPath (déjà qu'en FMX system.ioutils et fmx.objects.tpath ensemble c'est la galère

[ouiouioui]

J'ai fait comme ça :

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 TMain.SpeedButton1Click(Sender: TObject);
Var
  FileOpenDialog1: TFileOpenDialog;
Begin
  FileOpenDialog1                 := TFileOpenDialog.Create(self);
  Try
    FileOpenDialog1.Options       := [fdoPickFolders];
    FileOpenDialog1.Title         := 'Select a directory';
    FileOpenDialog1.DefaultFolder := eModelPathDirectory.Text;
    If FileOpenDialog1.Execute Then
    Begin
      eModelPathDirectory.Text := FileOpenDialog1.FileName;
 
      // tell LiveBinding we change value
      TLinkObservers.ControlChanged(eModelPathDirectory);
    End;
  Finally
    FileOpenDialog1.Free;
  End;
End;

Ci dessous 3 captures d'écran imbriquées avant de cliquer sur le bouton, lorsque Je clique sur le bouton pour sélectionner un autre dossier et après on voit que le bouton valider et annuler dans le navigateur s'active.


Je ne vois pas comment on peut éviter le code pour afficher une boîte de dialogue afin que l'utilisateur choisisse un dossier au lieu de le taper dans le Tedit

Effectivement le nom de classe n'est pas correct je vais modifier merci