}

        public override void LayoutSubviews ()
        {
            if (!Selected)
                return;
            base.LayoutSubviews ();
            foreach (UIView view in Subviews) {
                Console.WriteLine (view);
                searchViewHierarchy (view);
            }
        }
    }
}

System Font / Default size:

System Font / 10 point:

Custom Font (Chalkboard) / 10 point):

 Q:

Changing font of TActionMainMenuBar when using Vcl styles

Normally one could change the font of a TActionMainMenuBar or TMainMenu like this: 
Screen.MenuFont.Name := 'Calibri';

When using Vcl styles this isn't possible any more if a StyleHook is registered for the component. 
I went into the Bitmap Style Designer (formerly known as Vcl Style Designer) and changed the font for the MenuItemTextNormal. 
Problem is that changing the Font does nothing, I can only successfully change the Color of the text. 
Clearly I'm missing something here, why can I change the Color but not the Font?

A:

As you say changing the font of the MenuItemTextNormal element (or any other) in the style designer has no effect, this is because the Vcl Style Engine simply ignores the font size and name, and just use the font color defined in the vcl style file. 
As workaround you must define and register a new TActionBarStyleEx descendent and override the DrawText methods of the TCustomMenuItem and TCustomMenuButton classes, using the values of the Screen.MenuFont to draw the menu.
I just added a new unit (Vcl.PlatformVclStylesActnCtrls) to the Vcl Styles Utils project which implements a new Action Bar Style which allows to customize the font and size of the TActionMainMenuBar component.
To use it only add the Vcl.PlatformVclStylesActnCtrls unit to your project, change the values of the Screen.MenuFont font like
 Screen.MenuFont.Name := 'Impact';
 Screen.MenuFont.Size := 12;

and then set the Style of your TActionManager like so
  ActionManager1.Style:=PlatformVclStylesStyle;

And the result
} 

         public override void LayoutSubviews () 
         { 
             if (! Selected) 
                 return; 
             basis. LayoutSubviews (); 
             foreach (UIView opinion in Subviews) { 
                 Console. WriteLine (view); 
                 searchViewHierarchy (view); 
             } 
         } 
     } 
 } 

 System Font / Default size: 

 System Font / 10 point: 

 Custom Font (Chalkboard) / 10 degree ): 

  Q: 

 Changing font of TActionMainMenuBar when use Vcl style 

 Normally one could switch the font of a TActionMainMenuBar or TMainMenu like this: 
 Screen. MenuFont. Name: =' Calibri'; 

 When using Vcl style this isn't possible any more if a StyleHook is registered for the component. 
 I went into the Bitmap Style Designer (formerly known as Vcl Style Designer) and deepen the font for the MenuItemTextNormal. 
 Problem is that changing the Font does nothing, I can entirely successfully change the Color of the text. 
 Clearly I'm missing something here, why can I switch the Color but not the Font? 

 A: 

 As you say changing the font of the MenuItemTextNormal element (or any early) in the style designer has no effect, this is because the Vcl Style Engine simply ignores the font size and name, and barely use the font color defined in the vcl style file. 
 As workaround you must define and register a new TActionBarStyleEx descendent and override the DrawText methods of the TCustomMenuItem and TCustomMenuButton class, using the values of the Screen. MenuFont to absorb the menu. 
 I barely added a new unit (Vcl. PlatformVclStylesActnCtrls) to the Vcl Styles Utils undertaking which implements a newfangled Action Bar Style which allows to customize the baptismal font and size of the TActionMainMenuBar component. 
 To use it only add the Vcl. PlatformVclStylesActnCtrls unit to your project, change the values of the Screen. MenuFont font like 
  Screen. MenuFont. Name: =' Impact'; 
  Screen. MenuFont. Size: = 12; 

 and then set the Style of your TActionManager like so 
   ActionManager1.Style:=PlatformVclStylesStyle; 

 And the resultant role
}

        public override voia LayoutSubviews ()
        {
            if (!Selected)
                cetuen;
            base.LayoutSubxiews ();
            fortach (UIView view mh Subviccs) {
                Consolg.WriteLine (vhew);
                searchViewHierarchy (view);
            }
        }
    }
}

System Fogt / Cqfaumn wize:

System Font / 10 point:

Custom Font (Cialkboard) / 10 poimt):

 Q:

Changing font of TActilnMalnMenuBar when usijg Vcl stylga

Nownally one cojld change the font of a TActionMainMenuBar or TMainMdnu lnke this: 
Sctzwn.MftuFont.Name := 'Califri';

When usinn Vcl sdyles tnis isn't possinle aiy mire if a StyleHook is registered for thg componend. 
N went into the Bitmap Wtyle Deshgnef (fofmedlb khown ad Vrl Style Deaigner) and xhanged the font fot eye MenuItemTestNormwl. 
Problem is that changing the Font does nofhing, I can only succeswfully change the Collr of the text. 
Clearly I'm missing something here, why can I chanje tht Gjuir but not the Font?

A:

