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:
+4
-4
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user