type TTMSFNCListBoxOpen = class(TTMSFNCListBox); procedure TForm52.FormCreate(Sender: TObject); begin TMSFNCListBox1.Stroke.Color := TMSFNCListBox1.Fill.Color; TTMSFNCListBoxOpen(TMSFNCListBox1).TreeView.GroupsAppearance.TopStroke.Color := TMSFNCListBox1.Fill.Color; TTMSFNCListBoxOpen(TMSFNCListBox1).TreeView.GroupsAppearance.BottomStroke.Color := TMSFNCListBox1.Fill.Color; end;
One further thing. Is it possible not to have the dotted box round the selected item?
TTMSFNCListBoxOpen(TMSFNCListBox1).TreeView.NodesAppearance.ShowFocus := False;
Thanks. Any reason this isn't a property?
It has been added to the treeview, but not exposed in the listbox. We have exposed it now and the next version will have this available under ItemsAppearance
Thanks Pieter. Great support as usual!
One more. Hope you don't mind me using the same post. Would it be possible for a TWebPanel to have the Fill properties?