fix(android): the edit fields were still shaped like pills

A radius of 24 kept them fully rounded even after the fill was hollowed out, so a text field still read as a command. They now take 14, the same as the row buttons - rounded, unmistakably rectangular.

The search field loses the stadium shape of Android's global search along with the others, since one style serves every edit. Its magnifier is what identifies it now. Giving it back its own shape means cloning the style entry, which is worth doing only if the shape is missed.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
r-zakarya
2026-08-16 22:26:37 +01:00
parent 4347dba8d9
commit d22089900c
2 changed files with 8 additions and 6 deletions
+4 -2
View File
@@ -35,8 +35,10 @@ foreach ($style in 'editstyle', 'memostyle') {
# Un champ de saisie prend la forme d'une pilule, comme la barre de # Un champ de saisie prend la forme d'une pilule, comme la barre de
# recherche d'Android ; un memo garde ses coins sobres. # recherche d'Android ; un memo garde ses coins sobres.
if ($style -eq 'editstyle') { $radius = '24.000000000000000000' } # 14, comme les boutons de ligne : une pilule faisait ressembler un champ
else { $radius = '10.000000000000000000' } # de saisie a une commande, et l'arrondi restait excessif meme une fois le
# remplissage creuse.
$radius = '14.000000000000000000'
# La fenetre couvre le bloc 'background' qui suit immediatement le nom. # La fenetre couvre le bloc 'background' qui suit immediatement le nom.
for ($i = $at; $i -lt [Math]::Min($at + 24, $lines.Count); $i++) { for ($i = $at; $i -lt [Math]::Min($at + 24, $lines.Count); $i++) {
+4 -4
View File
@@ -2080,8 +2080,8 @@
Height = 22.000000000000000000 Height = 22.000000000000000000
HitTest = False HitTest = False
Stroke.Color = x00000000 Stroke.Color = x00000000
XRadius = 24.000000000000000000 XRadius = 14.000000000000000000
YRadius = 24.000000000000000000 YRadius = 14.000000000000000000
Width = 107.000000000000000000 Width = 107.000000000000000000
end end
object TBrushObject object TBrushObject
@@ -2518,8 +2518,8 @@
Padding.Right = 2.000000000000000000 Padding.Right = 2.000000000000000000
Padding.Bottom = 2.000000000000000000 Padding.Bottom = 2.000000000000000000
Stroke.Color = x00000000 Stroke.Color = x00000000
XRadius = 10.000000000000000000 XRadius = 14.000000000000000000
YRadius = 10.000000000000000000 YRadius = 14.000000000000000000
Width = 334.000000000000000000 Width = 334.000000000000000000
object TLayout object TLayout
StyleName = 'content' StyleName = 'content'