Zaki/Password-Manager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(android): one frame around the search field, not two

Browse Source 
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
1 changed files with 5 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mainApk.pas
+5 -12
View File
@@ -374,7 +374,7 @@ end;
procedure TForm8.BuildList; procedure TForm8.BuildList;
var var
LBar, LTop: TLayout; LBar, LTop: TLayout;
LBtnLock, LSearchBox: TRectangle; LBtnLock: TRectangle;
begin begin
FLayList := TLayout.Create(Self); FLayList := TLayout.Create(Self);
FLayList.Parent := Self; FLayList.Parent := Self;
@@ -427,20 +427,13 @@ begin
FBtnFolder.Width := 170; FBtnFolder.Width := 170;
FBtnFolder.Margins.Left := 8; FBtnFolder.Margins.Left := 8;
// Le champ de saisie reste natif - il faut un clavier - mais son fond vient // Le champ reste natif - il faut un clavier - et son fond vient desormais du
// de nous : LSearchBox le porte, l'editeur par-dessus est transparent. // style, recolore a la palette par make-style.ps1. PAS de rectangle derriere
LSearchBox := Surface(LTop); // lui : il en resultait deux cadres arrondis emboites.
LSearchBox.Align := TAlignLayout.Client;
LSearchBox.Fill.Color := COL_SURFACE;
FSearch := TEdit.Create(Self); FSearch := TEdit.Create(Self);
FSearch.Parent := LSearchBox; FSearch.Parent := LTop;
FSearch.Align := TAlignLayout.Client; FSearch.Align := TAlignLayout.Client;
FSearch.Margins.Rect := RectF(6, 0, 6, 0);
FSearch.OnChangeTracking := OnSearchChanged; 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 // 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 // l'objet que le style est cense fournir pour l'afficher, et le champ