Migration de 10.3 (Rio) à 11 (Alexandria)

**SergioMaster** · 26/01/2022, 11h37

Bonjour,

ce code Rio

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
  TTask.Run(procedure
           begin
            BrowseDirSource(sd);
            if not (Datas.parametres.LastWebPage.IsEmpty)
                then WebBrowser1.URL:=Datas.parametres.LastWebPage;
            TThread.Synchronize(TThread.Current,
              procedure
              begin
                WaitForSourceDir.Visible := False;
                AniIndicator1.Enabled := False;
                Datas.MemSource.First;
                Datas.MemSource.EnableControls;
                TabImages.TabIndex:=1;
                ThreadD_Active:=False;
              end);
           end);

me donne des erreurs de compilation

[dcc32 Erreur] UMainForm.pas(988): E2250 Aucune version surchargée de 'Synchronize' ne peut être appelée avec ces arguments
[dcc32 Erreur] UMainForm.pas(989): E2250 Aucune version surchargée de 'Run' ne peut être appelée avec ces arguments

j'ai raté une marche dans les notes de version ?

**SergioMaster** · 26/01/2022, 12h19

Étrange, c'est quand j'ai voulu construire, une compilation passe

**pprem** · 26/01/2022, 17h12

il y a une autre version du synchronize() mais effectivement elle n'est pas accessible par là normalement, bizarre comme anomalie, ça ne devrait pas poser de problème de compilation ni de construction

**SergioMaster** · 26/01/2022, 17h17

Peut-être un ordre de déclaration.
En tout cas, c'était pour vérifier un point, changement de style au runtime et FMX.ListView. Avec 10.3 il fallait que je déconnecte/reconnecte la laision pour que l'affichage soit correct, avec D11 je ne'ai plus ce problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TStartForm.SwitchThemeSwitch(Sender: TObject);
begin
oldthemedark:=Datas.parametres.BlackTheme;
ChangerTheme(SwitchTheme.IsChecked);
datas.parametres.blacktheme:=SwitchTheme.IsChecked;
{TODO -oOwner -cGeneral : bogue changement de style sur Tlistview}
{$IF Compilerversion <= 33.0}
Mainform.ListeVArticles.BeginUpdate;
Mainform.LienListeArticles.Active:=False;
Mainform.LienListeArticles.Active:=True;
Mainform.ListeVArticles.EndUpdate;
{$ENDIF}
end;

Par contre le même traitement, rapide avec 10.3 était devenu beaucoup plus lent avec 11, j'ai été obligé de lègérement changer le traitement
ce qui en vcl fait bien défiler en cours de traitement

Code :

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

1
2
3
4
5
6
7
8
    if (nRows>0) AND (i mod nrows = 0) then
        TThread.Synchronize(TThread.Current,
        procedure
        begin
          Datas.MemArticles.RecNo:=i-nrows;
          Datas.MemArticles.EnableControls;
          Datas.MemArticles.DisableControls;
        end);