Hallo Community,
ich bin es mal wieder.
Das Problem:
Ich arbeite nun schon eine Weile mit den Firemonkey-Styles und habe schon einige (erfolgreiche) Experimente damit durchgeführt.
Nun will ich ein komplett eigenen Style entwerfen und hänge am 'editstyle'.
Zwar sieht der Hintergrund des Edits genau so aus, wie ich es will, aber leider sieht man den eingegebenen Text nun nicht mehr.
Ich kann ihn nach der Eingabe markieren (die markierung ist sichtbar) aber leider ohne den eigentlichen Text.
hat einer von euch eine Ahnung warum?
Anbei der Auszug aus meiner .style-Datei:
Code:
object TLayout
StyleName = 'myeditstyle'
DesignVisible = False
Height = 50.000000000000000000
Width = 50.000000000000000000
object TLayout
StyleName = 'background'
Align = alContents
Height = 22.000000000000000000
Width = 142.000000000000000000
HitTest = False
object TLayout
StyleName = 'leftside'
Align = alLeft
Height = 50.000000000000000000
Width = 4.000000000000000000
object TSubImage
StyleName = 'topleftcorner'
Align = alTop
Height = 4.000000000000000000
HitTest = False
SourceLookup = 'Style.png'
SourceRect.Left = 5.000000000000000000
SourceRect.Top = 5.000000000000000000
SourceRect.Right = 9.000000000000000000
SourceRect.Bottom = 9.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'bottomleftcorner'
Align = alBottom
Height = 3.000000000000000000
HitTest = False
Position.Y = 47.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 5.000000000000000000
SourceRect.Top = 24.000000000000000000
SourceRect.Right = 9.000000000000000000
SourceRect.Bottom = 27.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'leftclient'
Align = alClient
Height = 43.000000000000000000
HitTest = False
Position.Y = 4.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 5.000000000000000000
SourceRect.Top = 9.000000000000000000
SourceRect.Right = 9.000000000000000000
SourceRect.Bottom = 24.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
end
object TLayout
StyleName = 'rightside'
Align = alRight
Height = 50.000000000000000000
Position.X = 46.000000000000000000
Width = 4.000000000000000000
object TSubImage
StyleName = 'toprightcorner'
Align = alTop
Height = 4.000000000000000000
HitTest = False
SourceLookup = 'Style.png'
SourceRect.Left = 143.000000000000000000
SourceRect.Top = 5.000000000000000000
SourceRect.Right = 147.000000000000000000
SourceRect.Bottom = 9.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'bottomrightcorner'
Align = alBottom
Height = 3.000000000000000000
HitTest = False
Position.Y = 47.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 143.000000000000000000
SourceRect.Top = 24.000000000000000000
SourceRect.Right = 147.000000000000000000
SourceRect.Bottom = 27.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'rightclient'
Align = alClient
Height = 43.000000000000000000
HitTest = False
Position.Y = 4.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 143.000000000000000000
SourceRect.Top = 9.000000000000000000
SourceRect.Right = 147.000000000000000000
SourceRect.Bottom = 24.000000000000000000
Width = 4.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
end
object TLayout
StyleName = 'middle'
Align = alClient
Height = 50.000000000000000000
Position.X = 4.000000000000000000
Width = 42.000000000000000000
object TSubImage
StyleName = 'top'
Align = alTop
Height = 4.000000000000000000
HitTest = False
SourceLookup = 'Style.png'
SourceRect.Left = 9.000000000000000000
SourceRect.Top = 5.000000000000000000
SourceRect.Right = 144.000000000000000000
SourceRect.Bottom = 9.000000000000000000
Width = 42.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'bottomrightcorner'
Align = alBottom
Height = 3.000000000000000000
HitTest = False
Position.Y = 47.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 9.000000000000000000
SourceRect.Top = 24.000000000000000000
SourceRect.Right = 144.000000000000000000
SourceRect.Bottom = 27.000000000000000000
Width = 42.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
object TSubImage
StyleName = 'rightclient'
Align = alClient
Height = 43.000000000000000000
HitTest = False
Position.Y = 4.000000000000000000
SourceLookup = 'Style.png'
SourceRect.Left = 9.000000000000000000
SourceRect.Top = 9.000000000000000000
SourceRect.Right = 144.000000000000000000
SourceRect.Bottom = 24.000000000000000000
Width = 42.000000000000000000
WrapMode = iwStretch
BitmapScale = 2.000000000000000000
end
end
end
object TLayout
StyleName = 'content'
Align = alClient
Locked = True
Height = 47.000000000000000000
Padding.Left = 4.000000000000000000
Padding.Top = 1.000000000000000000
Padding.Right = 4.000000000000000000
Padding.Bottom = 2.000000000000000000
Position.X = 4.000000000000000000
Position.Y = 1.000000000000000000
end
object TLayout
StyleName = 'buttons'
Align = alRight
Locked = True
Height = 46.000000000000000000
Padding.Top = 2.000000000000000000
Padding.Right = 2.000000000000000000
Padding.Bottom = 2.000000000000000000
Position.X = -2.000000000000000000
Position.Y = 2.000000000000000000
Width = 50.000000000000000000
end
object TBrushObject
StyleName = 'foreground'
end
object TBrushObject
StyleName = 'selection'
Brush.Color = x7F67A8D3
end
object TFontObject
StyleName = 'font'
end
end