From 2d2831d7644258ec473ac8a88f1910ab35e8741b Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 23 Feb 2023 22:35:50 +0000
Subject: [PATCH] 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 | 1 +
 components/spktoolbar/demos/actions/unit1.pas | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/components/spktoolbar/demos/actions/unit1.lfm b/components/spktoolbar/demos/actions/unit1.lfm
index ffdd7e513..4e32a71f9 100644
--- a/components/spktoolbar/demos/actions/unit1.lfm
+++ b/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
diff --git a/components/spktoolbar/demos/actions/unit1.pas b/components/spktoolbar/demos/actions/unit1.pas
index 5617225fc..4aa96f11a 100644
--- a/components/spktoolbar/demos/actions/unit1.pas
+++ b/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;