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:
@@ -35,8 +35,10 @@ foreach ($style in 'editstyle', 'memostyle') {
|
||||
|
||||
# Un champ de saisie prend la forme d'une pilule, comme la barre de
|
||||
# recherche d'Android ; un memo garde ses coins sobres.
|
||||
if ($style -eq 'editstyle') { $radius = '24.000000000000000000' }
|
||||
else { $radius = '10.000000000000000000' }
|
||||
# 14, comme les boutons de ligne : une pilule faisait ressembler un champ
|
||||
# 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.
|
||||
for ($i = $at; $i -lt [Math]::Min($at + 24, $lines.Count); $i++) {
|
||||
|
||||
@@ -2080,8 +2080,8 @@
|
||||
Height = 22.000000000000000000
|
||||
HitTest = False
|
||||
Stroke.Color = x00000000
|
||||
XRadius = 24.000000000000000000
|
||||
YRadius = 24.000000000000000000
|
||||
XRadius = 14.000000000000000000
|
||||
YRadius = 14.000000000000000000
|
||||
Width = 107.000000000000000000
|
||||
end
|
||||
object TBrushObject
|
||||
@@ -2518,8 +2518,8 @@
|
||||
Padding.Right = 2.000000000000000000
|
||||
Padding.Bottom = 2.000000000000000000
|
||||
Stroke.Color = x00000000
|
||||
XRadius = 10.000000000000000000
|
||||
YRadius = 10.000000000000000000
|
||||
XRadius = 14.000000000000000000
|
||||
YRadius = 14.000000000000000000
|
||||
Width = 334.000000000000000000
|
||||
object TLayout
|
||||
StyleName = 'content'
|
||||
|
||||
Reference in New Issue
Block a user