AdvToolbarForm and Office 2103 style

VCL TMS VCL UI Pack
1

Using Delphi XE5, TMS Component Pack 7.4.3.0. 64 bit Win 7 Pro. 8GB


When changing the style at run time to one of the Office 2013 styles, the File button is not displaying correctly.



Appearance.ShowMenuShape and Appearance.ShowPicture are both False.


2

Don't know why the image is not displaying. It is at:

ftp://vertigraph.com/pub/File Button.png.

3

I retested this here with the Office2010 demo by adding the option to change the style to Office2013 white, i.e. in the method:


procedure TTMSForm2.ComboBox1Change(Sender: TObject);

an extra case was added:
    5:
    begin
     AdvFormStyler1.Style := tsOffice2013White;
    end;

and this works fine here. What are you doing different from this?
4

Bruno,


I am doing this:

case NewTheme of
...
    14:
      begin
        // 'Office 2013 Light Gray';
        afsMain.Style := tsOffice2013LightGray;      //  FormStyler
        atbMainStyler.Style := bsOffice2013LightGray;    //  ToolbarStyler
        apmTakeoffStyler.Style := osOffice2013LightGray;    //  Menustyler (for other menus)
        apmFileStyler.Style := AdvPreviewMenuStylers.psOffice2013LightGray;    //  Menustyler (for file menu)
        aoStatusBarStyler.Style := AdvOfficeStatusBarStylers.psOffice2013LightGray;    //  Statusbar styler
        apsCalculation.Style := AdvPanel.psOffice2013LightGray;    //  Panelstyler
      end;
...
end;
...
    if NewTheme in [13, 14, 15]  then
    begin
      asbMain.Text := 'File';    //  File button
      asbMain.Appearance.ShowMenuShape := False;
      asbMain.Appearance.ShowPicture := False;
    end
...
Invalidate;



5

Bruno,


I think you will be able to duplicate it if you add a ToollbarStyler and a MenuStyler. Then assign a picture to your shape button and turn it off and on according to the style selection.


6

Bruno,


I have revised the image at ftp://vertigraph.com/pub/File Button.png to show how my button looks with different themes selected.


7

We traced & solved this issue. The next update will address this.

8

Thanks.