Hi Boki,
Visual Styles are not correct as you know?
Can you fix this? See information below.
I use settings:
NextVirtualGrid.Style := stNative; NextVirtualGrid.StyleOptions := [soVCLStyles]; NextVirtualGrid.AppearanceOptions := [aoStyleColors]; NextVirtualGrid.StyleElements := [seFont, seClient, seBorder];
This is screenshot:
This must be: (Correct colors)
I use my own Styles codes, see source: (LStyles := StyleServices)
NextVirtualGrid.Color := ssGetStyleColor(scListBox); NextVirtualGrid.Font.Color := ssGetStyleFontColor(sfListItemTextNormal); NextVirtualGrid.BorderColor := ssGetSystemColor(clBtnShadow); ReportGridView.GridLinesColor := ssGetSystemColor(EditorGridLinesColor); NextVirtualGrid.AlternatingRowColor := ssGetStyleColor(scListBox); NextVirtualGrid.InactiveSelectionColor := ssGetSystemColor(clHighlight); NextVirtualGrid.SelectionColor := ssGetSystemColor(clHighlight); NextVirtualGrid.SelectionTextColor := ssGetStyleFontColor(sfListItemTextSelected);
Now you think fine it works for you but you erverytime override font textcolor, see screenshot:
You can see it's black. I can not solve this but wil you look in to it? Or quick tip?
When convert it to correct Styles think more people are happy.
In summary: My main problem is thus fontcolor override by you.
Thank you in advanced.
REgards,
Eduard.