Jump to content


Photo

Styles and VirtualGrid


  • Please log in to reply
1 reply to this topic

#1 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 25 June 2018 - 10:14 AM

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: 

 

Boki_VCL_VirtualGrid.jpg

 

This must be: (Correct colors)

 

Boki_VCL_Correct.jpg

 

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:

 

Boki_VCL_TextColorBlack.jpg

 

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.

 

 



#2 DelphiToday

DelphiToday
  • Members
  • 146 posts
  • Gender:Male

Posted 28 June 2018 - 12:46 PM

I add little FIX for black color. This is not the right way but it works for me right now.

procedure TNxColumnView.Paint;

{}

FontColor := Font.Color;
CellColor := BackColor;

{ Fix FontColor }
if CanStyle(soVCLStyles) then // Or maybe better? (seFont in StyleElements]
begin
  LStyles := StyleServices;
  FontColor := LStyles.GetStyleFontColor(sfListItemTextNormal);
end;

{}

Hopefully you will add or prepare for real VCL Styles. Header is working good.

 

Regards,

Eduard.






1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users