Is it possible to change the fontcolor of the selecteditem ?
i can change almost every color at runtime, but not the fontcolor of the selected item :
(i want to set the fontcolor of the selecteditem to white and the fontsize a littble bigger
procedure TForm2.Button1Click(Sender: TObject);
procedure FillTV;
var
Item:TTMSFNCTableViewItem;
begin
for VAR I := 0 to 9 do begin
Item:=TV.Items.Add;
Item.Title:='<b>Titel'+ i.ToString+'</b>';
Item.Text:='dit is de beschrijving<br>dit is lijn2';
Item.TextColor:=TAlphaColorRec.Gray;
Item.TitleColor:=TAlphaColorRec.Gray;
end;
end;
begin
TV.BeginUpdate;
try
TV.Items.Clear;
TV.GlobalFont.Color:=TAlphaColorRec.green;
TV.GlobalFont.Color:=TAlphaColorRec.green;
tv.Color:=TAlphaColorRec.Red;
TV.Header.Font.Color:=TAlphaColorRec.Red;
TV.Footer.Font.Color:=TAlphaColorRec.Red;
TV.DefaultItem.TitleColor:=TAlphaColorRec.white;
TV.DefaultItem.TextColor:=TAlphaColorRec.steelblue;
TV.ItemAppearance.SelectedFill.Color:=TAlphaColorRec.Steelblue;
TV.ItemAppearance.SelectedStroke.Color:=TAlphaColorRec.steelblue;
TV.ItemAppearance.DisabledStroke.Color:=TAlphaColorRec.purple;
TV.ItemAppearance.Font.Color:=TAlphaColorRec.Purple;
TV.ItemAppearance.Font.Color:=TAlphaColorRec.Purple;
TV.DefaultItem.TextColor:=TAlphaColorRec.red;
TV.DefaultItem.TitleColor:=TAlphaColorRec.green;
FillTV;
finally
TV.EndUpdate;
end;
end;