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