feat(android): recolour the two native controls, and hide the log by default
Dark.style has no transparent template for an edit or a memo, so a StyleLookup at them fell back silently to the normal one and its grey background - the search field and the log were the last two things clashing with a painted interface. Since the style is vendored anyway, make-style.ps1 rebuilds it from Delphi's with those two backgrounds set to the palette. Reproducible, so a palette change does not quietly lose the patch. The log is hidden now: it only serves diagnosis and it was taking a third of the screen at every launch. A Journal button beside the server settings brings it back. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
object TLayout
|
||||
object TLayout
|
||||
Align = Client
|
||||
Height = 715.000000000000000000
|
||||
Position.Y = 33.000000000000000000
|
||||
@@ -2075,18 +2075,18 @@ object TLayout
|
||||
object TRectangle
|
||||
StyleName = 'background'
|
||||
Align = Contents
|
||||
Fill.Color = xFF333333
|
||||
Fill.Color = xFF1E293B
|
||||
Locked = True
|
||||
Height = 22.000000000000000000
|
||||
HitTest = False
|
||||
Stroke.Color = xFF202020
|
||||
XRadius = 1.000000000000000000
|
||||
YRadius = 1.000000000000000000
|
||||
Stroke.Color = xFF334155
|
||||
XRadius = 10.000000000000000000
|
||||
YRadius = 10.000000000000000000
|
||||
Width = 107.000000000000000000
|
||||
end
|
||||
object TBrushObject
|
||||
StyleName = 'foreground'
|
||||
Brush.Color = xFFEAEAEA
|
||||
Brush.Color = xFFE2E8F0
|
||||
end
|
||||
object TBrushObject
|
||||
StyleName = 'selection'
|
||||
@@ -2509,7 +2509,7 @@ object TLayout
|
||||
object TRectangle
|
||||
StyleName = 'background'
|
||||
Align = Contents
|
||||
Fill.Color = xFF333333
|
||||
Fill.Color = xFF1E293B
|
||||
Locked = True
|
||||
Height = 131.000000000000000000
|
||||
HitTest = False
|
||||
@@ -2517,9 +2517,9 @@ object TLayout
|
||||
Padding.Top = 2.000000000000000000
|
||||
Padding.Right = 2.000000000000000000
|
||||
Padding.Bottom = 2.000000000000000000
|
||||
Stroke.Color = xFF202020
|
||||
XRadius = 2.000000000000000000
|
||||
YRadius = 2.000000000000000000
|
||||
Stroke.Color = xFF334155
|
||||
XRadius = 10.000000000000000000
|
||||
YRadius = 10.000000000000000000
|
||||
Width = 334.000000000000000000
|
||||
object TLayout
|
||||
StyleName = 'content'
|
||||
|
||||
Reference in New Issue
Block a user