assign value to styler

VCL TMS VCL UI Pack
1

I can not seem to find a code example showing how to assign a style to either a AdvFormStyler or AdvAppStyler.


For the AdvOfficeStyler, it was simple.  Using a radio group, the user selected their preference and the code was a case like:

  case ColorStyleRadioBox.ItemIndex of
    0:  begin
          AdvOfficePagerOfficeStyler1.Style := AdvOfficePagerStylers.psWindows7;
        end;
    1:  begin
....

I have searched the forum here, and the entire site, but found no code example of how to set the style in code.

Thanks for any help.

2

Example:


AdvFormStyler1.Style := tsWindows7;
3

Nope.  That will not compile:


  AdvAppStyler1.Style := tsWindows7;
[dcc64 error] : E2003 Undeclared identifier: 'tsWindows7'

or 
  AdvFormStyler1.Style := tsWindows7;
[dcc64 error] : E2003 Undeclared identifier: 'tsWindows7'

Also, are both App and Form stylers required to be used together?


4

Please add advstyleif in your uses list. 

5

More information about the TAdvFormStyler & TAdvAppStyler can be found here:

http://www.tmssoftware.com/site/atbdev3.asp

6

Thanks!  The uses was the problem.


I had not thought to include the uses, though the demo code in the link does, because I was not using a data module.  I made the assumption all required uses were loaded by dropping the component on the form.