spktoolbar: "Actions" demo put checkmark at item of loaded style in StyleMenu.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8740 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/spktoolbar/demos/actions/unit1.lfm

@@ -1597,6 +1597,7 @@ object Form1: TForm1
     Top = 216
     object MenuItem17: TMenuItem
       Caption = 'Office2007 blue'
+      Checked = True
       OnClick = StyleMenuClick
     end
     object MenuItem18: TMenuItem

components/spktoolbar/demos/actions/unit1.pas

@@ -352,6 +352,8 @@ begin
 end;
 
 procedure TForm1.SetStyle(AStyle: TSpkStyle);
+var
+  item: TMenuItem;
 begin
   SpkToolbar1.Style := AStyle;
   case SpkToolbar1.Style of
@@ -361,6 +363,8 @@ begin
     spkMetroLight                : SpkToolbar1.Color := clSilver;
     spkMetroDark                 : SpkToolbar1.Color := $080808;
   end;
+  for item in StyleMenu.Items do
+    item.Checked := item.Tag = ord(SpkToolbar1.Style);
 end;
 
 procedure TForm1.SaveToIni;