FMX TListboxItem 不显示字体颜色更改
FMX TListboxItem not showing Font color change
我在将自定义样式与 FMX TListBoxItem 结合使用时遇到以下问题。
在下面的代码中，我创建了四种新样式以用于 TListBoxItem。所有四种样式都显示一个框 (TRectangle)，里面有或没有 X (TPath)，右边有一个 TText。在其中两种样式中，我展示了 X，而另外两种则没有。一种样式显示带有 X 的绿色框和黑色粗体文本。一个显示一个只有黑色文本的空框。其他两个显示相同的内容，但框和文本是红色的，框内带有 X 的文本是粗体。
在程序中，我有一个列表框，在设计时添加了四个列表框项以显示四种不同的样式。我还有一个按钮，它将在运行时使用代码创建另外四个列表框项目，这些项目也显示四种不同的样式。所有这些都有效，除了一个细节。在运行时创建的两个红色列表框项不使用红色字体颜色。您可以在下图中看到这一点。 ListboxItem1 和 ListboxItem2 是在设计时创建的，并以红色文本显示。 “Item #1”和“Item #2”显示为黑色文本，但应为红色。注意：“项目 #2”确实正确显示了粗体文本。
在运行时创建 Listboxitems 时我错过了什么导致红色文本无法正确显示？
这是我正在使用的代码、表单和样式。
unit Unit3;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.ListBox, FMX.Layouts,
FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
FMX.ListView;
type
TForm3 = class(TForm)
lbxEquipment: TListBox;
ListBoxItem1: TListBoxItem;
btnAdd: TButton;
StyleBook1: TStyleBook;
ListBoxItem2: TListBoxItem;
Button2: TButton;
ListBoxItem3: TListBoxItem;
ListBoxItem4: TListBoxItem;
procedure btnAddClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form3: TForm3;
implementation
{$R *.fmx}
uses System.Rtti, FMX.Objects;
var
i: integer = 1;
cnt: integer = 1;
fColor: TAlphaColor;
bColor: TAlphaColor;
procedure TForm3.btnAddClick(Sender: TObject);
var
s: string;
vItem: TListBoxItem;
c: integer;
begin
for c := cnt to (cnt + 3) do
begin
s := 'Item #' + IntToStr(c);
vItem := TListBoxItem.Create(lbxEquipment);
vItem.Parent := lbxEquipment;
vItem.StyledSettings := vItem.StyledSettings - [TStyledSetting.FontColor];
case I of
1: vItem.StyleLookup := 'EquipItemRedOffStyle';
2: vItem.StyleLookup := 'EquipItemRedOnStyle';
3: vItem.StyleLookup := 'EquipItemOffStyle';
else
vItem.StyleLookup := 'EquipItemOnStyle';
end;
vItem.Text := s;
Inc(i);
if I > 3 then
I := 0;
end;
cnt := c + 1;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
lbxEquipment.Clear;
end;
end.
object Form3: TForm3
Left = 0
Top = 0
ActiveControl = lbxEquipment
Caption = 'Form3'
ClientHeight = 284
ClientWidth = 324
StyleBook = StyleBook1
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object lbxEquipment: TListBox
Anchors = [akLeft, akTop, akRight, akBottom]
Position.X = 24.000000000000000000
Position.Y = 104.000000000000000000
Size.Width = 281.000000000000000000
Size.Height = 157.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Columns = 2
DisableFocusEffect = True
ItemIndex = 0
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
ShowCheckboxes = True
Viewport.Width = 277.000000000000000000
Viewport.Height = 153.000000000000000000
object ListBoxItem1: TListBoxItem
IsSelected = True
StyleLookup = 'EquipItemRedOffStyle'
TabOrder = 0
Text = 'ListBoxItem1'
end
object ListBoxItem2: TListBoxItem
Position.X = 138.000000000000000000
StyleLookup = 'EquipItemRedOnStyle'
TabOrder = 1
Text = 'ListBoxItem2'
end
object ListBoxItem3: TListBoxItem
Position.Y = 19.000000000000000000
StyleLookup = 'EquipItemOffStyle'
TabOrder = 2
Text = 'ListBoxItem3'
end
object ListBoxItem4: TListBoxItem
Position.X = 138.000000000000000000
Position.Y = 19.000000000000000000
StyleLookup = 'EquipItemOnStyle'
TabOrder = 3
Text = 'ListBoxItem4'
end
end
object btnAdd: TButton
Position.X = 24.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 1
Text = 'Add'
OnClick = btnAddClick
end
object StyleBook1: TStyleBook
Styles = <
item
end
item
Platform = 'Windows 10 Desktop'
ResourcesBin = {
464D585F5354594C4520322E3501061145717569704974656D4F66665374796C
6503B204061345717569704974656D5265644F6E5374796C6503FD0406104571
7569704974656D4F6E5374796C6503DF04061445717569704974656D5265644F
66665374796C6503E304005450463007544C61796F757400095374796C654E61
6D65061145717569704974656D4F66665374796C6505416C69676E070643656E
7465720A53697A652E57696474680500000000000000C406400B53697A652E48
656967687405000000000000009803401453697A652E506C6174666F726D4465
6661756C7408085461624F7264657202250016544163746976655374796C6554
6578744F626A65637400095374796C654E616D6506047465787405416C69676E
0706436C69656E740C4D617267696E732E4C6566740500000000000000C00040
0B4D617267696E732E546F70050000000000000080FF3F0D4D617267696E732E
52696768740500000000000000C000400E4D617267696E732E426F74746F6D05
0000000000000080FF3F0A53697A652E57696474680500000000000000AC0640
0B53697A652E48656967687405000000000000008803401453697A652E506C61
74666F726D44656661756C740804546578740604546578741554657874536574
74696E67732E576F72645772617008165465787453657474696E67732E486F72
7A416C69676E07074C656164696E670D536861646F7756697369626C65080D41
637469766554726967676572070853656C65637465640B416374697665436F6C
6F720708636C61426C61636B000007544C61796F75740005416C69676E07044C
656674064C6F636B6564090A53697A652E576964746805000000000000009003
400B53697A652E48656967687405000000000000009803401453697A652E506C
6174666F726D44656661756C7408085461624F726465720200000A5452656374
616E676C6500095374796C654E616D65060965717569706261636B05416C6967
6E0706436C69656E74064C6F636B6564090748697454657374080C4D61726769
6E732E4C65667405000000000000008000400B4D617267696E732E546F700500
0000000000008000400D4D617267696E732E5269676874050000000000000080
00400E4D617267696E732E426F74746F6D05000000000000008000400A53697A
652E57696474680500000000000000E002400B53697A652E4865696768740500
000000000000F002401453697A652E506C6174666F726D44656661756C740807
5852616469757305000000000000008000400759526164697573050000000000
00008000400005545061746800095374796C654E616D65060A65717569706368
65636B05416C69676E0706436C69656E7409446174612E506174680A34000000
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000064C6F636B65640907486974
54657374080C4D617267696E732E4C656674050000000000000080FF3F0B4D61
7267696E732E546F70050000000000000080FF3F0D4D617267696E732E526967
6874050000000000000080FF3F0E4D617267696E732E426F74746F6D05000000
0000000080FF3F0A53697A652E57696474680500000000000000C002400B5369
7A652E4865696768740500000000000000D002401453697A652E506C6174666F
726D44656661756C74080B5374726F6B652E4B696E6407044E6F6E6510537472
6F6B652E546869636B6E65737305000000000000008000400000000000545046
3007544C61796F757400095374796C654E616D65061345717569704974656D52
65644F6E5374796C6505416C69676E070643656E7465720A53697A652E576964
74680500000000000000C406400B53697A652E48656967687405000000000000
009803401453697A652E506C6174666F726D44656661756C7408075669736962
6C6508085461624F7264657202240016544163746976655374796C6554657874
4F626A65637400095374796C654E616D6506047465787405416C69676E070643
6C69656E740C4D617267696E732E4C6566740500000000000000C000400B4D61
7267696E732E546F70050000000000000080FF3F0D4D617267696E732E526967
68740500000000000000C000400E4D617267696E732E426F74746F6D05000000
0000000080FF3F0A53697A652E57696474680500000000000000AC06400B5369
7A652E48656967687405000000000000008803401453697A652E506C6174666F
726D44656661756C74081A5465787453657474696E67732E466F6E742E537479
6C654578740A0D00000000070000000000000004000000165465787453657474
696E67732E466F6E74436F6C6F720706636C6152656415546578745365747469
6E67732E576F72645772617008165465787453657474696E67732E486F727A41
6C69676E07074C656164696E670D536861646F7756697369626C65080D416374
69766554726967676572070853656C65637465640B416374697665436F6C6F72
0706636C61526564000007544C61796F75740005416C69676E07044C65667406
4C6F636B6564090A53697A652E576964746805000000000000009003400B5369
7A652E48656967687405000000000000009803401453697A652E506C6174666F
726D44656661756C7408085461624F726465720200000A5452656374616E676C
6500095374796C654E616D65060965717569706261636B05416C69676E070643
6C69656E740A46696C6C2E436F6C6F720706636C61526564064C6F636B656409
0748697454657374080C4D617267696E732E4C65667405000000000000008000
400B4D617267696E732E546F7005000000000000008000400D4D617267696E73
2E526967687405000000000000008000400E4D617267696E732E426F74746F6D
05000000000000008000400A53697A652E57696474680500000000000000E002
400B53697A652E4865696768740500000000000000F002401453697A652E506C
6174666F726D44656661756C7408075852616469757305000000000000008000
4007595261646975730500000000000000800040000554506174680009537479
6C654E616D65060A6571756970636865636B05416C69676E0706436C69656E74
09446174612E506174680A340000000400000000000000000000000000000001
0000000000803F0000803F00000000000000000000803F010000000000803F00
000000064C6F636B6564090748697454657374080C4D617267696E732E4C6566
74050000000000000080FF3F0B4D617267696E732E546F700500000000000000
80FF3F0D4D617267696E732E5269676874050000000000000080FF3F0E4D6172
67696E732E426F74746F6D050000000000000080FF3F0A53697A652E57696474
680500000000000000C002400B53697A652E4865696768740500000000000000
D002401453697A652E506C6174666F726D44656661756C7408105374726F6B65
2E546869636B6E65737305000000000000008000400000000000545046300754
4C61796F757400095374796C654E616D65061045717569704974656D4F6E5374
796C6505416C69676E070643656E7465720A53697A652E576964746805000000
00000000C406400B53697A652E48656967687405000000000000009803401453
697A652E506C6174666F726D44656661756C74080756697369626C6508085461
624F7264657202220016544163746976655374796C65546578744F626A656374
00095374796C654E616D6506047465787405416C69676E0706436C69656E740C
4D617267696E732E4C6566740500000000000000C000400B4D617267696E732E
546F70050000000000000080FF3F0D4D617267696E732E526967687405000000
00000000C000400E4D617267696E732E426F74746F6D050000000000000080FF
3F0A53697A652E57696474680500000000000000AC06400B53697A652E486569
67687405000000000000008803401453697A652E506C6174666F726D44656661
756C74081A5465787453657474696E67732E466F6E742E5374796C654578740A
0D00000000070000000000000004000000155465787453657474696E67732E57
6F72645772617008165465787453657474696E67732E486F727A416C69676E07
074C656164696E670D536861646F7756697369626C65080D4163746976655472
6967676572070853656C65637465640B416374697665436F6C6F720708636C61
426C61636B000007544C61796F75740005416C69676E07044C656674064C6F63
6B6564090A53697A652E576964746805000000000000009003400B53697A652E
48656967687405000000000000009803401453697A652E506C6174666F726D44
656661756C7408085461624F726465720200000A5452656374616E676C650009
5374796C654E616D65060965717569706261636B05416C69676E0706436C6965
6E740A46696C6C2E436F6C6F720708636C61477265656E064C6F636B65640907
48697454657374080C4D617267696E732E4C6566740500000000000000800040
0B4D617267696E732E546F7005000000000000008000400D4D617267696E732E
526967687405000000000000008000400E4D617267696E732E426F74746F6D05
000000000000008000400A53697A652E57696474680500000000000000E00240
0B53697A652E4865696768740500000000000000F002401453697A652E506C61
74666F726D44656661756C740807585261646975730500000000000000800040
075952616469757305000000000000008000400005545061746800095374796C
654E616D65060A6571756970636865636B05416C69676E0706436C69656E7409
446174612E506174680A34000000040000000000000000000000000000000100
00000000803F0000803F00000000000000000000803F010000000000803F0000
0000064C6F636B6564090748697454657374080C4D617267696E732E4C656674
050000000000000080FF3F0B4D617267696E732E546F70050000000000000080
FF3F0D4D617267696E732E5269676874050000000000000080FF3F0E4D617267
696E732E426F74746F6D050000000000000080FF3F0A53697A652E5769647468
0500000000000000C002400B53697A652E4865696768740500000000000000D0
02401453697A652E506C6174666F726D44656661756C7408105374726F6B652E
546869636B6E657373050000000000000080004000000000005450463007544C
61796F757400095374796C654E616D65061445717569704974656D5265644F66
665374796C6505416C69676E070643656E7465720A53697A652E576964746805
00000000000000C406400B53697A652E48656967687405000000000000009803
401453697A652E506C6174666F726D44656661756C74080756697369626C6508
085461624F7264657202230016544163746976655374796C65546578744F626A
65637400095374796C654E616D6506047465787405416C69676E0706436C6965
6E740C4D617267696E732E4C6566740500000000000000C000400B4D61726769
6E732E546F70050000000000000080FF3F0D4D617267696E732E526967687405
00000000000000C000400E4D617267696E732E426F74746F6D05000000000000
0080FF3F0A53697A652E57696474680500000000000000AC06400B53697A652E
48656967687405000000000000008803401453697A652E506C6174666F726D44
656661756C7408165465787453657474696E67732E466F6E74436F6C6F720706
636C61526564155465787453657474696E67732E576F72645772617008165465
787453657474696E67732E486F727A416C69676E07074C656164696E670D5368
61646F7756697369626C65080D41637469766554726967676572070853656C65
637465640B416374697665436F6C6F720706636C61526564000007544C61796F
75740005416C69676E07044C656674064C6F636B6564090A53697A652E576964
746805000000000000009003400B53697A652E48656967687405000000000000
009803401453697A652E506C6174666F726D44656661756C7408085461624F72
6465720200000A5452656374616E676C6500095374796C654E616D6506096571
7569706261636B05416C69676E0706436C69656E740A46696C6C2E436F6C6F72
0706636C61526564064C6F636B6564090748697454657374080C4D617267696E
732E4C65667405000000000000008000400B4D617267696E732E546F70050000
00000000008000400D4D617267696E732E526967687405000000000000008000
400E4D617267696E732E426F74746F6D05000000000000008000400A53697A65
2E57696474680500000000000000E002400B53697A652E486569676874050000
0000000000F002401453697A652E506C6174666F726D44656661756C74080758
5261646975730500000000000000800040075952616469757305000000000000
008000400005545061746800095374796C654E616D65060A6571756970636865
636B05416C69676E0706436C69656E7409446174612E506174680A3400000004
000000000000000000000000000000010000000000803F0000803F0000000000
0000000000803F010000000000803F00000000064C6F636B6564090748697454
657374080C4D617267696E732E4C656674050000000000000080FF3F0B4D6172
67696E732E546F70050000000000000080FF3F0D4D617267696E732E52696768
74050000000000000080FF3F0E4D617267696E732E426F74746F6D0500000000
00000080FF3F0A53697A652E57696474680500000000000000C002400B53697A
652E4865696768740500000000000000D002401453697A652E506C6174666F72
6D44656661756C74080B5374726F6B652E4B696E6407044E6F6E65105374726F
6B652E546869636B6E65737305000000000000008000400000000000}
end>
Left = 136
Top = 16
end
object Button2: TButton
Position.X = 200.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 5
Text = 'Clear'
OnClick = Button2Click
end
end
object TStyleContainer
object TLayout
StyleName = 'EquipItemOffStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 37
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Text'
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claBlack
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemRedOnStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 36
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.FontColor = claRed
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claRed
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claRed
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemOnStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 34
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claBlack
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claGreen
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemRedOffStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 35
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.FontColor = claRed
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claRed
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claRed
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Stroke.Thickness = 2.000000000000000000
end
end
end
end
end
four```
删除行
vItem.StyledSettings := vItem.StyledSettings - [TStyledSetting.FontColor];
您的文字在样式中是红色的，但您告诉它忽略样式的字体颜色！
我在将自定义样式与 FMX TListBoxItem 结合使用时遇到以下问题。
在下面的代码中，我创建了四种新样式以用于 TListBoxItem。所有四种样式都显示一个框 (TRectangle)，里面有或没有 X (TPath)，右边有一个 TText。在其中两种样式中，我展示了 X，而另外两种则没有。一种样式显示带有 X 的绿色框和黑色粗体文本。一个显示一个只有黑色文本的空框。其他两个显示相同的内容，但框和文本是红色的，框内带有 X 的文本是粗体。
在程序中，我有一个列表框，在设计时添加了四个列表框项以显示四种不同的样式。我还有一个按钮，它将在运行时使用代码创建另外四个列表框项目，这些项目也显示四种不同的样式。所有这些都有效，除了一个细节。在运行时创建的两个红色列表框项不使用红色字体颜色。您可以在下图中看到这一点。 ListboxItem1 和 ListboxItem2 是在设计时创建的，并以红色文本显示。 “Item #1”和“Item #2”显示为黑色文本，但应为红色。注意：“项目 #2”确实正确显示了粗体文本。
在运行时创建 Listboxitems 时我错过了什么导致红色文本无法正确显示？
这是我正在使用的代码、表单和样式。
unit Unit3;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.StdCtrls, FMX.ListBox, FMX.Layouts,
FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
FMX.ListView;
type
TForm3 = class(TForm)
lbxEquipment: TListBox;
ListBoxItem1: TListBoxItem;
btnAdd: TButton;
StyleBook1: TStyleBook;
ListBoxItem2: TListBoxItem;
Button2: TButton;
ListBoxItem3: TListBoxItem;
ListBoxItem4: TListBoxItem;
procedure btnAddClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form3: TForm3;
implementation
{$R *.fmx}
uses System.Rtti, FMX.Objects;
var
i: integer = 1;
cnt: integer = 1;
fColor: TAlphaColor;
bColor: TAlphaColor;
procedure TForm3.btnAddClick(Sender: TObject);
var
s: string;
vItem: TListBoxItem;
c: integer;
begin
for c := cnt to (cnt + 3) do
begin
s := 'Item #' + IntToStr(c);
vItem := TListBoxItem.Create(lbxEquipment);
vItem.Parent := lbxEquipment;
vItem.StyledSettings := vItem.StyledSettings - [TStyledSetting.FontColor];
case I of
1: vItem.StyleLookup := 'EquipItemRedOffStyle';
2: vItem.StyleLookup := 'EquipItemRedOnStyle';
3: vItem.StyleLookup := 'EquipItemOffStyle';
else
vItem.StyleLookup := 'EquipItemOnStyle';
end;
vItem.Text := s;
Inc(i);
if I > 3 then
I := 0;
end;
cnt := c + 1;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
lbxEquipment.Clear;
end;
end.
object Form3: TForm3
Left = 0
Top = 0
ActiveControl = lbxEquipment
Caption = 'Form3'
ClientHeight = 284
ClientWidth = 324
StyleBook = StyleBook1
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
DesignerMasterStyle = 0
object lbxEquipment: TListBox
Anchors = [akLeft, akTop, akRight, akBottom]
Position.X = 24.000000000000000000
Position.Y = 104.000000000000000000
Size.Width = 281.000000000000000000
Size.Height = 157.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Columns = 2
DisableFocusEffect = True
ItemIndex = 0
DefaultItemStyles.ItemStyle = ''
DefaultItemStyles.GroupHeaderStyle = ''
DefaultItemStyles.GroupFooterStyle = ''
ShowCheckboxes = True
Viewport.Width = 277.000000000000000000
Viewport.Height = 153.000000000000000000
object ListBoxItem1: TListBoxItem
IsSelected = True
StyleLookup = 'EquipItemRedOffStyle'
TabOrder = 0
Text = 'ListBoxItem1'
end
object ListBoxItem2: TListBoxItem
Position.X = 138.000000000000000000
StyleLookup = 'EquipItemRedOnStyle'
TabOrder = 1
Text = 'ListBoxItem2'
end
object ListBoxItem3: TListBoxItem
Position.Y = 19.000000000000000000
StyleLookup = 'EquipItemOffStyle'
TabOrder = 2
Text = 'ListBoxItem3'
end
object ListBoxItem4: TListBoxItem
Position.X = 138.000000000000000000
Position.Y = 19.000000000000000000
StyleLookup = 'EquipItemOnStyle'
TabOrder = 3
Text = 'ListBoxItem4'
end
end
object btnAdd: TButton
Position.X = 24.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 1
Text = 'Add'
OnClick = btnAddClick
end
object StyleBook1: TStyleBook
Styles = <
item
end
item
Platform = 'Windows 10 Desktop'
ResourcesBin = {
464D585F5354594C4520322E3501061145717569704974656D4F66665374796C
6503B204061345717569704974656D5265644F6E5374796C6503FD0406104571
7569704974656D4F6E5374796C6503DF04061445717569704974656D5265644F
66665374796C6503E304005450463007544C61796F757400095374796C654E61
6D65061145717569704974656D4F66665374796C6505416C69676E070643656E
7465720A53697A652E57696474680500000000000000C406400B53697A652E48
656967687405000000000000009803401453697A652E506C6174666F726D4465
6661756C7408085461624F7264657202250016544163746976655374796C6554
6578744F626A65637400095374796C654E616D6506047465787405416C69676E
0706436C69656E740C4D617267696E732E4C6566740500000000000000C00040
0B4D617267696E732E546F70050000000000000080FF3F0D4D617267696E732E
52696768740500000000000000C000400E4D617267696E732E426F74746F6D05
0000000000000080FF3F0A53697A652E57696474680500000000000000AC0640
0B53697A652E48656967687405000000000000008803401453697A652E506C61
74666F726D44656661756C740804546578740604546578741554657874536574
74696E67732E576F72645772617008165465787453657474696E67732E486F72
7A416C69676E07074C656164696E670D536861646F7756697369626C65080D41
637469766554726967676572070853656C65637465640B416374697665436F6C
6F720708636C61426C61636B000007544C61796F75740005416C69676E07044C
656674064C6F636B6564090A53697A652E576964746805000000000000009003
400B53697A652E48656967687405000000000000009803401453697A652E506C
6174666F726D44656661756C7408085461624F726465720200000A5452656374
616E676C6500095374796C654E616D65060965717569706261636B05416C6967
6E0706436C69656E74064C6F636B6564090748697454657374080C4D61726769
6E732E4C65667405000000000000008000400B4D617267696E732E546F700500
0000000000008000400D4D617267696E732E5269676874050000000000000080
00400E4D617267696E732E426F74746F6D05000000000000008000400A53697A
652E57696474680500000000000000E002400B53697A652E4865696768740500
000000000000F002401453697A652E506C6174666F726D44656661756C740807
5852616469757305000000000000008000400759526164697573050000000000
00008000400005545061746800095374796C654E616D65060A65717569706368
65636B05416C69676E0706436C69656E7409446174612E506174680A34000000
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000064C6F636B65640907486974
54657374080C4D617267696E732E4C656674050000000000000080FF3F0B4D61
7267696E732E546F70050000000000000080FF3F0D4D617267696E732E526967
6874050000000000000080FF3F0E4D617267696E732E426F74746F6D05000000
0000000080FF3F0A53697A652E57696474680500000000000000C002400B5369
7A652E4865696768740500000000000000D002401453697A652E506C6174666F
726D44656661756C74080B5374726F6B652E4B696E6407044E6F6E6510537472
6F6B652E546869636B6E65737305000000000000008000400000000000545046
3007544C61796F757400095374796C654E616D65061345717569704974656D52
65644F6E5374796C6505416C69676E070643656E7465720A53697A652E576964
74680500000000000000C406400B53697A652E48656967687405000000000000
009803401453697A652E506C6174666F726D44656661756C7408075669736962
6C6508085461624F7264657202240016544163746976655374796C6554657874
4F626A65637400095374796C654E616D6506047465787405416C69676E070643
6C69656E740C4D617267696E732E4C6566740500000000000000C000400B4D61
7267696E732E546F70050000000000000080FF3F0D4D617267696E732E526967
68740500000000000000C000400E4D617267696E732E426F74746F6D05000000
0000000080FF3F0A53697A652E57696474680500000000000000AC06400B5369
7A652E48656967687405000000000000008803401453697A652E506C6174666F
726D44656661756C74081A5465787453657474696E67732E466F6E742E537479
6C654578740A0D00000000070000000000000004000000165465787453657474
696E67732E466F6E74436F6C6F720706636C6152656415546578745365747469
6E67732E576F72645772617008165465787453657474696E67732E486F727A41
6C69676E07074C656164696E670D536861646F7756697369626C65080D416374
69766554726967676572070853656C65637465640B416374697665436F6C6F72
0706636C61526564000007544C61796F75740005416C69676E07044C65667406
4C6F636B6564090A53697A652E576964746805000000000000009003400B5369
7A652E48656967687405000000000000009803401453697A652E506C6174666F
726D44656661756C7408085461624F726465720200000A5452656374616E676C
6500095374796C654E616D65060965717569706261636B05416C69676E070643
6C69656E740A46696C6C2E436F6C6F720706636C61526564064C6F636B656409
0748697454657374080C4D617267696E732E4C65667405000000000000008000
400B4D617267696E732E546F7005000000000000008000400D4D617267696E73
2E526967687405000000000000008000400E4D617267696E732E426F74746F6D
05000000000000008000400A53697A652E57696474680500000000000000E002
400B53697A652E4865696768740500000000000000F002401453697A652E506C
6174666F726D44656661756C7408075852616469757305000000000000008000
4007595261646975730500000000000000800040000554506174680009537479
6C654E616D65060A6571756970636865636B05416C69676E0706436C69656E74
09446174612E506174680A340000000400000000000000000000000000000001
0000000000803F0000803F00000000000000000000803F010000000000803F00
000000064C6F636B6564090748697454657374080C4D617267696E732E4C6566
74050000000000000080FF3F0B4D617267696E732E546F700500000000000000
80FF3F0D4D617267696E732E5269676874050000000000000080FF3F0E4D6172
67696E732E426F74746F6D050000000000000080FF3F0A53697A652E57696474
680500000000000000C002400B53697A652E4865696768740500000000000000
D002401453697A652E506C6174666F726D44656661756C7408105374726F6B65
2E546869636B6E65737305000000000000008000400000000000545046300754
4C61796F757400095374796C654E616D65061045717569704974656D4F6E5374
796C6505416C69676E070643656E7465720A53697A652E576964746805000000
00000000C406400B53697A652E48656967687405000000000000009803401453
697A652E506C6174666F726D44656661756C74080756697369626C6508085461
624F7264657202220016544163746976655374796C65546578744F626A656374
00095374796C654E616D6506047465787405416C69676E0706436C69656E740C
4D617267696E732E4C6566740500000000000000C000400B4D617267696E732E
546F70050000000000000080FF3F0D4D617267696E732E526967687405000000
00000000C000400E4D617267696E732E426F74746F6D050000000000000080FF
3F0A53697A652E57696474680500000000000000AC06400B53697A652E486569
67687405000000000000008803401453697A652E506C6174666F726D44656661
756C74081A5465787453657474696E67732E466F6E742E5374796C654578740A
0D00000000070000000000000004000000155465787453657474696E67732E57
6F72645772617008165465787453657474696E67732E486F727A416C69676E07
074C656164696E670D536861646F7756697369626C65080D4163746976655472
6967676572070853656C65637465640B416374697665436F6C6F720708636C61
426C61636B000007544C61796F75740005416C69676E07044C656674064C6F63
6B6564090A53697A652E576964746805000000000000009003400B53697A652E
48656967687405000000000000009803401453697A652E506C6174666F726D44
656661756C7408085461624F726465720200000A5452656374616E676C650009
5374796C654E616D65060965717569706261636B05416C69676E0706436C6965
6E740A46696C6C2E436F6C6F720708636C61477265656E064C6F636B65640907
48697454657374080C4D617267696E732E4C6566740500000000000000800040
0B4D617267696E732E546F7005000000000000008000400D4D617267696E732E
526967687405000000000000008000400E4D617267696E732E426F74746F6D05
000000000000008000400A53697A652E57696474680500000000000000E00240
0B53697A652E4865696768740500000000000000F002401453697A652E506C61
74666F726D44656661756C740807585261646975730500000000000000800040
075952616469757305000000000000008000400005545061746800095374796C
654E616D65060A6571756970636865636B05416C69676E0706436C69656E7409
446174612E506174680A34000000040000000000000000000000000000000100
00000000803F0000803F00000000000000000000803F010000000000803F0000
0000064C6F636B6564090748697454657374080C4D617267696E732E4C656674
050000000000000080FF3F0B4D617267696E732E546F70050000000000000080
FF3F0D4D617267696E732E5269676874050000000000000080FF3F0E4D617267
696E732E426F74746F6D050000000000000080FF3F0A53697A652E5769647468
0500000000000000C002400B53697A652E4865696768740500000000000000D0
02401453697A652E506C6174666F726D44656661756C7408105374726F6B652E
546869636B6E657373050000000000000080004000000000005450463007544C
61796F757400095374796C654E616D65061445717569704974656D5265644F66
665374796C6505416C69676E070643656E7465720A53697A652E576964746805
00000000000000C406400B53697A652E48656967687405000000000000009803
401453697A652E506C6174666F726D44656661756C74080756697369626C6508
085461624F7264657202230016544163746976655374796C65546578744F626A
65637400095374796C654E616D6506047465787405416C69676E0706436C6965
6E740C4D617267696E732E4C6566740500000000000000C000400B4D61726769
6E732E546F70050000000000000080FF3F0D4D617267696E732E526967687405
00000000000000C000400E4D617267696E732E426F74746F6D05000000000000
0080FF3F0A53697A652E57696474680500000000000000AC06400B53697A652E
48656967687405000000000000008803401453697A652E506C6174666F726D44
656661756C7408165465787453657474696E67732E466F6E74436F6C6F720706
636C61526564155465787453657474696E67732E576F72645772617008165465
787453657474696E67732E486F727A416C69676E07074C656164696E670D5368
61646F7756697369626C65080D41637469766554726967676572070853656C65
637465640B416374697665436F6C6F720706636C61526564000007544C61796F
75740005416C69676E07044C656674064C6F636B6564090A53697A652E576964
746805000000000000009003400B53697A652E48656967687405000000000000
009803401453697A652E506C6174666F726D44656661756C7408085461624F72
6465720200000A5452656374616E676C6500095374796C654E616D6506096571
7569706261636B05416C69676E0706436C69656E740A46696C6C2E436F6C6F72
0706636C61526564064C6F636B6564090748697454657374080C4D617267696E
732E4C65667405000000000000008000400B4D617267696E732E546F70050000
00000000008000400D4D617267696E732E526967687405000000000000008000
400E4D617267696E732E426F74746F6D05000000000000008000400A53697A65
2E57696474680500000000000000E002400B53697A652E486569676874050000
0000000000F002401453697A652E506C6174666F726D44656661756C74080758
5261646975730500000000000000800040075952616469757305000000000000
008000400005545061746800095374796C654E616D65060A6571756970636865
636B05416C69676E0706436C69656E7409446174612E506174680A3400000004
000000000000000000000000000000010000000000803F0000803F0000000000
0000000000803F010000000000803F00000000064C6F636B6564090748697454
657374080C4D617267696E732E4C656674050000000000000080FF3F0B4D6172
67696E732E546F70050000000000000080FF3F0D4D617267696E732E52696768
74050000000000000080FF3F0E4D617267696E732E426F74746F6D0500000000
00000080FF3F0A53697A652E57696474680500000000000000C002400B53697A
652E4865696768740500000000000000D002401453697A652E506C6174666F72
6D44656661756C74080B5374726F6B652E4B696E6407044E6F6E65105374726F
6B652E546869636B6E65737305000000000000008000400000000000}
end>
Left = 136
Top = 16
end
object Button2: TButton
Position.X = 200.000000000000000000
Position.Y = 64.000000000000000000
TabOrder = 5
Text = 'Clear'
OnClick = Button2Click
end
end
object TStyleContainer
object TLayout
StyleName = 'EquipItemOffStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 37
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Text'
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claBlack
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemRedOnStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 36
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.FontColor = claRed
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claRed
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claRed
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemOnStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 34
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.StyleExt = {00070000000000000004000000}
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claBlack
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claGreen
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Thickness = 2.000000000000000000
end
end
end
end
object TLayout
StyleName = 'EquipItemRedOffStyle'
Align = Center
Size.Width = 196.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
Visible = False
TabOrder = 35
object TActiveStyleTextObject
StyleName = 'text'
Align = Client
Margins.Left = 3.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 3.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 172.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.FontColor = claRed
TextSettings.WordWrap = False
TextSettings.HorzAlign = Leading
ShadowVisible = False
ActiveTrigger = Selected
ActiveColor = claRed
end
object TLayout
Align = Left
Locked = True
Size.Width = 18.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object TRectangle
StyleName = 'equipback'
Align = Client
Fill.Color = claRed
Locked = True
HitTest = False
Margins.Left = 2.000000000000000000
Margins.Top = 2.000000000000000000
Margins.Right = 2.000000000000000000
Margins.Bottom = 2.000000000000000000
Size.Width = 14.000000000000000000
Size.Height = 15.000000000000000000
Size.PlatformDefault = False
XRadius = 2.000000000000000000
YRadius = 2.000000000000000000
object TPath
StyleName = 'equipcheck'
Align = Client
Data.Path = {
04000000000000000000000000000000010000000000803F0000803F00000000
000000000000803F010000000000803F00000000}
Locked = True
HitTest = False
Margins.Left = 1.000000000000000000
Margins.Top = 1.000000000000000000
Margins.Right = 1.000000000000000000
Margins.Bottom = 1.000000000000000000
Size.Width = 12.000000000000000000
Size.Height = 13.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Stroke.Thickness = 2.000000000000000000
end
end
end
end
end
four```
删除行
vItem.StyledSettings := vItem.StyledSettings - [TStyledSetting.FontColor];
您的文字在样式中是红色的，但您告诉它忽略样式的字体颜色！