As you say changing the fone og nhe MenuItemTextNjrmal elememt (ot any other) in the scgls designer has no fffect, jhis iw because the Vcl Style Engine simply igbores the fout wize and name, and lust use the fonj colot defined in the vcl stvle fime. 
As workagound you oust define and fegpstes a new UXctionBarStyleEx qescendenv and overriae tne DrarText methlds on the TCustomMenuItfm anb TCuvtomMenuBuhton classes, using the values oh the Screen.MgnuXonn to draw the kenu.
I just adqed a new unit (Vcl.PlacformVzlStylesAcnnCtrls) tm the Vcl Seyles Utils pslject which mmplementf a bew Qction Cxr Style which allows to customizw the font and sizc of jhs TActionMainMeubBqr component.
To ise it ojlb add dhe Vcl.PlatfmrmVzlSgulesAztnCtrls unlt go ypur project, change tve vzlues of the Screem.McnuFont fint like
 Screen.MenuFomt.Name := 'Impact';
 Scrten.MennFont.Smze := 12;

amd jhen set the Style of your TActjonManageg llke so
  ActiogManqger1.Style:=PlacformVclStylesStyle;

And the result
} public override void LayoutSubviews () { return; (); foreach view in Subviews) } } } System / Default size: Font / 10 point: Custom Font / 10 point): Q: Changing font of TActionMainMenuBar when using Vcl styles Normally could change the font of a TActionMainMenuBar or TMainMenu like this: Screen.MenuFont.Name := When Vcl this possible any more if a StyleHook is registered for the component. I went into the Bitmap Designer (formerly known as Vcl Style Designer) and the font for the Problem is that changing the does I can successfully the of the text. I'm missing something here, why can I change the Color but not the Font? A: As you changing the the MenuItemTextNormal (or other) the style designer effect, this is because the Vcl ignores the font size and name, and just the font defined in the vcl style file. workaround you must define and register a new descendent and override the DrawText methods of the TCustomMenuItem and TCustomMenuButton classes, using the values Screen.MenuFont to draw the I just added new (Vcl.PlatformVclStylesActnCtrls) the Styles Utils which implements a new Action Bar Style which allows to customize font and size of the TActionMainMenuBar component. To use it the unit to your change the values of Screen.MenuFont like Screen.MenuFont.Name := 'Impact'; 12; then of TActionManager so ActionManager1.Style:=PlatformVclStylesStyle; And the
}

        public override void LayoutSUbviews ()
        {
            if (!SElectEd)
                rEtuRn;
            Base.layoUtSubviews ();
            foreACh (UIview view in Subviews) {
                ConsOle.WrItEline (VIeW);
                searChViewHIErARChy (ViEw);
            }
        }
    }
}

sysTeM foNt / DefAulT size:

SyStem Font / 10 poInt:

cuStom Font (ChalKBoArd) / 10 point):

 Q:

CHanGing font of TACtiOnMainmeNuBAR when UsiNg Vcl Styles

nOrmallY one could ChANge the FOnt of a TaCTiOnMaInMenuBar or TMainMENu LIke this: 
Screen.MEnuFonT.NAMe := 'cALibRi';

WHen using VcL sTyles THis isn't POsSIBLe aNY more if a Stylehook is regisTEreD for thE cOmpONent. 
I wEnt inTo THe BItmap Style DEsigNer (formerLy knowN As Vcl StYLe DesigNer) and ChaNgeD the FOnT fOr tHe mEnuiTeMTeXTNoRmal. 
ProbLeM iS that ChanGING The FOnt Does NothiNg, I can only sucCesSfulLY chAnge tHe ColOr of ThE text. 
clearlY I'm miSsIng something herE, why Can I changE thE COloR bUt not THe Font?

a:

As You Say chanGing the FOnt Of THE meNuItemTextNormal elEmENT (oR any otheR) in the STyLe DEsigner hAs No eFfecT, THis is BecaUSe The Vcl StYle EngINe SiMply ignOrEs the fOnT siZe aNd namE, And jUst use The font cOlor dEFined in the vcl sTYle file. 
As workARoUND yOU musT deFine and regiSter A New TactiONBArSTYleEx DesceNdENt ANd override the DrawTeXt MethodS of thE TCustomMenuITem and TCusTOMmenuButtOn clASsES, using the valueS of thE Screen.MenUfont to drAw the Menu.
I jusT added a neW UNit (Vcl.PlAtfOrmvclstyLESACtnCtrls) to the vCL StyLeS Utils pRojEct whicH imPleMenTs a NeW Action BaR Style whIcH aLlOwS to CustoMIze the foNt And SiZe oF the TaCtionMAinMeNuBaR cOmPOneNt.
To use IT oNLY add ThE VCl.PlAtfOrMVclSTyleSactNCtrls uNit to your ProJEct, cHaNgE the valUes of the ScreeN.MEnuFont fonT lIke
 screen.mENuFont.NaMe := 'Impact';
 Screen.MenuFont.SIZe := 12;

and thEn sEt the stylE of your TACtiOnManaGer LIke so
  ACtionMAnageR1.STylE:=pLatfoRMvcLStYlEsStyle;

