pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8740 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-23 22:35:50 +00:00
parent a49c3ad55f
commit 2d2831d764
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/spktoolbar/demos/actions/unit1.lfm
View File

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

4
components/spktoolbar/demos/actions/unit1.pas
View File

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