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 <noreply@anthropic.com>
This commit is contained in:
r-zakarya
2026-08-15 17:50:20 +01:00
parent e8e305b6fd
commit b900b5b609
+5 -12
View File
@@ -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