fix(apk): compilation des reglages Copy and search (declarations et TPath de System.IOUtils)

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
r-zakarya
2026-09-18 14:35:45 +01:00
parent f7ad65c02d
commit f99fb90ed8
+4 -4
View File
@@ -157,9 +157,6 @@ type
// Reglages d'usage (Settings -> Copy and search), vrais par defaut. Rien de // Reglages d'usage (Settings -> Copy and search), vrais par defaut. Rien de
// secret : un petit fichier en clair dans le dossier prive de l'app. // secret : un petit fichier en clair dans le dossier prive de l'app.
FUiBackAfterCopy, FUiKbdOnSearch: Boolean; FUiBackAfterCopy, FUiKbdOnSearch: Boolean;
procedure LoadUiPrefs;
procedure SaveUiPrefs;
procedure PushUiPrefs;
// La cle du verrouillage d'ecran est morte (schema retire ou reinitialise) : // La cle du verrouillage d'ecran est morte (schema retire ou reinitialise) :
// on ouvre la copie de secours, scellee sous le mot de passe. // on ouvre la copie de secours, scellee sous le mot de passe.
FRecover: Boolean; FRecover: Boolean;
@@ -371,6 +368,9 @@ type
/// que le proprietaire ne connaitrait pas. /// que le proprietaire ne connaitrait pas.
procedure SetUnlockCode(const ANew: string); procedure SetUnlockCode(const ANew: string);
procedure PushUnlockMode; procedure PushUnlockMode;
procedure LoadUiPrefs;
procedure SaveUiPrefs;
procedure PushUiPrefs;
procedure ShowSettingsError(const AMsg: string); procedure ShowSettingsError(const AMsg: string);
// Scanner du QR affiche par le poste (ZXing.Delphi, Apache 2.0). // Scanner du QR affiche par le poste (ZXing.Delphi, Apache 2.0).
var var
@@ -1689,7 +1689,7 @@ end;
function UiPrefsPath: string; function UiPrefsPath: string;
begin begin
Result := TPath.Combine(TPath.GetHomePath, 'ui-prefs.txt'); Result := System.IOUtils.TPath.Combine(System.IOUtils.TPath.GetHomePath, 'ui-prefs.txt');
end; end;
procedure TForm8.LoadUiPrefs; procedure TForm8.LoadUiPrefs;