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

spkToolbar: Complete TSpkPopupMenuAppearance.Assign

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8730 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-02-22 14:20:02 +00:00
parent e599ba0a1d
commit 046cd102fc
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
View File

@ -1765,6 +1765,12 @@ begin
SrcAppearance := TSpkPopupMenuAppearance(Source); SrcAppearance := TSpkPopupMenuAppearance(Source);
FCaptionFont.Assign(SrcAppearance.CaptionFont); FCaptionFont.Assign(SrcAppearance.CaptionFont);
FCheckedFrameColor := SrcAppearance.CheckedFrameColor;
FCheckedGradientFromColor := SrcAppearance.CheckedGradientFromColor;
FCheckedGradientToColor := SrcAppearance.CheckedGradientToColor;
FCheckedGradientType := SrcAppearance.CheckedGradientType;
FDisabledCaptionColor := SrcAppearance.DisabledCaptionColor; FDisabledCaptionColor := SrcAppearance.DisabledCaptionColor;
{ {
FIdleFrameColor := SrcAppearance.IdleFrameColor; FIdleFrameColor := SrcAppearance.IdleFrameColor;