feat(fillbar): onglet Fill bar dans les reglages, icones ou texte, boutons Add et Search

- boutons choisis (Full, Password, 2FA, Add current window, Search, Open),
  style icones (Segoe MDL2 Assets) ou texte, opacite au repos, allumee ou non
- clic droit sur la barrette : Show icons / Show text en plus de l'opacite
- info-bulles sur chaque bouton
- Add et Search reprennent les corps extraits de Ctrl+Shift+A et Ctrl+Shift+Q

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
r-zakarya
2026-09-18 10:24:26 +01:00
parent ba8c4205f9
commit d7a8b4ddff
4 changed files with 302 additions and 60 deletions
+36
View File
@@ -1323,6 +1323,42 @@ begin
'Bridge.onPrefResult("' + LEsc + '#has","' + LSet + '")');
end
// ---- Barrette (Fill bar) : reglages depuis Settings -> Fill bar ---------
// Rien de secret ici : quels boutons, icones ou mots, opacite, allumee.
else if ACmd = 'fillbar/get' then
begin
var LFb := TJSONObject.Create;
try
LFb.AddPair('on', TJSONBool.Create(FBridge.LazyBarVisible));
LFb.AddPair('buttons', PM.UserPrefs.GetPref('lazyButtons'));
LFb.AddPair('icons', TJSONBool.Create(PM.UserPrefs.GetPref('lazyIcons') = '1'));
LFb.AddPair('alpha', PM.UserPrefs.GetPref('lazyAlphaPct'));
WebBrowser.ExecuteJavaScript(
'if(window.Bridge&&Bridge.onFillBar)Bridge.onFillBar(' + LFb.ToJSON + ')');
finally
LFb.Free;
end;
end
else if ACmd = 'fillbar/set' then
begin
PM.UserPrefs.SetPref('lazyButtons', GetParam('buttons'));
if GetParam('icons') = '1' then PM.UserPrefs.SetPref('lazyIcons', '1')
else PM.UserPrefs.SetPref('lazyIcons', '0');
var LAlpha := StrToIntDef(GetParam('alpha'), 60);
if (LAlpha >= 25) and (LAlpha <= 100) then
PM.UserPrefs.SetPref('lazyAlphaPct', IntToStr(LAlpha));
LogLine('fillbar/set: ' + GetParam('buttons') + ' icons=' + GetParam('icons') +
' alpha=' + GetParam('alpha') + ' on=' + GetParam('on'));
if GetParam('on') = '1' then
begin
if FBridge.LazyBarVisible then FBridge.ReloadLazyBar
else FBridge.SetLazyBar(True);
end
else
FBridge.SetLazyBar(False);
end
else if ACmd = 'prefs/set' then
begin
var LKey := GetParam('key');