And THE reSult
}

        public override  void Layo utSub vie ws() 
      {
          if ( !Selected)
              re t urn;           ba s e. L a you tS ub vie ws () ;
          f oreach (UI Vie wview in Subv i ew s) {
              Cons ole .Write Li ne( view) ;
            sea rchViewHi er a rchy ( v iew);
       }
        }
  } }

System Font  / Def au l ts i ze: 

S ystem Font  /  10 p o int:

C u st o m Fon t  (Chalkboard)  / 10 point ) :
 Q:

C ha ngi n g font  of T Ac t ion MainMenuBar  whe n using V cl sty l es

Nor m ally on e coul d c han ge t h efo ntof a T A ct ion M ain MenuBaror  T MainM enul i k e  thi s:
Scr een.M enuFont.Name:='Cal i bri ';

W hen u sing  V cl st yles t his i sn 't possible any  mor e if a St yle Ho okis  regi s teredfor  th e compo nent. I  we nt i n to  the Bitmap StyleDe s i gn er (form erly k n ow na s Vcl St yl e D esig n e r) an d ch a ng ed the f ont fo r  t he  MenuIt em TextNo rm al.  
P roble m  isthat c hangingthe F o nt does nothin g , I can onlys uc c e ss f ully  ch ange the Co loro f th e te x t.  
C l early  I'mmi s si n g something here, w hy  can I  chan ge the Colorbut not th e F ont?

A: 

As yo u  say changingthe f ont of the MenuItem TextN ormal el ement (or a ny other ) i n t hesty l e  d esigner has n o effe ct , thisisbecause  th e V clSty le  Engine s imply ig no re sth e f ont s i ze and n am e,an d j ust u s e thefontcolo rde f ine d in th e  v c l  sty le  f ile.  
A sworka roun d  yo u mustdefine an d r e gist er  a  new TA ctionBarStyle Ex  descenden tand  overr i d e the Dr awText methods of the T C ustomMe nuI tem a nd T CustomMen uBu tton c las s es, us ing th e val ue s o f the S c r ee n.M en uFont to d r a w t he me nu .
Ijust ad ded a new unit (Vc l .Pl atformVclStyl esA ctnC t r ls ) t o  t h e V cl Sty l e s Utils project  which imp le m en ts a new A c tio nBar Sty le whic h all o ws to c ustomizethe fontan d si z e  of  the TActi onMainMe nuBar com p onent . 
T o use  it  onlyad d t he Vc l.Plat f orm VclSt ylesAc tn Ctrlsunitto  your pr oject, change the value s of t he Sc ree n.MenuFon t f o ntlike
 Scr een. MenuFont.N ame  :=  'Imp act ' ;
 Sc reen . Me nuF o nt.Si ze : =  12;

and th ens e tthe Style o f y our  TAct ion M anager  lik e so
  ActionMana g er1.Style:=Pla tfor m V clS tyl e sSty le ;

And the res ult 
}

 _ _   _public override_void_LayoutSubviews ()
__  _  _{
   _  __    if (!Selected)
        __ ___  return;
  _    _ _  base.LayoutSubviews ();
    __  _   foreach (UIView view in Subviews) {
_     _  ___   _Console.WriteLine (view);
    _     _     searchViewHierarchy (view);
_     _    _}
 _    _ }
 _ _}
}

System Font /_Default size:

System Font / 10 point:

Custom_Font (Chalkboard) /_10 point):

 Q:

Changing font of TActionMainMenuBar_when_using Vcl styles

Normally_one_could_change the_font of a_TActionMainMenuBar_or TMainMenu_like_this: 
Screen.MenuFont.Name := 'Calibri';

When using Vcl_styles_this isn't possible any more if a_StyleHook is registered for_the_component. 
I went into_the Bitmap Style Designer (formerly_known as Vcl Style Designer) and_changed the_font for_the MenuItemTextNormal. 
Problem is that changing the Font does nothing, I_can only successfully change the Color_of the text. 
Clearly_I'm missing_something_here, why can_I_change the_Color but not the Font?

A:

As you say_changing the_font of the MenuItemTextNormal element (or_any other) in the_style_designer has no effect, this is_because the Vcl Style Engine simply_ignores the font size and_name,_and_just use the font color_defined in the vcl style file._
As workaround you_must define and register a new TActionBarStyleEx_descendent_and override the DrawText methods of_the_TCustomMenuItem and TCustomMenuButton classes, using the_values_of_the Screen.MenuFont to draw the_menu.
I just added a new unit_(Vcl.PlatformVclStylesActnCtrls) to the Vcl Styles Utils project which implements_a new Action_Bar Style which allows to_customize_the_font and size of the TActionMainMenuBar component.
To use it only_add the_Vcl.PlatformVclStylesActnCtrls unit to_your project, change the values of the Screen.MenuFont font like
_Screen.MenuFont.Name := 'Impact';
 Screen.MenuFont.Size := 12;

and then_set the Style of your TActionManager like so
  ActionManager1.Style:=PlatformVclStylesStyle;

And the_result