Request: Differences in styles

[TimStone]

We now have a multitude of styles for controls. 2007, 2010, 2013, 2015

Could someone review how they are different ? Thank you.

[cnavarro]

The objective is to create homogeneous styles for all controls
I added in style menus 2013 (like VS2013 and allows be modified by users) and 2015, as well as styles 2007 and 2010 already existed
These styles have been added to TBar, TReBar, etc. and gradually will be added to other controls.

Style 2013 Menu


Style 2013 TBar


Style 2015 Menu


Style 2015 TBar


Style 2010 Menu


Style 2010 TBar

[cnavarro]

Well, if your application defines a data or a static variable that defines the style of your application, you can define the style of the menus and TBar as follows
In this example, my data defined is ::nStyle

Menu:

Code: Select all | Expand

   MENU ::oMenu FONT ::oFontX NOBORDER //ROUND 6 //HEIGHT 2
      ::oMenu:l2007    := ( ::nStyle == 2007 )
      ::oMenu:l2010    := ( ::nStyle == 2010 )
      ::oMenu:l2013    := ( ::nStyle == 2013 )
      ::oMenu:l2015    := ( ::nStyle == 2015 )
      ::oMenu:SetColors()
      if ::oMenu:l2013          //Only, style 2013 can be modified 
      ::oMenu:nClrText := ::nColorBarI
      endif

 

TBar:

Code: Select all | Expand

   DEFINE BUTTONBAR ::oBar SIZE nSize, nSize OF ::oWnd
   ::oBar:SetFont( ::oFontCtrls )
   ::oBar:bRClicked := { | o | .T. }
   ::oBar:l2007     := ( ::nStyle == 2007 )
   ::oBar:l2010     := ( ::nStyle == 2010 )
   ::oBar:l2013     := ( ::nStyle == 2013 )
   ::oBar:l2015     := ( ::nStyle == 2015 )
   ::oBar:SetGradients()

 

[TimStone]

Thank you. I have no problem specifying them but I was looking for the display differences you showed in the images.

Tim

[cnavarro]

Thank you. I have no problem specifying them but I was looking for the display differences you showed in the images.

Tim

Tim,

Examples are to show what functions are defined styles colors.
In the menus, SetColors() function, which defines the colors and calls the function SetSkin ... ()
In controls will SetGradients()

Regards

[TimStone]

When I use 2013 or 2015 I get a grey background for the bar. ( Windows 10 ).
I tried using the BRUSH command but it doesn't do anything
I noticed your sample has SetGradients(). That didn't do anything so I assume it must be defined elsewhere.

So ... how do we add color to the background. I did check the Wiki but nothing there provides an explanation.

Tim

[TimStone]

I can't get anything but grey for a background with any style except 2007.

When I looked at the current class versus the current FiveWin.ch file, it would appear the include file does not match the class ( for commands ). Maybe this is part of the problem.

Tim

[cnavarro]

I can't get anything but grey for a background with any style except 2007.

When I looked at the current class versus the current FiveWin.ch file, it would appear the include file does not match the class ( for commands ). Maybe this is part of the problem.

Tim

Styles and colors in controls still must be reviewed
Method SetGradients() is in TBar.prg

[TimStone]

I reviewed the class closely, and Set Gradients was not working ( it cannot be over written with better values externally ).

Instead, after using a COMMAND to create the button bar, I added: oBar:bClrGrad := aPubGrad where aPubGrad is defined in the MAIN module with gradient values that I also use for the header of my xbrowse displays.

That works.