From b900b5b609057927c62766dc956bba9936f5afb2 Mon Sep 17 00:00:00 2001 From: r-zakarya <82443831+r-zakarya@users.noreply.github.com> Date: Sat, 15 Aug 2026 17:50:20 +0100 Subject: [PATCH] fix(android): one frame around the search field, not two The painted surface behind it and the style's own background were both drawing a rounded outline, nested. Now that make-style.ps1 recolours the style's, mine is redundant - and it was the outer of the two. Co-Authored-By: Claude Opus 5 --- mainApk.pas | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) diff --git a/mainApk.pas b/mainApk.pas index e5f97f5..94eb352 100644 --- a/mainApk.pas +++ b/mainApk.pas @@ -374,7 +374,7 @@ end; procedure TForm8.BuildList; var LBar, LTop: TLayout; - LBtnLock, LSearchBox: TRectangle; + LBtnLock: TRectangle; begin FLayList := TLayout.Create(Self); FLayList.Parent := Self; @@ -427,20 +427,13 @@ begin FBtnFolder.Width := 170; FBtnFolder.Margins.Left := 8; - // Le champ de saisie reste natif - il faut un clavier - mais son fond vient - // de nous : LSearchBox le porte, l'editeur par-dessus est transparent. - LSearchBox := Surface(LTop); - LSearchBox.Align := TAlignLayout.Client; - LSearchBox.Fill.Color := COL_SURFACE; - + // Le champ reste natif - il faut un clavier - et son fond vient desormais du + // style, recolore a la palette par make-style.ps1. PAS de rectangle derriere + // lui : il en resultait deux cadres arrondis emboites. FSearch := TEdit.Create(Self); - FSearch.Parent := LSearchBox; + FSearch.Parent := LTop; FSearch.Align := TAlignLayout.Client; - FSearch.Margins.Rect := RectF(6, 0, 6, 0); FSearch.OnChangeTracking := OnSearchChanged; - // Gabarit transparent : present dans les styles livres. S'il manquait, on - // retomberait sur le fond du style, sans casse. - FSearch.StyleLookup := 'transparentedit'; // Invite dessinee par nous, pas par TextPrompt : Dark.style ne comporte pas // l'objet que le style est cense fournir pour l'afficher, et le champ