feat(apk): notes de commandes, une commande copiee a la fois

Bloc Commands en tete d'une note "commands", groupe par groupe, avec un
bouton copier. ParseCommandNote est le portage du decoupage du poste
(groupes, lignes continuees). La copie passe par un rang, comme les autres
lignes du detail.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
r-zakarya
2026-10-10 19:39:38 +01:00
parent f112de508b
commit b1c0c1e11b
4 changed files with 118 additions and 0 deletions
+8
View File
@@ -2124,6 +2124,14 @@ begin
if DetailRowAt(FCurrent, StrToIntDef(Param('k'), -1), LCaption, LValue) then
CopyToClipboard(LValue, LCaption);
end
// Une commande d'une note de commandes, par son rang dans la liste.
else if Param('f') = 'cmd' then
begin
var LCmds := ParseCommandNote(FCurrent.Password);
var LK := StrToIntDef(Param('k'), -1);
if (LK >= 0) and (LK <= High(LCmds)) then
CopyToClipboard(LCmds[LK].Cmd, 'Command');
end
else
begin
LIdx := StrToIntDef(Param('i'), -1);